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

Enabled the colour picker button. (The Colour Picker is now functional)

Browse Source 
The only thing left to do for the colour picker is to add an easy way to access the picker history. :) 



git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@80 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-22 23:58:14 +00:00
parent 9ffbcc2234
commit 55736bdaaf
6 changed files with 762 additions and 729 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

202
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="5"/> <ActiveEditorIndexAtStart Value="7"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -33,15 +33,15 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="117"> <Units Count="118">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="61" Y="11"/> <CursorPos X="75" Y="11"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="122"/> <UsageCount Value="126"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -170,10 +170,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="81" Y="66"/> <CursorPos X="93" Y="118"/>
<TopLine Value="57"/> <TopLine Value="88"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<UsageCount Value="88"/> <UsageCount Value="92"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
@ -302,20 +302,20 @@
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="29" Y="32"/> <CursorPos X="50" Y="15"/>
<TopLine Value="17"/> <TopLine Value="14"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="87"/> <UsageCount Value="91"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../Units/MMLCore/mufasatypes.pas"/> <Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<CursorPos X="3" Y="15"/> <CursorPos X="69" Y="25"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<UsageCount Value="87"/> <UsageCount Value="91"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
@ -331,16 +331,16 @@
<UnitName Value="files"/> <UnitName Value="files"/>
<CursorPos X="37" Y="42"/> <CursorPos X="37" Y="42"/>
<TopLine Value="271"/> <TopLine Value="271"/>
<UsageCount Value="88"/> <UsageCount Value="92"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Window"/> <UnitName Value="Window"/>
<CursorPos X="44" Y="28"/> <CursorPos X="62" Y="210"/>
<TopLine Value="6"/> <TopLine Value="154"/>
<EditorIndex Value="8"/> <EditorIndex Value="9"/>
<UsageCount Value="87"/> <UsageCount Value="91"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
@ -375,10 +375,10 @@
<Filename Value="../../Units/MMLCore/finder.pas"/> <Filename Value="../../Units/MMLCore/finder.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="finder"/> <UnitName Value="finder"/>
<CursorPos X="63" Y="22"/> <CursorPos X="23" Y="385"/>
<TopLine Value="11"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="80"/> <UsageCount Value="84"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
@ -394,7 +394,7 @@
<UnitName Value="MMLThread"/> <UnitName Value="MMLThread"/>
<CursorPos X="132" Y="5"/> <CursorPos X="132" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="78"/> <UsageCount Value="82"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/>
@ -406,10 +406,10 @@
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="32" Y="268"/> <CursorPos X="66" Y="184"/>
<TopLine Value="249"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="76"/> <UsageCount Value="80"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
@ -539,8 +539,8 @@
<UnitName Value="bitmaps"/> <UnitName Value="bitmaps"/>
<CursorPos X="63" Y="428"/> <CursorPos X="63" Y="428"/>
<TopLine Value="419"/> <TopLine Value="419"/>
<EditorIndex Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="66"/> <UsageCount Value="70"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit69> </Unit69>
<Unit70> <Unit70>
@ -561,7 +561,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="30" Y="34"/> <CursorPos X="30" Y="34"/>
<TopLine Value="22"/> <TopLine Value="22"/>
<UsageCount Value="65"/> <UsageCount Value="69"/>
</Unit72> </Unit72>
<Unit73> <Unit73>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/>
@ -692,9 +692,9 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="colour_conv"/> <UnitName Value="colour_conv"/>
<CursorPos X="49" Y="141"/> <CursorPos X="49" Y="141"/>
<TopLine Value="141"/> <TopLine Value="117"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="48"/> <UsageCount Value="52"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit92> </Unit92>
<Unit93> <Unit93>
@ -754,8 +754,8 @@
<UnitName Value="plugins"/> <UnitName Value="plugins"/>
<CursorPos X="86" Y="128"/> <CursorPos X="86" Y="128"/>
<TopLine Value="128"/> <TopLine Value="128"/>
<EditorIndex Value="10"/> <EditorIndex Value="11"/>
<UsageCount Value="42"/> <UsageCount Value="46"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit101> </Unit101>
<Unit102> <Unit102>
@ -848,138 +848,148 @@
<UnitName Value="dtm"/> <UnitName Value="dtm"/>
<CursorPos X="52" Y="15"/> <CursorPos X="52" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="23"/> <UsageCount Value="27"/>
</Unit115> </Unit115>
<Unit116> <Unit116>
<Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<UnitName Value="CompPicker"/> <UnitName Value="CompPicker"/>
<CursorPos X="26" Y="111"/> <CursorPos X="47" Y="240"/>
<TopLine Value="91"/> <TopLine Value="216"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<UsageCount Value="10"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit116> </Unit116>
<Unit117>
<Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="colourpicker"/>
<CursorPos X="22" Y="112"/>
<TopLine Value="88"/>
<EditorIndex Value="7"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
</Unit117>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="39" Column="26" TopLine="26"/> <Caret Line="22" Column="64" TopLine="13"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="27" Column="30" TopLine="26"/> <Caret Line="27" Column="10" TopLine="13"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="18" Column="22" TopLine="16"/> <Caret Line="59" Column="8" TopLine="40"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="29" Column="30" TopLine="16"/> <Caret Line="62" Column="29" TopLine="40"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="35" Column="50" TopLine="16"/> <Caret Line="90" Column="8" TopLine="71"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="307" Column="3" TopLine="286"/> <Caret Line="99" Column="8" TopLine="71"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="31" Column="30" TopLine="31"/> <Caret Line="37" Column="8" TopLine="7"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="32" Column="30" TopLine="31"/> <Caret Line="39" Column="3" TopLine="11"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="33" Column="30" TopLine="31"/> <Caret Line="46" Column="8" TopLine="11"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="34" Column="30" TopLine="31"/> <Caret Line="41" Column="25" TopLine="14"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="35" Column="30" TopLine="31"/> <Caret Line="39" Column="49" TopLine="14"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="36" Column="30" TopLine="31"/> <Caret Line="81" Column="9" TopLine="47"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="35" Column="30" TopLine="31"/> <Caret Line="102" Column="3" TopLine="73"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="36" Column="30" TopLine="31"/> <Caret Line="90" Column="39" TopLine="71"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="37" Column="30" TopLine="31"/> <Caret Line="33" Column="27" TopLine="1"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="30" Column="31" TopLine="30"/> <Caret Line="177" Column="1" TopLine="139"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="23" Column="34" TopLine="10"/> <Caret Line="166" Column="24" TopLine="141"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="19" Column="37" TopLine="10"/> <Caret Line="36" Column="29" TopLine="19"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="39" Column="27" TopLine="24"/> <Caret Line="40" Column="70" TopLine="22"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="290" Column="26" TopLine="275"/> <Caret Line="45" Column="19" TopLine="26"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="10" Column="5" TopLine="1"/> <Caret Line="46" Column="45" TopLine="23"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="281" Column="25" TopLine="263"/> <Caret Line="36" Column="42" TopLine="13"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="44" Column="27" TopLine="31"/> <Caret Line="25" Column="34" TopLine="24"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="testunit.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
<Caret Line="310" Column="5" TopLine="288"/> <Caret Line="35" Column="20" TopLine="24"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="312" Column="27" TopLine="292"/> <Caret Line="46" Column="3" TopLine="13"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="47" Column="31" TopLine="32"/> <Caret Line="37" Column="7" TopLine="1"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
<Caret Line="50" Column="31" TopLine="31"/> <Caret Line="169" Column="8" TopLine="136"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="28" Column="37" TopLine="11"/> <Caret Line="101" Column="10" TopLine="73"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="40" Column="35" TopLine="9"/> <Caret Line="49" Column="48" TopLine="49"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="50" Column="31" TopLine="35"/> <Caret Line="118" Column="42" TopLine="88"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

2
Projects/SAMufasaGUI/project1.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, LResources, Window, files, MufasaTypes, Client, TestUnit, finder, Forms, LResources, Window, files, MufasaTypes, Client, TestUnit, finder,
MMLThread, mmlpsthread, bitmaps, colour_conv, plugins, DTM; MMLThread, mmlpsthread, bitmaps, colour_conv, plugins, DTM, colourpicker;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

11
Projects/SAMufasaGUI/testunit.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 356 Left = 1128
Height = 541 Height = 541
Top = 203 Top = 149
Width = 763 Width = 763
ActiveControl = SynEdit1 ActiveControl = SynEdit1
Caption = 'Mufasa v2' Caption = 'Mufasa v2'
@ -25,8 +25,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BookMarkOptions.OnChange = nil Gutter.Width = 57
Gutter.Width = 61
Gutter.MouseActions = < Gutter.MouseActions = <
item item
Shift = [] Shift = []
@ -606,7 +605,7 @@ object Form1: TForm1
Width = 23 Width = 23
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 21 Width = 17
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
@ -788,8 +787,8 @@ object Form1: TForm1
Left = 145 Left = 145
Top = 2 Top = 2
Caption = 'TB_PickColour' Caption = 'TB_PickColour'
Enabled = False
ImageIndex = 6 ImageIndex = 6
OnClick = PickColorEvent
end end
object TB_SelectClient: TToolButton object TB_SelectClient: TToolButton
Left = 168 Left = 168

1250
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

16
Projects/SAMufasaGUI/testunit.pas
View File

@ -11,7 +11,8 @@ uses
MufasaTypes, MufasaTypes,
mmlpsthread, mmlpsthread,
mmlthread, mmlthread,
window // for the comp picker and selector window, // for the comp picker and selector
colourpicker
; ;
type type
@ -45,10 +46,12 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure MenuItemRunClick(Sender: TObject); procedure MenuItemRunClick(Sender: TObject);
procedure PickColorEvent(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
Window: TMWindow; Window: TMWindow;
Picker: TMColorPicker;
{ public declarations } { public declarations }
end; end;
@ -87,6 +90,8 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
Window := TMWindow.Create; Window := TMWindow.Create;
Picker := TMColorPicker.Create(Window);
MainDir:= ExtractFileDir(Application.ExeName); MainDir:= ExtractFileDir(Application.ExeName);
PluginsGlob := TMPlugins.Create; PluginsGlob := TMPlugins.Create;
PluginsGlob.PluginDirs.Add(ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS)); PluginsGlob.PluginDirs.Add(ExpandFileName(MainDir + DS + '..' + DS + '..'+ DS + 'Plugins'+ DS));
@ -95,6 +100,7 @@ end;
procedure TForm1.FormDestroy(Sender: TObject); procedure TForm1.FormDestroy(Sender: TObject);
begin begin
Picker.Free;
Window.Free; Window.Free;
PluginsGlob.Free; PluginsGlob.Free;
end; end;
@ -104,6 +110,14 @@ begin
Run; Run;
end; end;
procedure TForm1.PickColorEvent(Sender: TObject);
var
c, x, y: Integer;
begin
Picker.Pick(c, x, y);
writeln('Picked colour: ' + inttostr(c) + ' at (' + inttostr(x) + ', ' + inttostr(y) + ')');
end;
initialization initialization
{$I testunit.lrs} {$I testunit.lrs}

10
Units/MMLCore/window.pas
View File

@ -37,6 +37,7 @@ type
function SetTarget(ArrPtr: PRGB32; Size: TPoint): integer; overload; function SetTarget(ArrPtr: PRGB32; Size: TPoint): integer; overload;
procedure SetWindow(Window: TMWindow); procedure SetWindow(Window: TMWindow);
procedure SetDesktop;
{ {
Freeze Client Feature. Freeze Client Feature.
@ -206,6 +207,15 @@ begin
end; end;
end; end;
procedure TMWindow.SetDesktop;
begin
{$IFDEF LINUX}
Self.SetTarget(Self.DesktopWindow);
{$ELSE}
Self.SetTarget(windows.GetDesktopWindow, w_Window);
{$ENDIF}
end;
function TMWindow.GetColor(x, y: integer): TColor; function TMWindow.GetColor(x, y: integer): TColor;
begin begin
{$IFDEF WINDOWS} {$IFDEF WINDOWS}