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

toolbar editor: add "New Divider" item to component menu

Browse Source 
git-svn-id: trunk@13904 -
This commit is contained in:
paul 2008-01-29 07:29:14 +00:00
parent cbb748b963
commit 221f810ea1
1 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
ideintf/componenteditors.pas
View File

@ -958,46 +958,53 @@ begin
Hook:=nil;
if not GetHook(Hook) then exit;
case Index of
0: NewStyle:=tbsButton;
1: NewStyle:=tbsCheck;
2: NewStyle:=tbsSeparator;
else exit;
0: NewStyle := tbsButton;
1: NewStyle := tbsCheck;
2: NewStyle := tbsSeparator;
3: NewStyle := tbsDivider;
else
exit;
end;
CurToolBar:=ToolBar;
NewToolButton:=TToolButton.Create(CurToolBar.Owner);
NewName:=GetDesigner.CreateUniqueComponentName(NewToolButton.ClassName);
NewToolButton.Caption:=NewName;
NewToolButton.Name:=NewName;
NewToolButton.Style:=NewStyle;
CurToolBar := ToolBar;
NewToolButton := TToolButton.Create(CurToolBar.Owner);
NewName := GetDesigner.CreateUniqueComponentName(NewToolButton.ClassName);
NewToolButton.Caption := NewName;
NewToolButton.Name := NewName;
NewToolButton.Style := NewStyle;
if NewStyle = tbsDivider then
NewToolButton.Width := 3;
// position the button next to the last button
if CurToolBar.ButtonCount>0 then begin
SiblingButton := CurToolBar.Buttons[CurToolBar.ButtonCount-1];
if CurToolBar.ButtonCount > 0 then
begin
SiblingButton := CurToolBar.Buttons[CurToolBar.ButtonCount - 1];
NewToolButton.SetBounds(SiblingButton.Left + SiblingButton.Width,
SiblingButton.Top, NewToolButton.Width, NewToolButton.Height);
end;
NewToolButton.Parent:=CurToolBar;
Hook.PersistentAdded(NewToolButton,true);
NewToolButton.Parent := CurToolBar;
Hook.PersistentAdded(NewToolButton, True);
Modified;
end;
function TToolBarComponentEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result:='New Button';
1: Result:='New Checkbutton';
2: Result:='New Separator';
else Result:='';
0: Result := 'New Button';
1: Result := 'New Checkbutton';
2: Result := 'New Separator';
3: Result := 'New Divider';
else
Result := '';
end;
end;
function TToolBarComponentEditor.GetVerbCount: Integer;
begin
Result:=3;
Result := 4;
end;
function TToolBarComponentEditor.ToolBar: TToolBar;
begin
Result:=TToolBar(GetComponent);
Result := TToolBar(GetComponent);
end;
{ TCommonDialogComponentEditor }