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

12
components/orpheus/ovcbase.pas
View File

@ -952,7 +952,7 @@ begin
if Assigned(PF) then begin
for I := 0 to Pred(PF.ComponentCount) do begin
if PF.Components[I] = FControl then begin
SendMessage(FControl.Handle, OM_ASSIGNLABEL, 0, LongInt(Self));
SendMessage(FControl.Handle, OM_ASSIGNLABEL, 0, LPARAM(Self)); //64
PostMessage(FControl.Handle, OM_RECORDLABELPOSITION, 0, 0);
Break;
end;
@ -1503,7 +1503,7 @@ end;
procedure TOvcController.DelayNotify(Sender : TObject; NotifyCode : Word);
begin
if Assigned(FOnDelayNotify) then
PostMessage(Handle, OM_DELAYNOTIFY, NotifyCode, LongInt(Sender));
PostMessage(Handle, OM_DELAYNOTIFY, NotifyCode, LPARAM(Sender)); //64
end;
destructor TOvcController.Destroy;
@ -1555,7 +1555,7 @@ begin
else
H := 0;
PostMessage(Handle, OM_POSTEDIT, H, LongInt(Sender));
PostMessage(Handle, OM_POSTEDIT, H, LPARAM(Sender)); //64
end;
procedure TOvcController.DoOnPreEdit(Sender : TObject; LosingControl : TWinControl);
@ -1567,7 +1567,7 @@ begin
else
H := 0;
PostMessage(Handle, OM_PREEDIT, H, LongInt(Sender));
PostMessage(Handle, OM_PREEDIT, H, LPARAM(Sender)); //64
end;
procedure TOvcController.DoOnTimerTrigger(Sender : TObject; Handle : Integer;
@ -1682,7 +1682,7 @@ var
{ask the controller to give the focus back to this field}
if ChangeFocus and not ErrorPending then begin
PostMessage(Handle, OM_SETFOCUS, 0, LongInt(EF));
PostMessage(Handle, OM_SETFOCUS, 0, LPARAM(EF)); //64
ErrorPending := True;
end;
@ -1743,7 +1743,7 @@ begin
{ask the controller to give the focus back to this field}
if not ErrorPending then begin
PostMessage(Handle, OM_SETFOCUS, 0, LongInt(EF));
PostMessage(Handle, OM_SETFOCUS, 0, LPARAM(EF)); //64
ErrorPending := True;
end;