paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 23:07:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: example miniide info dialog

Browse Source 
git-svn-id: trunk@46491 -
This commit is contained in:
mattias 2014-10-09 13:54:41 +00:00
parent 09282cedd3
commit 61803e6910
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/anchordocking/minide/unit1.pas
View File

@ -123,7 +123,7 @@ procedure TMainIDE.GetInfo(sl: TStringList);
var
i: Integer;
aMonitor: TMonitor;
aForm: TForm;
aForm: TCustomForm;
begin
// monitors
sl.Add('Monitors:');
@ -139,12 +139,14 @@ begin
sl.Add('');
// forms
sl.Add('Visible Forms:');
for i:=0 to Screen.FormCount-1 do begin
aForm:=Screen.Forms[i];
sl.Add('Visible top level Forms:');
for i:=0 to Screen.CustomFormCount-1 do begin
aForm:=Screen.CustomForms[i];
if not aForm.Visible then continue;
sl.Add(' '+dbgs(i)+'/'+dbgs(Screen.FormCount)
+' Name="'+aForm.Name+'"'
if aForm.Parent<>nil then continue;
sl.Add(' '+dbgs(i)+'/'+dbgs(Screen.CustomFormCount)
+' Caption="'+aForm.Caption+'"'
+' Name="'+DbgSName(aForm)+'"'
+' BoundsRect='+dbgs(aForm.BoundsRect)
+' ClientRect='+dbgs(aForm.ClientRect)
+' MonitorNum='+dbgs(aForm.Monitor.MonitorNum)