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

fixed TControl.Show and Visible of designer forms

Browse Source 
git-svn-id: trunk@2841 -
This commit is contained in:
mattias 2002-08-18 08:54:47 +00:00
parent 6ad6ae336f
commit 78767f1090
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -1903,6 +1903,7 @@ Begin
ShowEditorHints:=EnvironmentOptions.ShowEditorHints;
ShowComponentCaptionHints:=EnvironmentOptions.ShowComponentCaptions;
end;
SetDesigning(AForm,True);
end;
{-------------------------------------------------------------------------------
@ -2548,7 +2549,6 @@ procedure TMainIDE.ShowDesignForm(AForm: TCustomForm);
begin
// show form
AForm.Show;
SetDesigning(AForm,True);
FDisplayState:= dsForm;
// select the new form (object inspector, formeditor, control selection)
@ -7504,6 +7504,9 @@ end.
{ =============================================================================
$Log$
Revision 1.432 2002/11/16 14:38:47 mattias
fixed TControl.Show and Visible of designer forms
Revision 1.431 2002/11/13 13:40:12 lazarus
MG: codetools can now work with localized fpc output