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

fixed painting on datamodule forms

Browse Source 
git-svn-id: trunk@4787 -
This commit is contained in:
mattias 2003-11-09 10:28:38 +00:00
parent 7909407973
commit 94359fa79d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/formeditor.pp
View File

@ -73,6 +73,7 @@ procedure TFormEditor.PaintAllDesignerItems;
var var
i: Integer; i: Integer;
ADesigner: TDesigner; ADesigner: TDesigner;
AForm: TCustomForm;
begin begin
for i:=0 to JITFormList.Count-1 do begin for i:=0 to JITFormList.Count-1 do begin
ADesigner:=TDesigner(JITFormList[i].Designer); ADesigner:=TDesigner(JITFormList[i].Designer);
@ -80,6 +81,14 @@ begin
ADesigner.DrawDesignerItems(true); ADesigner.DrawDesignerItems(true);
end; end;
end; end;
for i:=0 to JITDataModuleList.Count-1 do begin
AForm:=GetDesignerForm(JITDataModuleList[i]);
if AForm=nil then continue;
ADesigner:=TDesigner(AForm.Designer);
if ADesigner<>nil then begin
ADesigner.DrawDesignerItems(true);
end;
end;
end; end;
end. end.