updates to fix some issue

2007-02-06T02:48:05-08:00

Steps:1. Add MouseLeave event handler as follows-------------------------------------------------procedure TfrmMain.pbxDrawMouseLeave(Sender: TObject);begin preX := -1; preY := -1;end;-------------------------------------------------2. Add code in MouseDown event handler as follows -------------------------------------------------procedure TfrmMain.pbxDrawMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if GetKeyState(VK_LBUTTON) <0 then begin //-----add------------------------- if (preX = -1) or (preY = -1) then begin preX := X; preY := Y; end; //-----add------------------------- pbxDrawMouseMove(Sender, Shift, X, Y); end;end;-------------------------------------------------

Comments for ナッキーの「Turbo Delphiはじめて奮戦記」 - 第9回 お絵かきソフトを作ろう

updates to fix some issue

Comments for ナッキーの「Turbo Delphiはじめて奮戦記」 - 第9回お絵かきソフトを作ろう