Suchfunktion

[smart]

Hallo Alle!

Ich habe mir hier eine Suchfunktion gebaut, welche aus einem TMemo einen bestimmten Text sucht.

Delphi-Quellcode:

procedure TBondruck.Button4Click(Sender: TObject);
Var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo2.Lines.Count do
  begin
    PosReturn := Pos(Edit1.Text,Memo2.Lines[I]);
    if PosReturn <> 0 then {gefunden!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
        Skipchars := Skipchars + Length(Memo2.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo2.SetFocus;
      Memo2.SelStart := SkipChars;
      Memo2.SelLength := Length(Edit1.Text);
      Break;
    end;
  end;
end;

Klappt ganz gut. Wie kann ich nun erreichen, dass der gefundene Text immer in der ersten Linie erscheint?

Gruß
Heike

[xaromz]

Hallo,

kannst Du bitte erläutern, was Du mit "immer in der ersten Linie" meinst? Das würde helfen :wink: .

Gruß
xaromz

[himitsu]

Es soll bestimmt so gescrollt werden, das der markierte Textabschnitt soweit wie möglich im orbern sichtbaren Bereich liegt.

(hab nur keine Ahnung wie man scrollt ... programmseitig) ._.

[ste_ett]

Versuch mal

Delphi-Quellcode:

ScrollBy();

.

Delphi-Quellcode:

for I := 0 to Memo2.Lines.Count do

Da fehlt ein "-1". :)

[EDatabaseError]

IMHO wenn in Zeile X der Text gefunden wird kommt Zeile X im Memo in die Erste Zeile und der Rest rutscht eins runter... ;-)


[rot][nochmal rot :wall: ]

[smart]

Zitat:

Zitat von xaromz

Hallo,

kannst Du bitte erläutern, was Du mit "immer in der ersten Linie" meinst? Das würde helfen :wink: .
xaromz

Es soll im TMemo der gefundene Text nach oben gescrollt werden, so dass er in der ersten Zeile steht.

Gruß
Heike

[smart]

Zitat:

Zitat von ste_ett

Versuch mal

Delphi-Quellcode:

ScrollBy();

Schade, klappt leider nicht!

Zitat:

Zitat von ste_ett

Delphi-Quellcode:

for I := 0 to Memo2.Lines.Count do

Da fehlt ein "-1". :)

Vielen Dank, habe ich vergessen.

Gruß
Heike

[tobu]

Versuch das hier mal:

Delphi-Quellcode:

Memo2.ScrollContent(dirUp)

Edit:
Sorry das bezieht sich auf das von mir benutzte TcxMemo.

[himitsu]

ScrollBy scrollt doch nur Relativ?
Dann müßtest du ja erstmal die Position des Testes rausfinden und die aktuelle Scrollposition und könntest dann per ScrollBy die Diverenz hoch-/runterscrollen.

Aber gibt es nicht zumindestens einen Befehl, welcher den markierten Text in den Sichtbaren Bereich scrollt? (zwar nicht nach ganz oben, aber immerhin kann man den dann sehen ^^)

[xaromz]

Hallo,

zum Bestimmen der momentanen Startzeile ist die Message EM_GETFIRSTVISIBLELINE geeignet.
Mit EM_LINESCROLL kannst Du festlegen, wie viele Zeilen gescrollt werden sollen.

Gruß
xaromz