paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 09:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix for 64 bit compilation

Browse Source 
git-svn-id: trunk@20381 -
This commit is contained in:
martin 2009-06-03 18:39:22 +00:00
parent 756467e902
commit c7ba14b266
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_mouseaction_options_dlg.pas
View File

@ -133,7 +133,7 @@ end;
procedure TEditorMouseOptionsChangeDialog.WriteToAction(MAct: TSynEditMouseAction); procedure TEditorMouseOptionsChangeDialog.WriteToAction(MAct: TSynEditMouseAction);
begin begin
MAct.Command := Integer(ActionBox.items.Objects[ActionBox.ItemIndex]); MAct.Command := TSynEditorMouseCommand(PtrUInt(Pointer(ActionBox.items.Objects[ActionBox.ItemIndex])));
MAct.Button := IndexToBtn[ButtonBox.ItemIndex]; MAct.Button := IndexToBtn[ButtonBox.ItemIndex];
MAct.ClickCount := IndexToClick[ClickBox.ItemIndex]; MAct.ClickCount := IndexToClick[ClickBox.ItemIndex];
MAct.MoveCaret := CaretCheck.Checked; MAct.MoveCaret := CaretCheck.Checked;