Forum: Object-Pascal / Delphi-Language
Delphi
by hanselmansel,
8. Dez 2005
type
TDiagramm = class(TGraphicControl)
private
FForm : TForm;
FRand : Boolean;
FHeight : Integer;
FWidth : Integer;
procedure Diagramm();
public
procedure Paint; override;
Forum: Object-Pascal / Delphi-Language
Delphi
by hanselmansel,
8. Dez 2005
Erstmal leitest du ihn von TGraphicControl ab.
Deinen Graphen kannst du dann entweder direkt auf das Canvas des GraphicControls zeichnen, oder du kopiert das Canvas aus deinem geposteten Code auf das Canvas des GraphicControls. die Höhe und Breite der Komponente musst du trotzdem anpassen.
Forum: Object-Pascal / Delphi-Language
Delphi
by hanselmansel,
8. Dez 2005
Height := i.Height;
Width := i.Width;
Das Ganze in einem Codeabschnitt, der immer dann ausgeführt wird, wenn die Parameter von i geändert werden. Also entweder in den Setter-Methoden der entsprechenden Propertys oder evtl. im OnPaint. (Wobei OnPaint wahrscheinlich viel zu oft, und zur falschen Zeit ausgeführt wird...)