Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Whookie,
5. Feb 2010
Ja richtig, innerhalb von WM_PAINT gibts schon eine Clipping Region und daher muß man das ganze dann mit den entsprechenden Funktionen machen.
Damit sieht (der Vollständigkeit halber) der Code von oben wie folgt aus:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
R: TRect;
begin
PaintBox1.Canvas.Pen.Color := clBlue;
PaintBox1.Canvas.MoveTo(0,0);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Whookie,
31. Jan 2010
Hallo zusammen!
Ich hab mal wieder an einer Komponente gebastelt. Sie besteht aus einem Rahmenbereich und dessen Innenleben. Beim Malen (im überschriebenen Paint) wollte ich dann einen Clipping-Bereich verwenden um das Überschreiben des Randes zu verhindern. Aber sobald ich das mache, wird gar nichts mehr ausgegeben. Also habe ich das ganze mal in eine PaintBox verlagert und komme da zum selben...