moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -05:00
Code Issues Releases Wiki Activity

Colour picker change.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@88 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-23 21:53:52 +00:00
parent 7806e9ceac
commit 8f7966e002
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Units/MMLAddon/colourpicker.pas
View File

@ -8,6 +8,12 @@ uses
Classes, SysUtils, LCLIntf,LCLType,InterfaceBase,Forms,Controls,ExtCtrls,
Graphics,
Window
{$IFNDEF PICKER_CLIENT}
{$IFDEF LINUX}
,x
{$ENDIF}
{$ENDIF}
;
type
@ -62,8 +68,22 @@ procedure TMColorPicker.Pick(Var C, X, Y: Integer);
var
w, h: integer;
bmp: TBitmap;
{$IFNDEF PICKER_CLIENT}
{$IFDEF LINUX}
OldWindow: TWindow;
{$ENDIF}
{$ENDIF}
begin
Form := TForm.Create(Application.MainForm);
{$IFNDEF PICKER_CLIENT}
{$IFDEF LINUX}
OldWindow := Window.CurWindow;
Window.SetTarget(Window.DesktopWindow);
{$ENDIF}
{$ENDIF}
Window.GetDimensions(w, h);
Form.Width := w;
@ -119,6 +139,12 @@ begin
x := Colorx;
y := Colory;
{$IFNDEF PICKER_CLIENT}
{$IFDEF LINUX}
Window.SetTarget(OldWindow);
{$ENDIF}
{$ENDIF}
Note.Free;
Bitmap.Free;
Timor.Free;