1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-04 16:35:15 -05:00

Fixed some bugs in the color picker

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

View File

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