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/ovccmbx.pas
View File

@@ -40,8 +40,9 @@ unit ovccmbx;
interface
uses
SysUtils, Classes,
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, MyMisc, {$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
Graphics, Controls, Forms, StdCtrls,
Buttons, OvcBase, OvcConst, OvcData, OvcMisc, OvcBordr {$IFNDEF LCL}, OvcTimer {$ENDIF};
type
@@ -715,7 +716,7 @@ begin
ItemIndex := SendMessage(Handle,
CB_FINDSTRINGEXACT,
FMRUList.Items.Count - 1,
LongInt(SrchText));
LPARAM(SrchText)); //64
finally
FreeMem(SrchText, L);
end;
@@ -1001,7 +1002,7 @@ begin
{this will search for the first matching item}
Index := SendMessage(Handle, CB_FINDSTRING,
FMRUList.Items.Count - 1,
LongInt(SrchText));
LPARAM(SrchText)); //64
finally
FreeMem(SrchText, length(Text) + 1);
end;
@@ -1374,7 +1375,7 @@ begin
ItemIndex := SendMessage(Handle,
CB_FINDSTRINGEXACT,
0,
LongInt(SrchText));
LPARAM(SrchText)); //64
finally
FreeMem(SrchText, L);
end;