moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-17 06:45:11 -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 implementation
uses uses
lclintf,plugins,windows; lclintf,plugins;
@ -77,12 +77,11 @@ Var
begin begin
MMLPSThread := TMMLPSThread.Create(True); MMLPSThread := TMMLPSThread.Create(True);
MMLPSThread.SetPSScript(Form1.SynEdit1.Lines.Text); MMLPSThread.SetPSScript(Form1.SynEdit1.Lines.Text);
// MMLPSThread.Client.MWindow.SetTarget(461670,w_Window);
MMLPSThread.SetDebug(Form1.Memo1); MMLPSThread.SetDebug(Form1.Memo1);
// This doesn't actually set the Client's MWindow to the passed window, it // This doesn't actually set the Client's MWindow to the passed window, it
// only copies the current set window handle. // only copies the current set window handle.
MMLPSThread.Client.MWindow.SetTarget(GetDesktopWindow,w_window); MMLPSThread.Client.MWindow.SetWindow(Form1.Window);
MMLPSThread.Resume; MMLPSThread.Resume;
end; end;
@ -129,7 +128,7 @@ procedure TForm1.Selector_DOWN(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
Window.SetTarget(Selector.Drag {$ifdef MSWINDOWS},w_window{$endif}); 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; end;