View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0006717 | JEDI VCL | 00 JVCL Components | public | 2021-04-07 10:43 | 2021-04-23 18:30 |
| Reporter | PiedSoftware | Assigned To | AHUser | ||
| Priority | normal | Severity | major | Reproducibility | always |
| Status | closed | Resolution | fixed | ||
| Product Version | 3.48 | ||||
| Target Version | Fixed in Version | ||||
| Summary | 0006717: Colour drop down menus not showing colour in my code | ||||
| Description | The version is 3.5. The problem is explained here, with sample code and images to demonstrate the problem: https://en.delphipraxis.net/topic/4761-has-anyone-been-able-to-get-the-color-tjvspeeditem-to-work-correctly-on-tframe/ | ||||
| Steps To Reproduce | Download the code in the delphipraxis page I gave in the Description. Try dropping down the color menus in both the main form and the form of the sample code. | ||||
| Tags | No tags attached. | ||||
|
|
You set the ColorMenu.Style to msOwnerDraw but then you don't implement the OnDrawItem and OnMeasureItem. So your menu items have a width of 0px and a height of 16px. And nothing is painted anyway because OnDrawItem is not assign. The "example form" creates its own style painter TJvXPColorMenuItemPainter and assigns it to ColorMenu.ItemPainter. So this is not a bug but a handling error. procedure TEditorMainForm.FormCreate(Sender: TObject); ... begin ... ColorMenu.ItemPainter := TJvXPColorMenuItemPainter.Create(Self); BackgroundMenu.ItemPainter := TJvXPColorMenuItemPainter.Create(Self); |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2021-04-07 10:43 | PiedSoftware | New Issue | |
| 2021-04-20 19:46 | AHUser | Assigned To | => AHUser |
| 2021-04-20 19:46 | AHUser | Status | new => feedback |
| 2021-04-20 19:46 | AHUser | Note Added: 0021962 | |
| 2021-04-23 18:30 | AHUser | Status | feedback => closed |
| 2021-04-23 18:30 | AHUser | Resolution | open => fixed |
