runden Button

[sentinal]

Hallo,

ist es möglich einen runden Button zu erstellen?
Evtl. ein abgeleitetes Panel o.ä.

sentinal

[arbu man]

ja :-D

Delphi-Quellcode:

begin
  x := (Width - Canvas.TextWidth(Caption)) div 2;
  y := (Height- Canvas.TextHeight(Caption)) div 2;
  if Pressed then
    for i := 1 to 3 do
    begin
      // Canvas.Pen.Color := OColor[4-i];
      Canvas.Pen.Color := OColor[(i+1) div 2];
      Canvas.Arc (i, i, Width-i, Height-i, i, i, i, i);
      Canvas.Ellipse (3, 3, Width-3, Height-3);
      Canvas.TextOut (x+1,y+1, Caption+' ');
    end
  else
    for i := 1 to 3 do
    begin
      Canvas.Pen.Color := OColor[i];
      Canvas.Arc (i, i, Width-i, Height-i, i, i, i, i);
      Canvas.Ellipse (3, 3, Width-3, Height-3);
      Canvas.TextOut (x,y, Caption+' ');
    end;
end;

Benutze die Klasse TCustomControl für die komponente

[sentinal]

Hallo,

was ist den z.B. OColor?

sentinal

[Vader]

hallo arbu man

du schreibst : "Benutze die Klasse TCustomControl für die komponente"

wie geht das wo schreibe ich das hinein "TCustomControl"
und die komponente ist mir auch nicht klar wo ich die finde ???

mfg vader

[jfheins]

du musst dir für den runden Button eine eigene Komponente schreiben.
Diese musst du von der Klasse TCustomControl ableiten ...

[Vader]

hallo,

ok danke
mfg vader

[sentinal]

Hallo!

Ich war nen Moment nicht da, kann mir hier nochmal jmd. etwas mehr Quellcode zu posten???

sentinal

[fkerber]

Hi!

Was willst du denn wissen?

Ciao Frederic

[sentinal]

Hallo,

naja, irgendwo muss der Code von oben ja eingebaut werden.
Also wäre es ganz nett mal zu wissen wo.

Normal fängt ein neuer type ja immer mit ner Definition an und muss es eine eigene create geben oder eine onclick etc pp.

[fkerber]

Hi!

Es sieht sehr nach der OnPaint aus.


Ciao Frederic