Du kannst generell auf die Form mit ihrer Eigenschaft Canvas zeichnen. Z.B. Text:
Canvas.textout('Test')
Das Windows-Button design hinzubekommen ist aber sehr schwer. Einen einfachen Button zeichnest du so:
Delphi-Quellcode:
if Checked = true then
begin
for i := 1 to 3 do
begin
Canvas.Pen.Color := clBlack;
Canvas.RoundRect (0+i-1, 0+i-1, Width-3+i, Height-3+i, ellip, ellip);
end;
Canvas.TextOut((Width-Canvas.TextWidth(Caption)) div 2 + 2, (Height-Canvas.TextHeight(Caption)) div 2 + 2, Caption);
end;
if Checked = false then
begin
for i := 1 to 3 do
begin
Canvas.Pen.Color := clBlack;
Canvas.RoundRect (0, 0, Width-3+Convert(i), Height-3+Convert(i), ellip, ellip);
end;
Canvas.TextOut((Width-Canvas.TextWidth(Caption)) div 2, (Height-Canvas.TextHeight(Caption)) div 2 , Caption);
end;
Dieser Button besitzt in der Eigenschaft ellip noch eine Rundung (Eckig bei ellip = 0)