pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Patches for 64-bit support.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2975 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2014-04-28 20:45:29 +00:00
parent 34db575967
commit 32c8b1cb1c
30 changed files with 125 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/orpheus/ovctcell.pas
View File

@@ -41,8 +41,9 @@ unit ovctcell;
interface
uses
SysUtils, Classes,
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, MyMisc, {$ENDIF}
SysUtils, Graphics, Classes, Controls,
Graphics, Controls,
OvcTCmmn, OvcSpAry, OvcVer;
type
@@ -237,7 +238,7 @@ type
function CanStopEditing(SaveValue : boolean) : boolean; {for Orpheus 1.0 compatibility}
function FilterTableKey(var Msg : TWMKey) : TOvcTblKeyNeeds; virtual;
{.Z+}
procedure PostMessageToTable(Msg, wParam, lParam : longint);
procedure PostMessageToTable(Msg: UINT; wParam: WPARAM; lParam: LPARAM); //64
{.Z-}
procedure SendKeyToTable(var Msg : TWMKey);
procedure SaveEditedData(Data : pointer); virtual;
@@ -549,7 +550,7 @@ procedure TOvcBaseTableCell.tcPaint(TableCanvas : TCanvas;
end;
end;
{--------}
procedure TOvcBaseTableCell.PostMessageToTable(Msg, wParam, lParam : longint);
procedure TOvcBaseTableCell.PostMessageToTable(Msg: UINT; wParam: WPARAM; lParam: LPARAM); //64
begin
if Assigned(FTable) and FTable.HandleAllocated then
PostMessage(FTable.Handle, Msg, wParam, lParam)
@@ -710,7 +711,7 @@ procedure TOvcBaseTableCell.SetTable(T : TOvcTableAncestor);
if (not Assigned(T)) or (T is TOvcTableAncestor) then
begin
if Assigned(FTable) and FTable.HandleAllocated then
SendMessage(FTable.Handle, ctim_RemoveCell, 0, longint(Self));
SendMessage(FTable.Handle, ctim_RemoveCell, 0, LPARAM(Self)); //64
FTable := T;
FOnCfgChanged := nil;
FReferences := 0;