pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

* fix some declarations for x64 support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@135 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck 2014-12-03 09:27:30 +00:00
parent 1cd1ce8bcc
commit dd23fc06aa
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
KOLMHTooltip_implem.inc
View File

@ -54,12 +54,12 @@ end;
function TMHToolTip.GetMargin: TRect; function TMHToolTip.GetMargin: TRect;
begin begin
SendMessage(fHandle, TTM_GETMARGIN, 0, DWord(@Result)); SendMessage(fHandle, TTM_GETMARGIN, 0, LPARAM(@Result));
end; end;
procedure TMHToolTip.SetMargin(const Value: TRect); procedure TMHToolTip.SetMargin(const Value: TRect);
begin begin
SendMessage(fHandle, TTM_SETMARGIN, 0, DWord(@Value)); SendMessage(fHandle, TTM_SETMARGIN, 0, LPARAM(@Value));
end; end;
function TMHToolTip.GetActivate: Boolean; function TMHToolTip.GetActivate: Boolean;
@ -169,10 +169,10 @@ begin
lpszText := @TextL[0]; lpszText := @TextL[0];
end; end;
SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, DWord(@TI)); SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, LPARAM(@TI));
SendMessage(ToolTip.handle, TTM_DELTOOL, 0, DWORD(@TI)); SendMessage(ToolTip.handle, TTM_DELTOOL, 0, LPARAM(@TI));
ToolTip.Count := ToolTip.Count - 1; ToolTip.Count := ToolTip.Count - 1;
SendMessage(T1.handle, TTM_ADDTOOL, 0, DWORD(@TI)); SendMessage(T1.handle, TTM_ADDTOOL, 0, LPARAM(@TI));
T1.Count := T1.Count - 1; T1.Count := T1.Count - 1;
HasTool := True; HasTool := True;
@ -251,7 +251,7 @@ begin
if HasTool then if HasTool then
begin begin
TI.lpszText := PKOLChar(Value); TI.lpszText := PKOLChar(Value);
SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, DWord(@TI)); SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, LPARAM(@TI));
end; end;
end; end;
@ -323,7 +323,7 @@ var
begin begin
if not HasTool then if not HasTool then
begin begin
SendMessage(ToolTip.handle, TTM_ADDTOOL, 0, DWORD(@TI)); SendMessage(ToolTip.handle, TTM_ADDTOOL, 0, LPARAM(@TI));
HasTool := True; HasTool := True;
ToolTip.Count := ToolTip.Count + 1; ToolTip.Count := ToolTip.Count + 1;
end end
@ -333,7 +333,7 @@ begin
begin begin
lpszText := @TextLine[0]; lpszText := @TextLine[0];
end; end;
SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, DWord(@TI)); SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, LPARAM(@TI));
end; end;
end; end;
@ -377,7 +377,7 @@ begin
uId := Parent.GetWindowHandle; uId := Parent.GetWindowHandle;
end; end;
SendMessage(ToolTip.handle, TTM_DELTOOL, 0, DWORD(@TI)); SendMessage(ToolTip.handle, TTM_DELTOOL, 0, LPARAM(@TI));
ToolTip.Count := ToolTip.Count - 1; ToolTip.Count := ToolTip.Count - 1;
if ToolTip.Count <= 0 then begin if ToolTip.Count <= 0 then begin
i:=Length(Manager.TTT); i:=Length(Manager.TTT);
@ -423,7 +423,7 @@ begin
uId := Parent.GetWindowHandle; uId := Parent.GetWindowHandle;
lpszText := @TextL[0]; lpszText := @TextL[0];
end; end;
SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, DWord(@TI)); SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, LPARAM(@TI));
Result := TextL; //TI.lpszText;// := PChar(Value); Result := TextL; //TI.lpszText;// := PChar(Value);
end; end;
end; end;