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

lcl: carbon: clean up

Browse Source 
git-svn-id: trunk@45947 -
This commit is contained in:
mattias 2014-07-20 21:46:15 +00:00
parent e3e3c31ab3
commit 968a8bb630
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/application.inc
View File

@ -859,7 +859,8 @@ begin
//DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]); //DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]);
//debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"'); //debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"');
FHintWindow.ActivateWithData(HintWinRect, HintInfo.HintStr, HintInfo.HintData); FHintWindow.HintRectAdjust := HintWinRect;
FHintWindow.ActivateText(HintInfo.HintStr);
FHintRect := HintInfo.CursorRect; FHintRect := HintInfo.CursorRect;
// start hide timer // start hide timer
StartHintTimer(HintInfo.HideTimeout,ahttHideHint); StartHintTimer(HintInfo.HideTimeout,ahttHideHint);

1
lcl/include/sysenvapis_mac.inc
View File

@ -3,7 +3,6 @@
// Open a given URL with the default browser // Open a given URL with the default browser
function OpenURL(AURL: String): Boolean; function OpenURL(AURL: String): Boolean;
var var
cf: CFStringRef;
url: CFURLRef; url: CFURLRef;
begin begin
if AURL = '' then if AURL = '' then