Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by sko1,
19. Mär 2018
Das dumme aber ist, dass das Paint gefeuert wurde, per Breakpoint überprüft!
Ciao
Stefan
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by sko1,
19. Mär 2018
Lösung:
Ich habe in der Komponente nun eine
MyPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF)
und diese im OnCreate der Komponente zugewiesen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by sko1,
19. Mär 2018
Hallo Peter,
nein, hilft nicht!
Was mir aber nun bei 'zig Versuchen aufgefallen ist:
Schreibe ich eine OnPaint-Procedure in der FormMain und weise diese meiner Komponente zu, funktioniert es!
Hier aber habe ich als Parameter vom Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF), in der Komponente nicht!
Versuche ich diese Parameter in der Komponente zu verwenden, wird
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by sko1,
19. Mär 2018
Hallo,
in einer eigenen Komponente (von TSpeedButton abgeleitet) möchte ich einen blauen Rahmen mit weißem Inhalt haben.
Also habe ich im Paint der Komponente folgendes stehen:
procedure TTerminButton.Paint;
var
b, h: single;
begin