Delphi and Toolbar Buttons

Question

Hi,
I just wrote a C3PO with Dephi 2010. Extending the Tools Menu for my function was easy, but I'm still trying to add a toolbar button.
Here is a snip from the code:
function CommandFactory.CustomizeToolBar(const Context: WideString;
GWToolbar: OleVariant): WordBool;
var
Button: variant;
ToolbarItems: variant;
Cmd: Command;
begin
ToolbarItems := GWToolbar.ToolbarItems; // get toolbar items
// MessageBox(0, pwidechar(getCurrentDir) , 'EMAStart', MB_SETFOREGROUND);
If Pos(widestring('GW.CLIENT'), Context) <> 0 then // see if the context is GW.CLIENT or any sub class
begin
GwCmdEMAStart := Command.CreateWithID(EMAStart); // create command for toolbar
Button := GWToolbar.ToolbarItems.Add('Start EMA', GwCmdEMAStart as IGWCommand); // add new Button
GwCmdEMAStart.ToolTp := 'Start EMA tooltip'; // set tooltip for toolbar item
Button.SetBitmap(GetCurrentDir+'\EMAStart.dll','IC ON1'); // set toolbar bitmap
// Button.SetBitmap(GetCurrentDir+'\icons.dll','BUTTO N_1'); // set toolbar bitmap
//C3PO WIZARD icons.dll can be replaced with the full path name of any .exe or .dll that have both 16x16 and 32x32 pixel bitmap
// BUTTON_1 can be replaced with the name of the bitmap contained in the .exe or .dll
end;
result := FALSE;
end;
I included the icon in 16x16, 24x24,32x32 and 48x48 sizes in the ressources..
When I change to the icons.dll (currently commented out) the button appears in the toolbar.
But I never managed to get my button to display.
What's wrong ?
Thanks a lot
Rainer

Answer 1

I've found the solution by myself: You have to include a BITMAP, not an ICON. Including a BITMAP ressource in Delphi 2010 is quite easy: just add it to your project.
Rainer
>>> Rainer Backes<[email protected]> schrieb am 11.08.2010 um 13:39 in Nachricht <[email protected]>:
Hi,
I just wrote a C3PO with Dephi 2010. Extending the Tools Menu for my function was easy, but I'm still trying to add a toolbar button.
Here is a snip from the code:
function CommandFactory.CustomizeToolBar(const Context: WideString;
GWToolbar: OleVariant): WordBool;
var
Button: variant;
ToolbarItems: variant;
Cmd: Command;
begin
ToolbarItems := GWToolbar.ToolbarItems; // get toolbar items
// MessageBox(0, pwidechar(getCurrentDir) , 'EMAStart', MB_SETFOREGROUND);
If Pos(widestring('GW.CLIENT'), Context) <> 0 then // see if the context is GW.CLIENT or any sub class
begin
GwCmdEMAStart := Command.CreateWithID(EMAStart); // create command for toolbar
Button := GWToolbar.ToolbarItems.Add('Start EMA', GwCmdEMAStart as IGWCommand); // add new Button
GwCmdEMAStart.ToolTp := 'Start EMA tooltip'; // set tooltip for toolbar item
Button.SetBitmap(GetCurrentDir+'\EMAStart.dll','IC ON1'); // set toolbar bitmap
// Button.SetBitmap(GetCurrentDir+'\icons.dll','BUTTO N_1'); // set toolbar bitmap
//C3PO WIZARD icons.dll can be replaced with the full path name of any .exe or .dll that have both 16x16 and 32x32 pixel bitmap
// BUTTON_1 can be replaced with the name of the bitmap contained in the .exe or .dll
end;
result := FALSE;
end;
I included the icon in 16x16, 24x24,32x32 and 48x48 sizes in the ressources..
When I change to the icons.dll (currently commented out) the button appears in the toolbar.
But I never managed to get my button to display.
What's wrong ?
Thanks a lot
Rainer