CODEWITHSUNDEEP
delphidelphi-xe3vcl-styles
zgn
zgn

Reputation: 315

VCLStyle does not correctly drawing on large popup menu

Drawing problem on large popup menu. An Arrow end of the menu not showed and some painting problems

How to solve this problem?

menu items generated with sample code:

 procedure TForm1.Button1Click(Sender: TObject);
 var
   mi:TMenuItem;
   I: Integer;
 begin
   for I := 0 to 100 do
   begin
     mi:=TMenuItem.Create(PopupMenu1);
     mi.Caption:='Item '+IntToStr(I);
     PopupMenu1.Items.Add(mi);
   end;
end;

Sample images:

End of popup menu without style (Native)

Menu without style

End of popup menu with style

Menu with style

When click arrow place on the menu:

Drawing problems

Full screen Image:

enter image description here

Edit :

-Delphi XE3

-Full screen menu image added.

Upvotes: 1

Views: 868

Answers (1)

zgn
zgn

Reputation: 315

Problem Fixed by @RRUZ

You can update from: https://github.com/RRUZ/vcl-styles-utils

Upvotes: 1

Related Questions