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

win32: use bigger shield icon

Browse Source 
git-svn-id: trunk@19774 -
This commit is contained in:
paul 2009-05-02 18:25:12 +00:00
parent fd610ecf4b
commit fd0b672a54
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -159,10 +159,10 @@ begin
idDialogInfo: StockName := GTK_STOCK_DIALOG_INFO;
idDialogConfirm: StockName := GTK_STOCK_DIALOG_QUESTION;
idDialogShield: StockName := GTK_STOCK_DIALOG_AUTHENTICATION;
else
begin
Result := inherited GetStockImage(StockID, Image, Mask);
Exit;
else
begin
Result := inherited GetStockImage(StockID, Image, Mask);
Exit;
end;
end;

2
lcl/interfaces/win32/win32themes.pas
View File

@ -164,7 +164,7 @@ begin
begin
FillChar(SHIconInfo, SizeOf(SHIconInfo), 0);
SHIconInfo.cbSize := SizeOf(SHIconInfo);
if (SHGetStockIconInfo(SIID_SHIELD, SHGFI_ICON or SHGFI_SMALLICON, @SHIconInfo) = S_OK) then
if (SHGetStockIconInfo(SIID_SHIELD, SHGFI_ICON or SHGFI_LARGEICON, @SHIconInfo) = S_OK) then
IconHandle := SHIconInfo.hIcon
else
IconHandle := 0;