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

RTF Win32 FPC trunk compilation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7645 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
ondrejpokorny
2020-09-06 08:11:18 +00:00
parent 8b5cc6b3d9
commit 3f6128bd76
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/win32/win32richmemo.pas
View File

@ -1639,7 +1639,11 @@ type
end;
PStreamText = ^TStreamText;
{$IF FPC_FULLVERSION>=30301}
function Read(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ELSE}
function Read(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ENDIF}
var
//p : PStreamText;
b : string;

8
components/richmemo/win32/win32richmemoproc.pas
View File

@ -758,7 +758,11 @@ type
pfnCallback : EDITSTREAMCALLBACK;
end;
{$IF FPC_FULLVERSION>=30301}
function RTFLoadCallback(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ELSE}
function RTFLoadCallback(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ENDIF}
var
s : TStream;
begin
@ -782,7 +786,11 @@ begin
Result := cbs.dwError = 0;
end;
{$IF FPC_FULLVERSION>=30301}
function RTFSaveCallback(dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ELSE}
function RTFSaveCallback(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
{$ENDIF}
var
s : TStream;
begin