Button selber zeichnen auf PaintBox

[mOzZzI]

Hallo,

ich wollte mal fragen, wie ich selber einen Button zeichne, und das auf der PaintBox, oder kann ich das auch auf die Form drauf zeichnen? Habe da überhaupt keine Ahnung davon...

Gruß Philipp

[R2D2]

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)

[mOzZzI]

Geht das auch einfacher?

[R2D2]

Ich glaube nicht. Warum nimmst du nicht einfach einen TButton???

[mOzZzI]

Ja, ich möchte den TButton "umformen", aber nicht mit dem XPManifest, sondern halt selber machen...

[Flocke]

Schau mal in die Anhänge bei diesem Beitrag. Alternativ schau dir die Dokumentation der Funktion DrawFrameControl an, insbesondere mit den Parametern DFC_BUTTON / DFCS_BUTTONPUSH.