Error Install Orpheus for Extp_Grid

[Osvaldo Filho]

ubuntu 9.10 x64
Lazarus svn
FPC 2.4.1

Error:
/mnt/desenvolvimento/laz_componentes/ccr/components/orpheus/ovcef.pas(2816,17)
Error: Identifier not found "lParamLo"

[Osvaldo Filho]

And more:

/mnt/deskx/desenvolvimento/laz_componentes/ccr/components/orpheus/ovcmisc.pas(666,5)
Error: Typecast has different size (4 -> 8) in assignment

2010/3/17 Osvaldo Filho <arqui...@gmail.com>:

[Phil]

lParamLo is not a field in 64-bit TLMessage in Lazarus lmessages.pp.
Nor is there any comment given for why they've IFDEF'd this out.
Typical Lazarus.

I don't have 64-bit system to figure out what the fix should be. Maybe
you can.

Note that there are probably other issues with 64-bits for any package
ported to Lazarus from 32-bit Delphi.

Thanks.

-Phil

[Phil]

Is this what you have for line 666?

PCheckTaskInfo(Data)^.Found := True;

I don't see why the line 2 lines earlier compiles okay, if so.

Again, probably a difference in types on 64 bits. Can you do a SizeOf
on PCheckTaskInfo and Longint? I assume that's where the mismatch is.
I can't test any fix though since I don't have 64 bits.

Thanks.

-Phil

On Mar 17, 10:06 pm, Osvaldo Filho <arquivos...@gmail.com> wrote:
> And more:
>
> /mnt/deskx/desenvolvimento/laz_componentes/ccr/components/orpheus/ovcmisc.pas(666,5)
> Error: Typecast has different size (4 -> 8) in assignment
>

> 2010/3/17 Osvaldo Filho <arquivos...@gmail.com>:

[Phil]

Osvaldo,

Try this and see if you get any further with compiling:

(1) Just comment out (* *) the lines from just before this:

(*
type
PCheckTaskInfo = ^TCheckTaskInfo;

To just after this:

EnumThreadWindows(LongWord(GetCurrentThreadID), @CheckTaskWindow,
Longint(@Info));
{$ENDIF}
Result := Info.Found;
end;
*)

And comment out IsForegroundTask in class declaration. This code is
not even used by the ported controls.

(2) Wherever lParamHi and lParamLo occur (only about 3 places), just
comment out the method's code. This should not affect the grid
controls.

I would expect that you'll get additional compile errors, so let's
deal with them as you find them.

Thanks.

-Phil

[Cristiano PalmSistemas]

replace Longint to NativeInt

function CheckTaskWindow(Window: TOvcHWnd{HWnd};

  Data: NativeInt {Longint}): WordBool; stdcall;