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

8
components/orpheus/ovcsf.pas
View File

@ -463,7 +463,7 @@ procedure TOvcCustomSimpleField.efEdit(var Msg : TMessage; Cmd : Word);
end;
ccMouse :
if Len > 0 then begin
efHPos := efGetMousePos(SmallInt(Msg.lParamLo));
efHPos := efGetMousePos(SmallInt(LoWord(Msg.LParam))); //64
{drag highlight initially if shift key is being pressed}
if (GetKeyState(vk_Shift) < 0) then begin
SelExtended := True;
@ -484,12 +484,12 @@ procedure TOvcCustomSimpleField.efEdit(var Msg : TMessage; Cmd : Word);
end;
ccMouseMove :
if Len > 0 then begin
efHPos := efGetMousePos(SmallInt(Msg.lParamLo));
efHPos := efGetMousePos(SmallInt(LoWord(Msg.LParam))); //64
UpdateSel;
end;
ccDblClk :
if Len > 0 then begin
efHPos := efGetMousePos(SmallInt(Msg.lParamLo));
efHPos := efGetMousePos(SmallInt(LoWord(Msg.LParam))); //64
WordLeftPrim;
SaveHPos := efHPos;
efSelStart := SaveHPos;
@ -784,7 +784,7 @@ procedure TOvcCustomSimpleField.efEdit(var Msg : TMessage; Cmd : Word);
ccExtendRight, ccExtendEnd, ccExtWordRight :
efSelEnd := 1;
ccMouseMove :
if efGetMousePos(SmallInt(Msg.lParamLo)) > 0 then
if efGetMousePos(SmallInt(LoWord(Msg.LParam))) > 0 then //64
efSelEnd := 1
else
efSelEnd := 0;