Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by EarlyBird,
24. Mai 2011
ich habs mal getestet:
procedure TCsPageNavigation.Paint;
begin
inherited Paint;
if FStyle = cwsWin2000 then
DrawBorderShadow;
//Refresh;
end;
procedure TCsPageNavigation.Refresh;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by EarlyBird,
23. Mai 2011
procedure TCsCustomPanel.Paint;
begin
inherited Paint;
DrawBorder(FBorderLeft, cbpLeft);
DrawBorder(FBorderRight, cbpRight);
DrawBorder(FBorderTop, cbpTop);
DrawBorder(FBorderBottom, cbpBottom);
if FStyle = cwsWin2000 then
DrawBorderShadow;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by EarlyBird,
23. Mai 2011
Hast Du mal versucht das Zeichnen der Linie in die Paint Methode zu verschieben!?