Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
14. Jun 2007
Dann klappt es auch mit dem Nachbarn.
Wenn der Style der Listbox(im Object Inspector) auf lbStandard steht (default) dann wird das Ereignis nicht ausgelöst.
Grüße
Klaus
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
14. Jun 2007
Wenn das Wort mit anderen Wörtern in der Zeile steht kannst Du es nicht
so if TListbox(Control).Items.Strings = 'verliehen' then abfragen.
Dann solltest Du mit pos(substring,String) anfangen.
z.B. so:
if pos('verliehen',TListbox(Control).Items.Strings) > 0 then
// Zeile färben
Grüße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
14. Jun 2007
TListbox(Control).Canvas.FillRect(Rect);
if TListbox(Control).Items.Strings = 'verliehen' then
TListbox(Control).Canvas.Font.Color := clRed
Besteht der Eintrag in der Listbox auch nur aus "verliehen" oder
ist "verliehen" nur eine Bestandteil des Eintrages?
Und nocht etwas "geht nicht" ist eine nicht sehr hilfreiche Fehlerbeschreibung.
Grüße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Klaus01,
14. Jun 2007
Versuche es einmal so:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Name: string;
Farbe,count, i : integer;
begin
count := listbox1.Items.Count;