View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0003901JEDI VCL00 JVCL Componentspublic2006-09-13 09:402006-09-29 06:48
ReporterdraderAssigned Toobones 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.30 
Summary0003901: CustomDock Layout saving
DescriptionIn 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 Informationfunction 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;
TagsNo tags attached.

Activities

obones

2006-09-29 06:48

administrator   ~0010240

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