Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
ich hab' ja gleich gesagt: FindText ;-)
if not node.HasChildren then begin
Memo.Lines.BeginUpdate;
try
Memo.SelectAll;
Memo.SelAttributes.Color := clBlack;
sSearch := node.Text;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
für das Zurücksetzen der Markierungen fallen mir zwei Wege ein.
Entweder Du merkst Dir, was zuletzt ausgewählt wurde (beim ersten durchlauf eben nichts), und durchläufst die Schleife zweimal, das erste Mal mit dem alten Begriff, wobei die Markierungsfarbe auf schwarz gesetzt, oder Du markierst alles mit SelectAll und setzt die Farbe global auf schwarz zurück. Mit einem...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
danke für den Source.
Das liegt an den Tabulatoren in der Datei. Wenn ich die testeshalber mal durch #32 (Blank) ersetze, klappt's.
Wieso das passiert, bzw. wie das zu berücksichtigen ist, weiss ich allerdings (noch) nicht :?
Übrigens nur so als Idee:
Wenn ein anderes Element ausgewählt werden solltest Du die Markierung des zuletzt gewählten wieder zurücksetzen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
:shock:
das hatte ich soweit schon getestet...
Kannst Du mal einen Beispieltext anhängen, bei dem es nicht geht?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
in dem Beispiel ersetze ich alle Fundstellen, durch 9en, um diese kenntlich zu machen, da man in einem Memo nichts markieren kann. In einem Memo kann man nicht mit verschiedenen Farben arbeiten.
Deshalb der Kommentar.
Nimmst Du statt eines Memos ein RichEdit, könntest Du hinter dieser Zeile:
Memo1.SelLength := iSearchLen;
mal die Zeile
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
17. Okt 2003
Moin lkz,
so geht's:
var
sText : string;
sSearch : string;
sDel : string;
iSearchLen : integer;
iPos : integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
16. Okt 2003
Moin lkz,
wenn Du etwas markieren willst, solltest Du ein RichEdit nehmen.
@SirThornberry:
Sind Dir die Delphi Tags ausgegangen ;-)
So mit Memo.Lines.Text zu arbeiten, ist übrigens eine prima Möglichkeit das Programm langsam zu machen. Text wird bei jedem Lesezugriff aus den Lines aufgebaut. ;-)
Am besten vorher in eine Stringvariable laden, und dann die Schleife mit diesem String...