moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 07:10:10 -05:00
Code Issues Releases Wiki Activity

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@90 3f818213-9676-44b0-a9b4-5e4c4e03d09d

Browse Source
This commit is contained in:
Raymond 2009-09-23 22:01:19 +00:00
parent f279ee1489
commit 02dc6d6cef
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Projects/SAMufasaGUI/testunit.pas
View File

@ -65,7 +65,7 @@ var
implementation
uses
lclintf,plugins,windows;
lclintf,plugins;
@ -77,12 +77,11 @@ Var
begin
MMLPSThread := TMMLPSThread.Create(True);
MMLPSThread.SetPSScript(Form1.SynEdit1.Lines.Text);
// MMLPSThread.Client.MWindow.SetTarget(461670,w_Window);
MMLPSThread.SetDebug(Form1.Memo1);
// This doesn't actually set the Client's MWindow to the passed window, it
// only copies the current set window handle.
MMLPSThread.Client.MWindow.SetTarget(GetDesktopWindow,w_window);
MMLPSThread.Client.MWindow.SetWindow(Form1.Window);
MMLPSThread.Resume;
end;
@ -129,7 +128,7 @@ procedure TForm1.Selector_DOWN(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Window.SetTarget(Selector.Drag {$ifdef MSWINDOWS},w_window{$endif});
writeln('New window: ' + IntToStr(Window.TargetHandle));
writeln('New window: ' + IntToStr(Window.{$ifdef MSWindows}TargetHandle{$else}CurWindow{$ENDIF}));
end;