[Erledigt] TMemo Zeile selektieren bei OnMouseMove

[Frank Ranis]

Hallo ,

habe hier nen ollen Delphi-Code der nach Lazarus portiert werden soll.

Aufgabe :
Die Zeile unter der Maus soll selektiert werden .
Muß auch in Linux laufen .

Code: Alles auswählen

// Zeile unter Mauscursor markieren
procedure TForm1.Memo2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  Pt,i: integer;
  CharLineIndex: DWord;
  line:Integer;
  s:string;
begin
 Pt:=(X and $FFFF) or ((Y and $FFFF)shl 16);
 CharLineIndex:= SendMessage(Memo2.Handle,EM_CHARFROMPOS, 0, Pt); // <----- läuft nur unter Windows
 line:=(CharLineIndex shr 16) and $FFFF;
 s:=Memo2.Lines[line];
 i:=Pos(s, Memo2.Text);
 Memo2.SetFocus;
 Memo2.SelStart:=i-1;
 Memo2.SelLength:=Length(Memo2.Lines[line]);
end;  
 

Gruß

Frank

[theo]

Schwierig. Vielleicht kann TSynEdit so etwas besser?

[sstvmaster]

Hier mal mein Test dazu:

Code: Alles auswählen

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  vFontHeight, vScrollPos, vSelectedLine, vLinePos: Integer;
begin
  // Fontgröße
  if Memo1.Font.Height > 0 then
    vFontHeight := Memo1.Font.Height
  else
    vFontHeight := Memo1.Font.GetTextHeight(Memo1.Text);
 
  // Position der Vertikalen Scrollbar als "Offset"
  vScrollPos    := Memo1.VertScrollBar.Position;
  // Selektierte Zeile (Y Pixel der Maus / Fontgröße) + Scroll Offset
  vSelectedLine := ( Y div vFontHeight ) + vScrollPos;
  { vLinePos
   Position des selktierten Textes
 
   !!! ACHTUNG !!!
   Das hat einen Nachteil, wenn der selbe Text mehrfach vorkommt
   dann springt die Selektion wieder an das erste vorkommen im Memo.
  }
  vLinePos        := Pos(Memo1.Lines[vSelectedLine], Memo1.Text);
  // Länge des Textes wo die Maus ist
  vLineLength     := Length(Memo1.Lines[vSelectedLine]); 
 
  Memo1.SelStart  := vLinePos - 1;
  Memo1.SelLength := Length(Memo1.Lines[vSelectedLine]);
end;

Wie im Code kommentiert hat das ein paar macken. Vielleicht kann man das verbessern.
Bitte auch mal einer unter Linux/Mac testen, habe nur Windows.

LG Maik

[Frank Ranis]

Hi,

super Hilfe,
Jetzt habe ich ein paar Ansatzpunkte.

Schwierig. Vielleicht kann TSynEdit so etwas besser?

Habe ich mal geschaut , in Synedit gibt es PixelsToLogicalPos , damit könnte man an die Sache ranngehen.

Code: Alles auswählen

procedure TForm1.SynEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var p,p1:tpoint;
    s:string;
begin
 p1.x:=x; p1.y:=y;
 p:=synedit1.PixelsToLogicalPos(p1);
 label3.caption:=inttostr(p.x)+' '+inttostr(p.y);
 s:=synedit1.Lines[p.y-1];
 label4.caption:=s;
end;     
 

Muß mich dann nur noch in die Machart von TsynEdit einarbeiten .

Hier mal mein Test dazu:

Code: Alles auswählen

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  vFontHeight, vScrollPos, vSelectedLine, vLinePos: Integer;
begin
  // Fontgröße
  vFontHeight   := Memo1.Font.GetTextHeight(Memo1.Lines.Text);
  // Position der Vertikalen Scrollbar als "Offset"
  vScrollPos    := Memo1.VertScrollBar.Position;
  // Selektierte Zeile (Y Pixel der Maus / Fontgröße) + Scroll Offset
  vSelectedLine := ( Y div vFontHeight ) + vScrollPos;
  {
   Position des selktierten Textes
 
   !!! ACHTUNG !!!
   Das hat einen Nachteil, wenn der selbe Text mehrfach vorkommt
   dann springt die Selektion wieder an das erste vorkommen im Memo.
  }
  vLinePos        := Pos(Memo1.Lines[vSelectedLine], Memo1.Text);
  // Länge des Textes wo die Maus ist
  vLineLength     := Length(Memo1.Lines[vSelectedLine]); 
 
  Memo1.SelStart  := vLinePos - 1;
  Memo1.SelLength := Length(Memo1.Lines[vSelectedLine]);
end;

Wie im Code kommentiert hat das ein paar macken. Vielleicht kann man das verbessern.
Bitte auch mal einer unter Linux/Mac testen, habe nur Windows.

LG Maik

Super Idee , damit probier ich auch noch mal .
Unter Linux läuft das auch , habe ich gerade ausprobiert , die Windows-Hürde wäre damit umschifft .
Und das Problem mit dem mehrfach finden eines Teiltextes bekomme ich sicher auch noch in den Griff.

Gruß

Frank

[sstvmaster]

Die GetTextHeight() Funktion scheint einen Bug zu haben es wird immer Texthöhe 16 Pixel ausgegeben.

[sstvmaster]

Nochmal eine Änderung:

Code: Alles auswählen

 
...
var
  bmp: TBitmap;
...
  // Fontgröße
  bmp := TBitmap.Create;
  try
    bmp.Canvas.Font.Assign(Memo1.Font);
    vFontHeight := bmp.Canvas.TextHeight(Memo1.Text);
  finally
    bmp.Free;
  end;

Dynamische Berechnung der Fontgröße über Canvas.

[Frank Ranis]

Hallo Maik,

danke für die Verbesserungen .

Das Thema ist für mich damit erst mal durch.

Gruß

Frank