Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0003901 [JEDI VCL] 00 JVCL Components major always 2006-09-13 09:40 2006-09-29 06:48
Reporter drader View Status public  
Assigned To obones
Priority normal Resolution fixed  
Status resolved   Product Version Daily / GIT
Summary 0003901: CustomDock Layout saving
Description In the unit jvDockInfo, the function
function FindDockPanel(const ControlName: string): TWinControl;
dosn't handle the CustomDockPanel panel.

This Doesn't allow to reload a saved layout that includes CustomDocked forms.
I suggest to change the function as in the additional information:
Additional Information function FindDockPanel(const ControlName: string): TWinControl;
var
  Index: Word;
  DockServer: TJvDockServer;
begin
  Result := nil;
  Index := Pos(RsDockJvDockInfoSplitter, ControlName);
  if Index = 0 then
    Exit;
  Result := FindDockForm(Copy(ControlName, 1, Index - 1));
  if Result <> nil then
  begin
    DockServer := FindDockServer(Result);
    if DockServer <> nil then
      with DockServer do
      begin
        if Pos('TopDockPanel', ControlName) > Index then
          Result := TopDockPanel
        else
        if Pos('LeftDockPanel', ControlName) > Index then
          Result := LeftDockPanel
        else
        if Pos('BottomDockPanel', ControlName) > Index then
          Result := BottomDockPanel
        else
        if Pos('RightDockPanel', ControlName) > Index then
          Result := RightDockPanel

     // Add the handling of customDockPanels
     // ******************************************
       else
        if Pos('CustomDockPanel', ControlName) > Index then
          Result := CustomDockPanel;
     // ******************************************

        // Mantis 360 3: No more AV, Result may not always be a TJvDockVSNETPanel
        if (Result is TJvDockVSNETPanel) and (Pos('PopupPanel', ControlName) > 20) then
          Result := (Result as TJvDockVSNETPanel).VSChannel.VSPopupPanel;
      end;
  end;
end;
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0010240)
obones (administrator)
2006-09-29 06:48

This is now fixed in SVN

- Issue History
Date Modified Username Field Change
2006-09-13 09:40 drader New Issue
2006-09-29 06:48 obones Status new => resolved
2006-09-29 06:48 obones Fixed in Version => Daily / SVN
2006-09-29 06:48 obones Resolution open => fixed
2006-09-29 06:48 obones Assigned To => obones
2006-09-29 06:48 obones Note Added: 0010240


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker