paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 06:18:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Don't try to draw image for dividers in ToolbarConfig dialog. Issue #33533, patch from FTurtle.

Browse Source 
git-svn-id: trunk@57582 -
This commit is contained in:
juha 2018-03-31 14:09:43 +00:00
parent 5e2d878e09
commit 9d840e6fad
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/toolbarconfig.pas
View File

@ -83,7 +83,6 @@ type
private
Image: TBitMap;
defImageIndex: integer;
divImageIndex: Integer;
procedure AddCommand;
procedure AddDivider;
procedure AddTailItem;
@ -178,7 +177,7 @@ begin
TIDEImages.AssignImage(btnRemove.Glyph, 'arrow__darkred_left');
TIDEImages.AssignImage(btnMoveUp.Glyph, 'arrow__darkgreen_up');
TIDEImages.AssignImage(btnMoveDown.Glyph, 'arrow__darkgreen_down');
TIDEImages.AssignImage(btnAddDivider.Glyph, 'menu_divider16');
//TIDEImages.AssignImage(btnAddDivider.Glyph, 'menu_divider16'); // uncomment if 'menu_divider16' exists (currently not)
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
btnAddDivider.Caption := '---';
@ -192,8 +191,6 @@ begin
lvToolbar.SmallImages := IDEImages.Images_16;
// default image to be used when none is available
defImageIndex := IDEImages.LoadImage('execute');
// Image for divider
divImageIndex := IDEImages.Images_16.Add(btnAddDivider.Glyph,nil);
Image := TBitmap.Create;
SetupCaptions;
@ -330,7 +327,7 @@ var
lvItem: TListItem;
begin
lvItem := NewLvItem(cIDEToolbarDivider);
lvItem.ImageIndex := divImageIndex;
lvItem.ImageIndex := -1;
InsertItem(lvItem);
UpdateButtonsState;
end;
@ -509,7 +506,7 @@ var
begin
lvItem := lvToolbar.Items.Add;
lvItem.Caption := cIDEToolbarDivider;
lvItem.ImageIndex := divImageIndex;
lvItem.ImageIndex := -1;
end;
procedure TToolBarConfig.AddTailItem;