|
2005-02-06 05:32
|
Dock bug.zip (328,622 bytes) |
|
2005-02-06 05:38
|
screenshot2.png (41,814 bytes) |
|
|
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; |
|
|
No answers, this is considered fixed. |
- Anonymous
