DGL • Thema anzeigen - Berechnung für CursorPos stimmt nicht.

Berechnung für CursorPos stimmt nicht.

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Adler

Betreff des Beitrags: Berechnung für CursorPos stimmt nicht.

Verfasst: Di Nov 23, 2004 21:00

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Sers!

Ich versuche nun (Nach dem Tutorial von Flo) einmal ein "Memo" zu schreiben.
Allerdings klappt etwas bei der Berechnung für die Cursor Position auf der X Achse net.
Folgenden Code habe ich geschrieben, vllt. schaut ihr mal rein.

Code:

procedure TPhpEditComp.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  a,b:integer;
begin
  inherited;
 
    For a := 0 To Lines.Count-1 Do
    If (Y > a*(-Canvas.Font.Height+5) ) and (Y < (a+1)*(-Canvas.font.height+5)) then
    begin
      VirtualCursor.Y := a*(-Canvas.Font.Height+5)+5;
      break;
    end;
 
    If a > Lines.Count - 1 then
    exit;
 
    For b := 2 To length(Lines[a]) Do
    If (b = length(Lines[a])) Or ((X > Canvas.TextWidth(copy(Lines[a],1,b-1)) ) and (X <= Canvas.TextWidth(copy(Lines[a],1,b)))) then
    begin
      VirtualCursor.X := Canvas.TextWidth(copy(Lines[a],1,b));//trunc(X / Canvas. ;
      break;
    end;
    if b = 1 then
    VirtualCursor.X := LEFT_BORDER;
  Paint;
end;

Bitte Sehr

_________________
www.audi32.de

Nach oben

Flo

Betreff des Beitrags: Re: Berechnung für CursorPos stimmt nicht.

Verfasst: Mi Nov 24, 2004 18:31

DGL Member

Registriert: Do Jun 19, 2003 10:44
Beiträge: 991
Wohnort: Karlsfeld (nahe München)

~->GEF<-~ Adler hat geschrieben:

Code:

 
    For a := 0 To Lines.Count-1 Do
    If (Y > a*(-Canvas.Font.Height+5) ) and (Y < (a+1)*(-Canvas.font.height+5)) then
    begin
      VirtualCursor.Y := a*(-Canvas.Font.Height+5)+5;
      break;
    end;
 

Da die Höhe einer Zeile konstant ist reicht eine einfache Division
z.b

Code:

 
  VCur.Y := ClientHeight div Y;
  if VCur.Y > Lines.Count-1 then VCur.Y := Lines.Count-1;

~->GEF<-~ Adler hat geschrieben:

Code:

 
    For b := 2 To length(Lines[a]) Do
    If (b = length(Lines[a])) Or ((X > Canvas.TextWidth(copy(Lines[a],1,b-1)) ) and (X <= Canvas.TextWidth(copy(Lines[a],1,b)))) then
    begin
      VirtualCursor.X := Canvas.TextWidth(copy(Lines[a],1,b));//trunc(X / Canvas. ;
      break;
    end;
    if b = 1 then
    VirtualCursor.X := LEFT_BORDER;
  Paint;
end;
 

Ich habe mir das nochmal überlegt. Ich würde das mit einer solchen Schleife lösen:

Code:

 
 Text := Lines[VCur.Y];
 Max := length(Text);
 Left := 0;// Hochzählender Pixelabstand vom linken rand
 VCur.X := 0; // Variable für Ergebnis
 I:= 1;
 //Annähungs Versuch von Left an X.
 while (I <= Max) and (Left < X) do 
 begin
  // Buchstaben für Prüfung vorbereiten  
  {Hier: Font Einstellungen von Buchstaben an Canvas übergeben}
  Left := Left + Canvas.TextWidth(Text[I]);
 
  //Zähler vor nächster Berreichsprüfung erhöhen.
  Inc(I);
 end;  
VCur.X := I-1;
 

MfG
Flo

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Mi Nov 24, 2004 18:58

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Code:

  VCur.Y := ClientHeight div Y;
  if VCur.Y > Lines.Count-1 then VCur.Y := Lines.Count-1; 

Mh. wie soll das gehen?

CursorPos := Textfeldhöhe dürch momentane Y höhe.

Da bekomme ich doch nicht den richtigen wert raus?! :-/
Hatte es anfangs mit VCur.y := Height div (Canvas.font.textheight + 5) versucht (Allerdings klappte das net) textheight, nur so geschrieben, richtigen befehl vergessen. +5 weil ich immer 5 Abstand zwischen den zeilen habe

Nach dem anderen muss ich mal gucken.

_________________
www.audi32.de

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Mi Nov 24, 2004 19:24

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Also der zweite Code ist wirklich Nice!
Allerdings habe ich die Daten für Fett oder nicht nur in Wörtern stehen.
Also jedes Wort hat ne Eigenschaft, nicht jeder Buchstabe.

_________________
www.audi32.de

Nach oben

Flo

Betreff des Beitrags:

Verfasst: Do Nov 25, 2004 16:07

DGL Member

Registriert: Do Jun 19, 2003 10:44
Beiträge: 991
Wohnort: Karlsfeld (nahe München)

~->GEF<-~ Adler hat geschrieben:

Code:

  VCur.Y := ClientHeight div Y;
  if VCur.Y > Lines.Count-1 then VCur.Y := Lines.Count-1; 

Mh. wie soll das gehen?

Ups! Falsche Werte!
So sollte es gehen:

Code:

  VCur.Y := Y div ZeilenHoehe;
  if VCur.Y > Lines.Count-1 then VCur.Y := Lines.Count-1; 

MfG
Flo

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Do Nov 25, 2004 17:09

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Nice

Aber sachste zu X? da ich die Werte nur in "WortBlöcken" habe?!

_________________
www.audi32.de

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: Majestic-12 [Bot] und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.