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

Better order or drawing..

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@585 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-03-07 21:22:02 +00:00
parent f26d4c4b5e
commit c57c8dd50e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/Projects/SAMufasaGUI/testunit.pas
View File

@ -44,7 +44,7 @@ uses
about, framefunctionlist, ocr, updateform, simbasettings; about, framefunctionlist, ocr, updateform, simbasettings;
const const
SimbaVersion = 581; SimbaVersion = 585;
type type

4
trunk/Units/MMLAddon/windowselector.pas
View File

@ -192,14 +192,14 @@ begin;
DragForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Draw the transparent form DragForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Draw the transparent form
SetWindowRgn(EdgeForm.Handle,0,false);//Delete the old region SetWindowRgn(EdgeForm.Handle,0,false);//Delete the old region
EdgeForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Move the form etc..
Region := CreateRectRgn(0,0,w-1,h-1); //Create a full region, of the whole form Region := CreateRectRgn(0,0,w-1,h-1); //Create a full region, of the whole form
CombineRgn(Region,Region,CreateRectRgn(EdgeSize,EdgeSize,w-1-(edgesize),h-1-(edgesize)),RGN_XOR); //Combine a the 2 regions (of the full form and one without the edges) CombineRgn(Region,Region,CreateRectRgn(EdgeSize,EdgeSize,w-1-(edgesize),h-1-(edgesize)),RGN_XOR); //Combine a the 2 regions (of the full form and one without the edges)
SetWindowRgn(edgeform.Handle,Region,true);//Set the only-edge-region! SetWindowRgn(edgeform.Handle,Region,true);//Set the only-edge-region!
EdgeForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Move the form etc..
TempHandle := Handle; TempHandle := Handle;
end; end;
Application.ProcessMessages; Application.ProcessMessages;
Sleep(64); Sleep(30);
end; end;
Result := TempHandle; Result := TempHandle;
LastPick:= TempHandle; LastPick:= TempHandle;