(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
8. Jan 2003, 13:30
Moin Eddy,
meinst Du das hier?
Delphi-Quellcode:
//...
cb := TComboBox(Control);
if (odComboBoxEdit in State) and (odFocused in State) then
begin
cb.Canvas.Brush.Color := clNavy;
cb.Canvas.FillRect(Rect);
cb.Canvas.Font.Color := clWhite;
cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Text);
exit;
end;
case Index of
//...
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|