Ich hab mir mal überlegt, einen kleinen Paint-Klon zu schreiben... Nunja, ich bin noch ziemlich am Anfang
Und zwar hab ich Probleme damit, Linien zu zeichnen. Ich hab mir überlegt, eine globale boolsche variable zu erstellen. Im OnMouseDown wird sie auf True gesetzt, im OnMouseUp auf False. Dann im OnMouseMove folgende Abfrage:
Delphi-Quellcode:
var
pt: Tpoint;
begin
if Zeichnen = true then
begin
pt := Mouse.CursorPos;
Canvas.Pixels [pt.X-196, pt.y-145] := clBlack;
end;
end;
Nur ist mir das zu langsam. Wenn ich die Maus langsam bewege, wird ordentlich gezeichnet, bei schnelleren Bewegungen sieht man jedoch nur einzelne Punkte... Kennt jemand eine andere Möglichkeit dafür oder kann mir einen Tipp geben, um das ganze zu beschleunigen?