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

anchordocking: default close button if theme does not support it

Browse Source 
git-svn-id: trunk@31704 -
This commit is contained in:
mattias 2011-07-15 18:33:27 +00:00
parent 441839dd38
commit e0b91a2f5e
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/anchordocking/anchordocking.pas
View File

@ -1683,14 +1683,18 @@ end;
procedure TAnchorDockMaster.CreateCloseButtonBitmap; procedure TAnchorDockMaster.CreateCloseButtonBitmap;
var var
BitmapHandle,MaskHandle: HBITMAP; BitmapHandle,MaskHandle: HBITMAP;
OrigBitmap: TBitmap; OrigBitmap: TCustomBitmap;
begin begin
if fCloseBtnBitmap<>nil then exit; if fCloseBtnBitmap<>nil then exit;
ThemeServices.GetStockImage(idButtonClose,BitmapHandle,MaskHandle);
if ThemeServices.GetStockImage(idButtonClose,BitmapHandle,MaskHandle) then begin
OrigBitmap:=TBitmap.Create; OrigBitmap:=TBitmap.Create;
OrigBitmap.Handle:=BitmapHandle; OrigBitmap.Handle:=BitmapHandle;
if MaskHandle<>0 then if MaskHandle<>0 then
OrigBitmap.MaskHandle:=MaskHandle; OrigBitmap.MaskHandle:=MaskHandle;
end
else
OrigBitmap := GetDefaultButtonIcon(idButtonClose);
DockMaster.fCloseBtnBitmap:=TBitmap.Create; DockMaster.fCloseBtnBitmap:=TBitmap.Create;
with DockMaster.fCloseBtnBitmap do begin with DockMaster.fCloseBtnBitmap do begin
SetSize(HeaderButtonSize,HeaderButtonSize); SetSize(HeaderButtonSize,HeaderButtonSize);

2
ide/compileroptions.pp
View File

@ -1456,7 +1456,7 @@ begin
if fCompilerMessages.Count = 0 then fCompilerMessages.SetDefault; if fCompilerMessages.Count = 0 then fCompilerMessages.SetDefault;
UseMsgFile := aXMLConfig.GetValue(p+'CompilerMessages/UseMsgFile/Value', False); UseMsgFile := aXMLConfig.GetValue(p+'CompilerMessages/UseMsgFile/Value', False);
MsgFileName := aXMLConfig.GetValue(p+'CompilerMessages/MsgFileName/Value', ''); MsgFileName := aXMLConfig.GetValue(p+'CompilerMessages/MsgFileName/Value', '');
if UseMsgFile and FileExists(MsgFileName) then if UseMsgFile and FileExistsCached(MsgFileName) then
fCompilerMessages.LoadMsgFile(MsgFileName); fCompilerMessages.LoadMsgFile(MsgFileName);
for i := 0 to fCompilerMessages.Count - 1 do begin for i := 0 to fCompilerMessages.Count - 1 do begin