Mega Code Archive
Mouse ile paint prg gibi cizim yapmak
<![CDATA[
//Ersin Kecis. 04/03/2003. ersinkecis@hotmail.com
//eskiden yaptigim bir programin "hata haritasi" bolumunden...
//lHarita = TLabel (Color=clWhite, AutoSize=False, ebat=bayaa buyuk!)
//not: bunu sabit duran bir formda calistirmalisiniz. cunku bu cizgiler
//formun bir parcasi olmaz. formun ilk refresh edilmesiyle birlikte silinir.
//bunu ekrandan capture edip bmp olarak kaydederseniz o zaman bir ise yarabilir...
var
X1,Y1:Integer;
Ciz:Boolean=False;
procedure TfAnaMenu.lHaritaMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Ciz then
begin
lHarita.Canvas.Pen.Color:=clBlue;
lHarita.Canvas.FillRect(ClientRect);
lHarita.Canvas.MoveTo(X1,Y1);
lHarita.Canvas.LineTo(X,Y);
X1:=X;
Y1:=Y;
end;
end;
procedure TfAnaMenu.lHaritaMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Y1:=X;
Y1:=Y;
Ciz:=True;
end;
procedure TfAnaMenu.lHaritaMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Ciz:=false;
end;
]]>