Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
20. Dez 2005
Hab das Problem gefunden. Der ThemeManager muss auf dem Formular liegen, dann gehts.
Allerdings sollte in DefaultDrawBackground folgendes entfernt werden:
{ Note that changing the background color with active
visual styles will *NOT* look good in most cases!
}
if (Brush.Color <> clBtnFace) and (Brush.Color <> clNone) then
begin
InflateRect(Rect, -1, -1);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
19. Dez 2005
ich hab es mal mit Deinem Original-Button probiert, der selbe Effekt. Das einzige, was ich geändert habe, ist: Die Units ThemeMgr,ThemeSrv hinzugefügt, weil Delphi6. Vielleicht liegt das der Hund begraben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
16. Dez 2005
@Flocke
so, hab meine Button-Klasse mal umgebaut mit Deiner Variante. Soweit funktionierts
Nur wird um die Buttons so eine Art "Dreckrand" gezeichnet. Tritt das bei Dir auch auf? (siehe Anhang)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
12. Dez 2005
habs runtergeladen :-D
schau es mir heut mal an.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
9. Dez 2005
Folgendes Problem:
Ich habe eine abgeleitete TButton-Klasse, bei der ich die Caption und noch anderes selbst zeichne. Der Button selbst wird weiterhin von Windows erstellt.
Gezeichnet wird das ganze über
procedure TMyButton.WndProc(var Message: TMessage);
begin
inherited WndProc(Message);
if Message.Msg in then