Forum: Sonstige Fragen zu Delphi
by baumina,
24. Okt 2013
Zeig uns deinen Code, bei dem Du Kind bzw. FKind benutzt, um den Balken gedreht anzuzeigen, denn von selber weiß der Balken ja nix mit Kind bzw. FKind. anzufangen.
Forum: Sonstige Fragen zu Delphi
by baumina,
23. Okt 2013
:?: :?: :?: Nochmal bitte Code posten, ich komm nicht mit :stupid:
Forum: Sonstige Fragen zu Delphi
by baumina,
23. Okt 2013
procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer);
d.h. der letzte Parameter erwartet die Breite
Forum: Sonstige Fragen zu Delphi
by baumina,
23. Okt 2013
Meiner Meinung nach verhält sich ist mein Vorschlag proportional zur Größe des Rechtecks:
procedure THixBarGraph.Paint;
var
R: TRect;
begin
inherited paint;
if (Parent = NIL) or not visible
then exit;
Forum: Sonstige Fragen zu Delphi
by baumina,
23. Okt 2013
Rechne einfach nicht wie wild die Koordinaten für dein Rectangle aus, sondern nimm einfach nur
R := Rect(1, 1, Width - 1, Height - 1);
Forum: Sonstige Fragen zu Delphi
by baumina,
22. Okt 2013
Klicke auf das Formular und gehe im Objektinspektor unter Ereignisse auf das Ereignis "OnCreate" und mache da einen Doppelklick, so dass in der .DFM folgende Zeile eingefügt wird : OnCreate = FormCreate.
Daraufhin müsste das Ganze klappen.