Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
2. Okt 2006
Diese hab ich wohl vergessen. In dieser kann man Prüfungen durchführen bevor man Werte in private Klassenmember übernimmt
procedure TWindradTimer.setX1( Value: Integer);
begin
if value > 0 then // Hier noch mehr Überprüfungen möglich.
Fx1 := Value;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
2. Okt 2006
type
TWindradTimer = class (TTimer)
private
FCanvas: TCanvas;
Fx1: Integer;
public
constructor Create (AOwner:TComponent);override;
constructor Create (AOwner:TComponent; Canvas: TCanvas; startx: Integer);
procedure setX1( value: Integer);
procedure OnTimerEvent(Sender:TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
2. Okt 2006
das hab ich vorhin übersehen, du verwendest ja in der Zeichenroutine auch noch globale Variablen.
Implementiere diese auch noch als properties und erweitere den Konstruktor dementsprechend.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
2. Okt 2006
Nach Entfernung von Globalreferenzen:
type
TWindradTimer = class (TTimer)
private
FCanvas: TCanvas;
public
constructor Create (AOwner:TComponent);override;
constructor Create (AOwner:TComponent; Canvas: TCanvas);
procedure OnTimerEvent(Sender:TObject);
published
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
2. Okt 2006
constructor TWindradTimer.Create (AOwner:TComponent); // timer wird erstellt
begin
inherited Create (AOwner);
Enabled:=True;
OnTimer:=OnTimerEvent;
end;
Und jetzt würde ich, wie ich oben schon mal schrieb, den Verweise auf die globalen Variablen entfernen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mkinzler,
1. Okt 2006
In deinem code macht er aber garnichts.