Discussions
Sign In
•
Register
Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Sign In with LMD account
Sign In with LMD account
Categories
Recent Discussions
Categories
All Categories
1.1K
NG Controls
28
Announcements
60
LMD IDE-Tools
209
LMD ElPack
373
LMD-Tools
414
Feature Requests
38
In this Discussion
Eugene Balabuev (LMD)
June 2020
IDKOSCH
June 2020
Adjust all document TLMDDockPanels with code
IDKOSCH
June 2020
in
LMD-Tools
Vote Up
0
Vote Down
is it possible to change all documentpanels (also all floating) as tabbed panels to center of site with code?
I mean when i drop all panels with mouse into the center but whithout mouse, by code?
Stefan
Comments
4 Comments
sorted by
Votes
Date Added
Eugene Balabuev (LMD)
June 2020
Posts: 0
Vote Up
0
Vote Down
You can use the following code (this will include all floating panels, because the we iterate form's Components collection, and because the Owner of components (which is a form) never changes):
procedure TForm3.Button1Click(Sender: TObject);
var
i: Integer;
pnl: TLMDDockPanel;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TLMDDockPanel then
begin
pnl := TLMDDockPanel(Components[i]);
if pnl.ClientKind = dkDocument then
LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alClient);
end;
end;
IDKOSCH
June 2020
Posts: 13
Vote Up
0
Vote Down
Thank you,
i tested your code, it makes all document dockpanels (also floating) to tabbed documents in the Site.
I want all documents to be horizontally next to each other with the same width
Stefan
Eugene Balabuev (LMD)
June 2020
Posts: 0
Vote Up
0
Vote Down
I've answered in another topic.
IDKOSCH
June 2020
Posts: 13
Vote Up
0
Vote Down
I've answered in that topic, there is a problem
Sign In
or
Register
to comment.
Comments