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
0002456 [JEDI VCL] 00 JVCL Components minor always 2005-01-02 13:43 2005-01-03 06:12
Reporter Simes View Status public  
Assigned To
Priority normal Resolution fixed  
Status resolved   Product Version 3.00 BETA 2
Summary 0002456: TJvPopUpMenu caption incorrect
Description Run the code below. The pop-up menu caption is shown as '0 ' when it should show more text. This only occurs when there is in invisible menu item after the item of interest.

Tested in D5 Pro and D7 Enterprise.
Additional Information unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, JvMenus, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  ShowBug1: boolean = true; // change either of these to false, ...
  ShowBug2: boolean = true; // ...and the bug doesn't happen

procedure TForm1.FormCreate(Sender: TObject);
var
  mi: TMenuItem;
begin
  PopUpMenu := TJvPopupMenu.Create(Self);
  TJvPopupMenu(PopUpMenu).Style := msXP;

  mi := TMenuItem.Create(self);
  PopUpMenu.Items.Add(mi);
  mi.Caption := '&0. This caption isn''t shown!';

  if ShowBug1 then begin
    mi := TMenuItem.Create(self);
    PopUpMenu.Items.Add(mi);
    mi.Caption := '&1. When this isn''t visible';
    mi.Visible := not ShowBug2;
  end;
end;

end.
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0006067)
AHUser (developer)
2005-01-03 06:12

Fixed in CVS.

- Issue History
Date Modified Username Field Change
2005-01-02 13:43 Simes New Issue
2005-01-03 06:12 AHUser Status new => resolved
2005-01-03 06:12 AHUser Resolution open => fixed
2005-01-03 06:12 AHUser Assigned To => AHUser
2005-01-03 06:12 AHUser Note Added: 0006067
2005-01-03 06:12 AHUser Assigned To AHUser =>


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