Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
procedure Tmainform.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do
begin
if getinivaluefrom(inttostr(listbox1.itemindex+1),'Active',getinivalue('StandardValues','TaskFile'))='false' then //bei best. Zeile soll folgendes gelten
begin
Canvas.Brush.Color := clRed;
Canvas.Pen.Color :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
cool! hab ich jetzt so und passt soweit. was ich allerdings nicht begreif: bei mir ist die textfarbe immer noch schwarz obwohl diese ja bei hintergrund rot weiss sein sollte? nur wenn ich mit der maus die zeile selektiere ist der text weiss ansonsten schwarz.
und: wenn ich mit der maus klicke werden die farben dargestellt. jedoch nicht beim laden der listbox bzw. beim laden des forms. wie...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
wenn das Projekt fertig ist und läuft wird es hier als Freeware oder sogar Opensource veröffentlicht! :)
Ein cooles Tool vorallem für alle Vista Besitzer... :)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
stimmt, aber jetzt müsst ich noch die Markierte Zeile wieder markieren. Normalerweise ist das glaub ich dunkelblau?
Die ist jetzt transparent und somit sieht man relativ schlecht welche Zeile ausgewählt ist. Der Rest passt schon ganz gut muss ich sagen!
Verwende Vista hier und in der Firma XP. Die Auswirkungen waren bei beiden Systemen die gleichen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
sieht bei mir nicht so aus :( sniff
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
ja allerdings, aber ich habe wenn ich mit der maus draufklicke alles weiss (auch die schrift) -> somit unleserlich...
der rahmen mit der farbe passt allerdings...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toyoman,
25. Sep 2008
ich weiss ein viel diskutiertes Thema. dennoch komm ich auch nach dem Studium von x threads hier im Forum nicht weiter.
in meiner Listbox möchte ich ausgewählte Einträge einfärben.
habe die listboxdrawitem procedure wie folgt angepasst:
procedure Tmainform.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (control as TListBox)...