1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-22 23:38:50 -05:00

Better order or drawing..

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

View File

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

View File

@ -192,14 +192,14 @@ begin;
DragForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Draw the transparent form
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
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!
EdgeForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Move the form etc..
TempHandle := Handle;
end;
Application.ProcessMessages;
Sleep(64);
Sleep(30);
end;
Result := TempHandle;
LastPick:= TempHandle;