Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
6. Okt 2006
Danke, genau das war´s! Ich hatte dann zwar noch Abweichungen, wenn ein Item den Focus hatte, aber das habe ich eliminiert, indem ich aus:
Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, Items);
Canvas.TextOut(Rect.Left, Rect.Top, Items);
gemacht habe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
6. Okt 2006
Hm, das war leichter als gedacht. Was mir nun noch nicht gefällt ist, dass zwischen den einzelnen Items da wo Text ist, kein leerer Zwischenraum ist und da wo kein Text mehr steht, ein weißer Zwischenraum ist. Wenn ich das mal bildlich zeigen soll, würde ich das tun. Wie schaffe ich da noch Abhilfe?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
6. Okt 2006
Sorry, damit kann ich leider nix anfangen. Ich benutze doch das richtige Event. Sicher meinst Du, dass ich versuche dieses Event zu missbrauchen...Oder!?
Ok, dann frage ich eben, wie ich es ansonsten lösen könnte...???
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by torud,
6. Okt 2006
Also ich hoffe, das hier wenigstens ein paar von Euch reinschauen, da ich die Routine zum Selbstzeichnen schon gefunden und eingebaut habe. Aber leider funzt es nicht so recht.
procedure TForm1.list_clients_clDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
i:integer;
begin
with (control as TListBox) do
begin
for i:= 0 to Count-1 do