paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: use more stock icons in TGtk2WidgetSet.LoadStockPixmap

Browse Source 
git-svn-id: trunk@19456 -
This commit is contained in:
paul 2009-04-16 14:11:36 +00:00
parent 7af32a11af
commit 2ac96eaa20
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -394,14 +394,20 @@ var
Pixbuf : PGDKPixbuf;
begin
Mask := 0;
case StockID Of
idButtonOk : StockName := GTK_STOCK_OK;
idButtonCancel : StockName := GTK_STOCK_CANCEL;
idButtonYes : StockName := GTK_STOCK_YES;
idButtonNo : StockName := GTK_STOCK_NO;
idButtonHelp : StockName := GTK_STOCK_HELP;
idButtonAbort : StockName := GTK_STOCK_STOP;
idButtonClose : StockName := GTK_STOCK_CLOSE;
case StockID of
idButtonOk: StockName := GTK_STOCK_OK;
idButtonCancel: StockName := GTK_STOCK_CANCEL;
idButtonYes: StockName := GTK_STOCK_YES;
idButtonYesToAll: StockName := GTK_STOCK_YES;
idButtonNo: StockName := GTK_STOCK_NO;
idButtonNoToAll: StockName := GTK_STOCK_NO;
idButtonHelp: StockName := GTK_STOCK_HELP;
idButtonAbort: StockName := GTK_STOCK_STOP;
idButtonClose: StockName := GTK_STOCK_CLOSE;
// this is disputable but anyway stock icons looks like our own
idButtonAll: StockName := GTK_STOCK_APPLY;
idButtonIgnore: StockName := GTK_STOCK_DELETE;
idButtonRetry: StockName := GTK_STOCK_REFRESH;
idDialogWarning : StockName := GTK_STOCK_DIALOG_WARNING;
idDialogError : StockName := GTK_STOCK_DIALOG_ERROR;