Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CLRS530,
4. Aug 2005
jo genau, das ist noch ein wenig besser :)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CLRS530,
4. Aug 2005
Achso na dann hab ich dich falsch verstanden gehabt
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var i, iihnhalt: integer;
begin
with (Control as TListBox).Canvas do
begin
FillRect(rect);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CLRS530,
4. Aug 2005
Ja klar, ich mein macht doch auch sonst keinen sinn, wie willste denn ne zahl mit nichts vergleichen, selbst wenn es weiter ginge.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CLRS530,
4. Aug 2005
Das macht absolut kein Sinn wie du es machst.
OnDraw ist eine Prozedur die so lange aufgerufen wird, wie Elemente in der Listbox sind.
Es geht also alle durch.
Versuch es mal folgendermaßen:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var iihnhalt: integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CLRS530,
4. Aug 2005
Du bekommst doch bei der prozedur index übergeben, so musst du einfach nur prüfen oder dieser 4 oder 6 ist oder sonstwas und dann deine methode ausführen.
EDIT:
Hier der Code
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
If (Index = 4) or (Index = 6) then