Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Amateurprofi,
12. Okt 2007
ja, sorry.
Ersetze den "." vor "Canvas" durch ein ","
also :
with (Control as TListBox), Canvas, Rect do begin
...
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Amateurprofi,
11. Okt 2007
@xZise:
Sehr schön, hat aber den Nachteil, daß es nicht funktioniert (jedenfalls bei mir nicht)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Amateurprofi,
11. Okt 2007
@capo,
ich hab mir das (aus eigenem Interesse) noch mal angeschaut.
Wenn ich deinen Source-Code richtig interpretiere , dann möchtest du, daß der Hintergrund
- $D4B569 ist, wenn es sich um einen selektierten Eintrag handelt
- $817161 ist, wenn es sich um einen unselektierten Eintrag mit ungeradem Index handelt
- clWhite ist, wenn es sich um einen unselektierten Eintrag mit geradem Index...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Amateurprofi,
10. Okt 2007
versuch es mal so, daß du das DrawFocusRect erst ganz am Schluß machst
also
Canvas.FillRect(Rect); //schön ausmalen
Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Items); //Text drüberpinseln
if .... then Canvas.DrawFocusRect(rect);