Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HJay,
2. Jan 2010
Hallo Garfield! Ja, ich bin auf die Frage ja nur "aufgesprungen", weil mich das Thema interessierte. Mir geht es eigentlich nur ganz allgemein darum, wie man auf Controls, die keinen Canvas haben, etwas zeichnen kann. Das klappt ja auch schon fast, nur eben nicht vollständig. Das finde ich ärgerlich und komme mir blöde vor. OnPaint wird ausgeführt, aber anscheinend reicht das nicht, um alle...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HJay,
2. Jan 2010
Ja, könnte man auch jedesmal im OnPaint machen. Werde ich mal ändern, obwohl ich es elegant fand, es nur einmal zu machen. Der Button soll ja auch nur auf Formularen oder anderen WinControls liegen.
Leider hat das aber nichts mit dem Problem zu tun, dass der Button zwar richtig gezeichnet wird und über TCanvas angesprochen werden kann, jedoch nach dem Drücken die Paint-Routine nicht aufgerufen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HJay,
2. Jan 2010
Hat keiner von den Kennern hier eine Lösung? Ist echt schade, dass es FAST geht, aber dann an so einer Kleinigkeit scheitert. Wäre echt dankbar, wenn jemand noch einmal einen Blick drauf werfen könnte, denn das gleich Prinzip wäre für viele andere Komponenten ohne eigenen Canvas ja auch brauchbar!
Danke im voraus! (was ein Danke im nachhinein nicht ausschließen soll :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HJay,
16. Dez 2009
Sehr interessantes Thema! Ich versuche mich gerade in Vererbung und Objekterzeugung einzuarbeiten und bin auch an einer Lösung interessiert.
Erste Idee wäre gewesen:
TMyButton = class(TButton)
protected
procedure Paint(var Message: TMessage); message WM_PAINT;
public
UpperLine : String;
LowerLine : String;