View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0003018 | JEDI VCL | 00 JVCL Components | public | 2005-06-04 16:58 | 2005-06-26 06:27 |
| Reporter | anonymous | Assigned To | remkobonte | ||
| Priority | normal | Severity | major | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.00 | ||||
| Target Version | Fixed in Version | 3.10 | |||
| Summary | 0003018: Wrong images in JvDocking TabHost | ||||
| Description | To reproduce Create two dock forms with different icons. Using the .NET Style dock them in a tab host programmatically e.g. ManualTabDock(DockServer.BottomDockPanel, CallStackWindow, VariablesWindow); The images on the tabs will be the same on both tabs. If you save and restore the dock layout the problem no longer exists. | ||||
| Additional Information | Suggested Solution: In procedure TJvDockVIDTabPageControl.DockDrop replace two lines as follows: procedure TJvDockVIDTabPageControl.DockDrop(Source: TDragDockObject; X, Y: Integer); var Index: Integer; begin inherited DockDrop(Source, X, Y); FPanel.SelectSheet := nil; ParentForm.Caption := ActivePage.Caption; if Source.Control is TCustomForm then begin if Source.Control.Visible and (Source.Control.Parent is TJvDockTabSheet) then ActivePage := TJvDockTabSheet(Source.Control.Parent); if FTabImageList <> nil then begin Index := FTabImageList.AddIcon(TForm(Source.Control).Icon); //if (Index <> -1) and (ActivePage <> nil) then // ActivePage.ImageIndex := Index; //KV above two lines replaced with the following two if (Index <> -1) and (Source.Control.Parent is TJvDockTabSheet) then TJvDockTabSheet(Source.Control.Parent).ImageIndex := Index; end; end; end; | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2005-06-04 16:58 | anonymous | New Issue | |
| 2005-06-05 14:14 | remkobonte | Status | new => assigned |
| 2005-06-05 14:14 | remkobonte | Assigned To | => remkobonte |
| 2005-06-26 06:27 | remkobonte | Status | assigned => resolved |
| 2005-06-26 06:27 | remkobonte | Resolution | open => fixed |
| 2005-06-26 06:27 | remkobonte | Note Added: 0007494 |
