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

5
components/orpheus/ovctable.pas
View File

@ -46,8 +46,9 @@ unit ovctable;
interface
uses
SysUtils, Classes,
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, MyMisc, {$ENDIF}
SysUtils, Graphics, Classes, Controls, Forms, StdCtrls,
Graphics, Controls, Forms, StdCtrls,
Menus, Dialogs, OvcMisc, OvcData, OvcConst, OvcBase, OvcCmd, OvcTCmmn,
OvcTCAry, OvcTSelL, OvcTCell, OvcTCHdr, OvcTGPns,
OvcTbClr, OvcTbRws, OvcTbCls, OvcDrag;
@ -5427,7 +5428,7 @@ procedure TOvcCustomTable.ctimQueryColor(var Msg : TMessage);
{--------}
procedure TOvcCustomTable.ctimQueryFont(var Msg : TMessage);
begin
Msg.Result := longint(Font);
Msg.Result := LRESULT(Font); //64
end;
{--------}
procedure TOvcCustomTable.ctimQueryLockedCols(var Msg : TMessage);