paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 11:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, fixed compile for x86_64

Browse Source 
git-svn-id: trunk@20356 -
This commit is contained in:
jesus 2009-06-02 20:25:35 +00:00
parent 07befde5d3
commit 887eb89253
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

@ -73,7 +73,7 @@ begin
for i:= 0 to emcMax do begin for i:= 0 to emcMax do begin
CName := MouseCommandName(i); CName := MouseCommandName(i);
if CName <> '' then if CName <> '' then
ActionBox.Items.AddObject(CName, TObject(i)); ActionBox.Items.AddObject(CName, TObject(ptrint(i)));
end; end;
ButtonBox.Clear; ButtonBox.Clear;
for mb := low(TMouseButton) to high(TMouseButton) do for mb := low(TMouseButton) to high(TMouseButton) do