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

MG: improved clean up

Browse Source 
git-svn-id: trunk@1639 -
This commit is contained in:
lazarus 2002-04-26 12:26:50 +00:00
parent 13a8d7484d
commit f26700a739
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -160,7 +160,7 @@ type
Procedure SetFocus; override; Procedure SetFocus; override;
function SetFocusedControl(Control : TWinControl): Boolean ; Virtual; function SetFocusedControl(Control : TWinControl): Boolean ; Virtual;
Procedure FocusControl(Control : TWinControl); Procedure FocusControl(Control : TWinControl);
Function ShowModal : Integer; Function ShowModal : Integer;
property Active : Boolean read FActive; property Active : Boolean read FActive;
property BorderStyle : TFormBorderStyle read FBorderStyle write SetBorderStyle default bsSizeable; property BorderStyle : TFormBorderStyle read FBorderStyle write SetBorderStyle default bsSizeable;
property Canvas: TControlCanvas read GetCanvas; property Canvas: TControlCanvas read GetCanvas;

12
lcl/include/customform.inc
View File

@ -932,8 +932,17 @@ end;
{ TCustomForm ShowModal } { TCustomForm ShowModal }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Function TCustomForm.ShowModal : Integer; Function TCustomForm.ShowModal : Integer;
{var
WindowList: Pointer;
SaveFocusCount: Integer;
SaveCursor: TCursor;
SaveCount: Integer;
ActiveWindow: HWnd;}
begin begin
//writeln('[TCustomForm.ShowModal] START ',Classname); //writeln('[TCustomForm.ShowModal] START ',Classname);
if Visible or not Enabled or (fsModal in FFormState) or
(FormStyle = fsMDIChild) then
raise EInvalidOperation.Create('TCustomForm.ShowModal impossible');
{ TODO : This has to be changed by WM_VISIBLECHANGED. Implement appropriate callback !!! } { TODO : This has to be changed by WM_VISIBLECHANGED. Implement appropriate callback !!! }
//Kill capture when opening another dialog //Kill capture when opening another dialog
if GetCapture <> 0 then SendMessage(GetCapture,LM_CANCELMODE,0,0); if GetCapture <> 0 then SendMessage(GetCapture,LM_CANCELMODE,0,0);
@ -958,6 +967,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.39 2002/04/26 12:26:50 lazarus
MG: improved clean up
Revision 1.38 2002/03/25 17:59:20 lazarus Revision 1.38 2002/03/25 17:59:20 lazarus
GTK Cleanup GTK Cleanup
Shane Shane