Hallo @all,
ich habe ein TImage auf meiner Form liegen, dass sich bei Größenänderungen der Form mit ändert. Nun wollte ich beim Zeichnen auf das Image die ganze breite ausnutzen, was mit aber nicht gelingt.
Das Image selbst vergrößert sich wie gewünscht. Jedoch kann ich in den neuen Zeichenbereich nicht Zeichnen, die Größe der Zeichnung ändert sich also nicht mit der Größe des Image
Beispielcode:
Delphi-Quellcode:
with imgView.Canvas do
begin
Brush.Color := clBlack;
Pen.Color := clBlack;
Rectangle(imgView.ClientRect);
Pen.Color := clYellow;
Pen.Width := 2;
MoveTo(0, imgView.ClientHeight div 2 - 1);
LineTo(imgView.ClientWidth, imgView.ClientHeight div 2 - 1);
Pen.Width := 1;
end;
Weiß einer Rat?
Gruß,
Chris