Stehe vor folgendem Problem:
Versuche ein Zeichenprogramm zu erstellen. Meine ersten Versuche waren mit Canvas.
sah ungefähr so aus:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if getkeystate(VK_LBUTTON)<0 then begin
form1.Canvas.MoveTo(mouse.CursorPos.X,mouse.Cursor Pos.Y); while getasynckeystate(VK_LBUTTON)<0 do begin form1.Canvas.Pen.Color:=clred; form1.Canvas.lineto(mouse.CursorPos.X,mouse.Cursor Pos.Y); end; end;
end;
das ganze läuft auch wie ich es mir wünsche
nur leider wird das formular und alles gezeichnete nach einer gewissen zeit schwarz und ich muss alles neu zeichnen. Ich verstehe NICHT warum..
Das Programm läuft imm Vollbildmodus, wenn ich einmal kurz auf den Desktop gehe und das Programm danach wieder groß mache, ist das Formular wieder leer.