moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Fixed some bugs in the color picker

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@312 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
bullzeye95 2009-12-21 21:52:41 +00:00
parent e550e54d45
commit 6743cec251
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/MMLAddon/colourpicker.pas
View File

@ -105,6 +105,8 @@ var
{$ENDIF} {$ENDIF}
begin begin
Application.MainForm.Enabled := False;
{ We create a Form, with the client image on it. } { We create a Form, with the client image on it. }
ScreenForm := TForm.Create(Application.MainForm); ScreenForm := TForm.Create(Application.MainForm);
InfoForm := TForm.Create(ScreenForm); InfoForm := TForm.Create(ScreenForm);
@ -180,6 +182,8 @@ begin
ScreenForm.Show; ScreenForm.Show;
InfoForm.Show; InfoForm.Show;
SetCursorPos(Mouse.CursorPos.X, Mouse.CursorPos.Y);
closed := False; closed := False;
while not Closed do //CBA to do this a better way... while not Closed do //CBA to do this a better way...
@ -205,6 +209,8 @@ begin
ImageInfo.Free; ImageInfo.Free;
InfoForm.Free; InfoForm.Free;
ScreenForm.Free; ScreenForm.Free;
Application.MainForm.Enabled := True;
end; end;
procedure TMColorPicker.ImageMainMouseMove(Sender: TObject; Shift: TShiftState; X, procedure TMColorPicker.ImageMainMouseMove(Sender: TObject; Shift: TShiftState; X,