{Tworzenie przycisku na pasku narzędziowym w oknie rozmowy} function CreateButton: Integer; stdcall; var PluginDir: String; IconIndex: String; begin //ładowanie ikonki PluginDir := ChangeFileExt(GetModuleName(HInstance),''); IconIndex := PluginDir + '\Icons\Icon.png'; //tworzenie przycisku PluginActionFrmSend.cbSize := SizeOf(TPluginAction); PluginActionFrmSend.pszName := 'TestowyPrzyciskTbMain'; PluginActionFrmSend.pszCaption := PLUGIN_SHORTNAME; PluginActionFrmSend.Hint := 'Testowy przycisk'; PluginActionFrmSend.Position := 0; PluginActionFrmSend.IconIndex := PluginLink.CallService(AQQ_ICONS_LOADPNGICON,0,DWORD(PWideChar(IconIndex))); PluginActionFrmSend.pszService := 'TestowyPrzyciskTbMain_Service'; PluginActionFrmSend.Handle := HWNDFrmSend; PluginLink.CallService(AQQ_CONTROLS_TOOLBAR + 'tbMain' + AQQ_CONTROLS_CREATEBUTTON,0,DWORD(@PluginActionFrmSend)); PluginLink.CreateServiceFunction('TestowyPrzyciskTbMain_Service', Settings); end;
Użytkownik WiTuŚ edytował ten post 2012.04.07, 11:30