paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 08:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: improved TScreen and ShowModal

Browse Source 
git-svn-id: trunk@1156 -
This commit is contained in:
lazarus 2002-02-09 01:47:59 +00:00
parent 26106c6c21
commit 3ac2c699a1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/controls.pp
View File

@ -951,6 +951,7 @@ Procedure MoveWindowOrg(dc : hdc; X,Y : Integer);
procedure SetCaptureControl(Control : TControl);
function GetCaptureControl : TControl;
procedure CancelDrag;
var
NewStyleControls : Boolean;
@ -1234,6 +1235,12 @@ begin
end;
end;
procedure CancelDrag;
begin
if DragObject <> nil then DragDone(False);
DragControl := nil;
end;
function GetKeyShiftState: TShiftState;
begin
Result:=[];
@ -1344,6 +1351,9 @@ end.
{ =============================================================================
$Log$
Revision 1.70 2002/09/09 14:01:05 lazarus
MG: improved TScreen and ShowModal
Revision 1.69 2002/09/08 10:01:59 lazarus
MG: fixed streaming visible=false