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

designer: don't redraw component captions if they are not visible

Browse Source 
git-svn-id: trunk@20296 -
This commit is contained in:
paul 2009-05-29 10:33:45 +00:00
parent f83ed67b2d
commit bb721d48bf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/customformeditor.pp
View File

@ -48,7 +48,7 @@ uses
LazarusIDEStrConsts, Project, JITForms, LazarusIDEStrConsts, Project, JITForms,
CustomNonFormDesigner, NonControlDesigner, FrameDesigner, CustomNonFormDesigner, NonControlDesigner, FrameDesigner,
ComponentReg, IDEProcs, ComponentEditors, KeyMapping, EditorOptions, ComponentReg, IDEProcs, ComponentEditors, KeyMapping, EditorOptions,
DesignerProcs; EnvironmentOpts, DesignerProcs;
const const
OrdinalTypes = [tkInteger,tkChar,tkEnumeration,tkbool]; OrdinalTypes = [tkInteger,tkChar,tkEnumeration,tkbool];
@ -1273,7 +1273,8 @@ begin
else else
begin begin
DesignerForm := GetDesignerForm(AComponent); DesignerForm := GetDesignerForm(AComponent);
if DesignerForm <> nil then if (DesignerForm <> nil) and (DesignerForm.Designer <> nil) and
EnvironmentOptions.ShowComponentCaptions then
DesignerForm.Invalidate; DesignerForm.Invalidate;
end; end;
end; end;