View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005226JEDI VCL00 JVCL Componentspublic2010-04-21 21:362010-10-08 15:00
ReporterferiduntAssigned Toobones 
PrioritynormalSeveritycrashReproducibilityalways
Status resolvedResolutionunable to reproduce 
Product VersionDaily / GIT 
Target VersionFixed in Version 
Summary0005226: JvPopupMenu msXp Style crashes ...
DescriptionAfter version 3.10 JvPopmenu with Msxp style doesn't work.

Sometimes restart the pc when open the menu.
sometimes open a blank popup menu then on second atttempt open correctly.

The same code works with 3.10 but not works 3.39 and daily ones.

My code is this ...

  object Kasamenu: TJvPopupMenu
    MenuAnimation = [maLeftToRight, maTopToBottom]
    Style = msXP
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    OnGetItemParams = MGetItemParams
    Left = 464
    Top = 88
    object MenuItem9: TMenuItem
      Caption = 'Item1'
      OnClick = msit1click
    end
    object MsGiderFis: TMenuItem
      Caption = 'Item2'
      OnClick = Msit2click
    end
  end


procedure TFMainform.MGetItemParams(Sender: TMenu; Item: TMenuItem; State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor; var Graphic: TGraphic; var NumGlyphs: Integer);
begin
  AFont.Name := _MyGridcolor.GridFontName ;
  AFont.Size := _MyGridcolor.GridFontSize ;
  (Sender As TJvPopupMenu).ImageMargin.Left := 10 ;
end;
TagsNo tags attached.

Activities

obones

2010-06-07 09:35

administrator   ~0017428

Please provide the zipped sources of a sample application showing this

obones

2010-10-08 15:00

administrator   ~0017776

Well, no reaction and unable to reproduce

Issue History

Date Modified Username Field Change
2010-04-21 21:36 feridunt New Issue
2010-06-07 09:35 obones Note Added: 0017428
2010-06-07 09:35 obones Status new => feedback
2010-10-08 15:00 obones Note Added: 0017776
2010-10-08 15:00 obones Status feedback => resolved
2010-10-08 15:00 obones Resolution open => unable to reproduce
2010-10-08 15:00 obones Assigned To => obones