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

fixed showing components in palette

Browse Source 
git-svn-id: trunk@4778 -
This commit is contained in:
mattias 2003-11-08 10:50:45 +00:00
parent d63a2ff7a8
commit a8e9adf180
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/componentpalette.pas
View File

@ -425,15 +425,14 @@ begin
Name:='PaletteBtnPage'+IntToStr(i)+'_'+IntToStr(j) Name:='PaletteBtnPage'+IntToStr(i)+'_'+IntToStr(j)
+'_'+CurComponent.ComponentClass.ClassName; +'_'+CurComponent.ComponentClass.ClassName;
Parent := CurNoteBookPage; Parent := CurNoteBookPage;
SetBounds(ButtonX,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
Glyph := CurComponent.GetIconCopy; Glyph := CurComponent.GetIconCopy;
Width := ComponentPaletteBtnWidth;
Height := ComponentPaletteBtnHeight;
GroupIndex := 1; GroupIndex := 1;
Flat := true; Flat := true;
OnClick := @ComponentBtnClick; OnClick := @ComponentBtnClick;
Hint := CurComponent.ComponentClass.ClassName; Hint := CurComponent.ComponentClass.ClassName;
SetBounds(ButtonX,0,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
CurBtn.PopupMenu:=Self.PopupMenu; CurBtn.PopupMenu:=Self.PopupMenu;
Visible:=true;
end; end;
//writeln('TComponentPalette.UpdateNoteBookButtons Created Button: ',CurComponent.ComponentClass.ClassName,' ',CurComponent.Button.Name); //writeln('TComponentPalette.UpdateNoteBookButtons Created Button: ',CurComponent.ComponentClass.ClassName,' ',CurComponent.Button.Name);
end; end;