Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
8. Jan 2003
Hallo Christian,
mit Hilfe Deines vorigen Hinweises habe ich die Prozedur so umgeändert, daß in der Liste der selektierte Eintrag wieder weiß auf blau erscheint, wenn man sich mit der Maus darüber hinwegbewegt, und nach der Auswahl eines Eintrages dieser wieder in schwarz auf weiß erscheint und nicht in der Farbe wie in der Auswahlliste.
procedure TForm1.ComboBox1DrawItem(Control:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
8. Jan 2003
@Christian Seehase
Hallo Christian,
ich hoffe, Du wirfst hier noch einmal einen Blick rein, denn ein Problem konnte ich noch nicht lösen:
Nach dem Öffnen der Liste hätte ich gern weiße Schrift auf blauen Grund (so wie in der Standard-Version), damit ich den aktuell gewählten Beitrag besser sehen kann.
Vielleicht hast Du dafür ja auch noch eine Lösung?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
8. Jan 2003
Hallo Delphi-Coder,
auch wenn Christian inzwischen eine Lösung geliefert hat, will ich noch eine kleine Ergänzung bringen.
type
TArrCol = record
Font : TColor;
Bkgr : TColor;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by eddy,
8. Jan 2003
Hallo Delphi-Coder,
hier ein Stückchen Programm. Es löst zwar nicht zu 100% Dein Problem, aber vielleicht ist es ja ein Anfang :wink: :idea:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TComboBox do begin
Canvas.FillRect(Rect);
Canvas.Font.Color := TColor(Items.Objects);