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:
parent
e550e54d45
commit
6743cec251
@ -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,
|
||||
|
Loading…
Reference in New Issue
Block a user