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

lcl: declare THelpInfo structure

Browse Source 
git-svn-id: trunk@20825 -
This commit is contained in:
paul 2009-07-11 08:33:37 +00:00
parent 21337fbfae
commit 9afd4bf495
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -564,7 +564,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TApplication.ValidateHelpSystem: Boolean; function TApplication.ValidateHelpSystem: Boolean;
begin begin
Result:=HelpManager<>nil; Result := HelpManager <> nil;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

14
lcl/lcltype.pp
View File

@ -1154,6 +1154,17 @@ type
TDIBSection = tagDIBSECTION; TDIBSection = tagDIBSECTION;
DIBSECTION = tagDIBSECTION; DIBSECTION = tagDIBSECTION;
tagHELPINFO = record
cbSize: DWORD;
iContextType: Integer;
iCtrlId: Integer;
hItemHandle: THandle;
dwContextId: DWORD;
MousePos: TPOINT;
end;
THelpInfo = tagHelpInfo;
PHelpInfo = ^THelpInfo;
const const
RASTER_FONTTYPE = 1; RASTER_FONTTYPE = 1;
DEVICE_FONTTYPE = 2; DEVICE_FONTTYPE = 2;
@ -1161,6 +1172,9 @@ const
GCP_DBCS = 1; GCP_DBCS = 1;
// context type
HELPINFO_WINDOW = $0001;
HELPINFO_MENUITEM = $0002;
//============================================== //==============================================
// Background Modes // Background Modes