ich hab hier grad so einen WTF Moment.
Ich bin unter Linux Mint Mate 21.3 mit Lazarus 3.99 (gehohlt via git pull heute um 11:35)
Man nehme ein leeres Projekt, plaziere irgendwo eine TPaintbox und sorge dass folgender Code passt (oder lädt den in der Anlage runter):
Code: Alles auswählen
Procedure TForm1.PaintBox1Paint(Sender: TObject);
Begin
PaintBox1.Canvas.Brush.Color := clred;
PaintBox1.Canvas.Rectangle(-1, -1, PaintBox1.Width + 1, PaintBox1.Height + 1);
End;
Procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
label1.caption := format('%d %d', [x, y]);
If ssleft In shift Then Begin
PaintBox1.canvas.Pixels[x, y] := clBlack;
End;
End;
Kann das jemand bestätigen ?