Hallo,
ich schreibe gerade ein paintProgramm alles funktioniert prima nur:
ich möchte gerne wenn ich beim erstellen eines objekts, die rechte maustaste drücke soll er die anfangs position verschieben dazu habe ich folgenden qullcode der leider nicht funktioniert
Delphi-Quellcode:
var
sx,sy:integer;
begin
StatusBar1.Panels[0].Text:=IntToStr(x) + '\' + intToStr(y);
if Shift = [ssleft,ssRight] then begin
mx:=x; my:=y;
end;
if Shift = [ssLeft] then begin
StatusBar1.Panels[1].Text:=IntToStr(mx-ox) + 'X' + IntToStr(my-oy);
DrawObjekte(x,y,pmNotXor);
mx:=x; my:=y;
DrawObjekte(x,y,pmNotXor);
end;
BitBlt(PaintBox1.Canvas.Handle, 0, 0, bild.Width, bild.Height, bild.Canvas.Handle,0, 0, SrcCopy);
mx und my sind die anfangs positionen des objektes das ich gerne verschieben möchte