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

fixed hiding uninitialized controls

Browse Source 
git-svn-id: trunk@5389 -
This commit is contained in:
mattias 2004-04-09 23:52:01 +00:00
parent db4561b8ae
commit 26b4223134
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/pascalparsertool.pas
View File

@ -1178,6 +1178,7 @@ function TPascalParserTool.ReadTilProcedureHeadEnd(
class function X: integer;
function QWidget_mouseGrabber(): QWidgetH; cdecl;
procedure Intf.Method = ImplementingMethodName;
function CommitUrlCacheEntry; // only Delphi
proc specifiers without parameters:
stdcall, virtual, abstract, dynamic, overload, override, cdecl, inline

4
lcl/controls.pp
View File

@ -1254,6 +1254,7 @@ type
FRealizeBoundsLockCount: integer;
FHandle: Hwnd;
FShowing: Boolean;
FShowingValid: Boolean;
FTabList: TList;
FUseDockManager: Boolean;
FWinControls: TList;
@ -2240,6 +2241,9 @@ end.
{ =============================================================================
$Log$
Revision 1.194 2004/04/09 23:52:01 mattias
fixed hiding uninitialized controls
Revision 1.193 2004/04/04 12:32:21 mattias
TWinControl.CanTab now checks for CanFocus

11
lcl/include/wincontrol.inc
View File

@ -1083,9 +1083,10 @@ begin
end;
if HandleAllocated then begin
if FShowing <> bShow
then begin
//writeln('TWinControl.UpdateShowing A ',Name,':',ClassName,' FShowing=',FShowing,' bShow=',bShow);
if (not FShowingValid) or (FShowing <> bShow) then begin
FShowing := bShow;
FShowingValid := true;
ok:=false;
try
Perform(CM_SHOWINGCHANGED, 0, 0);
@ -2241,7 +2242,7 @@ end;
{ TWinControl UpdateControlState }
{------------------------------------------------------------------------------}
procedure TWinControl.UpdateControlState;
var AWinControl : TWinControl;
var AWinControl: TWinControl;
begin
AWinControl:= Self;
{ If any of the parent is not visible, exit }
@ -3422,7 +3423,6 @@ begin
// ToDo: do not send this while loading, send it after loading.
if HandleAllocated and ([csDestroying]*ComponentState=[])then
CNSendMessage(LM_ShowHide, Self, nil);
// SetWindowPos(Handle, 0, 0, 0, 0, 0, ShowFlags[FShowing]);
end;
{------------------------------------------------------------------------------
@ -3446,6 +3446,9 @@ end;
{ =============================================================================
$Log$
Revision 1.216 2004/04/09 23:52:01 mattias
fixed hiding uninitialized controls
Revision 1.215 2004/04/04 12:32:21 mattias
TWinControl.CanTab now checks for CanFocus