(0007018)
remkobonte (developer)
2005-04-16 02:35
edited on: 2005-04-16 02:36
|
I think the dock controls assume that you do NOT alter (resize) the dock panels at run-time. Try using the properties LRDockWidth, TBDockHeight for that (either of the form or the TJvDockClient component):
procedure TForm1.setDefaultLayout;
procedure VSNetDockForm(AForm: TForm; APanel: TJvDockVSNETPanel; AutoHide: Boolean; Align: TAlign);
begin
AForm.ManualDock(APanel, nil, Align);
APanel.ShowDockPanel(True, AForm);
if AutoHide then
APanel.DoAutoHideControl(AForm);
end;
begin
// dckSrv.LeftDockPanel.Width := Round(Self.Width * 0.3);
frmMailbox.dck.LRDockWidth := Round(Self.Width * 0.3);
VSNetDockForm(frmMailbox, dckSrv.LeftDockPanel as TJvDockVSNETPanel, False, alTop);
ReshowAllVisibleWindow; //otherwise we have painting problems
end;
|