Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/KeySetting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by yoffy, Wed Oct 13 23:28:32 2004 UTC revision 1.6 by yoffy, Mon Oct 25 05:53:17 2004 UTC
# Line 296  begin Line 296  begin
296          if ActiveListView.Selected = nil then Exit;          if ActiveListView.Selected = nil then Exit;
297          if (GetKeyState( VK_SHIFT ) and $80000000) <> 0 then begin          if (GetKeyState( VK_SHIFT ) and $80000000) <> 0 then begin
298                  GestureEdit.Text := '';                  GestureEdit.Text := '';
299                  ActiveListView.Selected.SubItems[2] := '';                  Item := ActiveListView.Selected;
300                    Item.SubItems[2] := '';
301                    if TObject(Item.Data) is TKeySettingItem then begin
302                            KeyItem := TKeySettingItem(Item.Data);
303                            KeyItem.Gesture := '';
304                    end;
305                  Exit;                  Exit;
306          end;          end;
307    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26