Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.214 by h677, Sun Mar 14 11:59:24 2004 UTC revision 1.215 by h677, Tue Mar 16 15:37:55 2004 UTC
# Line 928  type Line 928  type
928  //              procedure SetStdToolBar;  //              procedure SetStdToolBar;
929  //              function GetAction(ActionName: string): TContainedAction;  //              function GetAction(ActionName: string): TContainedAction;
930                  procedure SetLinkBar;                  procedure SetLinkBar;
931            procedure ClearLinkBar;
932                  function GetWidthAllToolButton(ToolBar: TToolBar): Integer;                  function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
933                  procedure MenuBarChevronMenu;                  procedure MenuBarChevronMenu;
934                  procedure LinkBarChevronMenu;                  procedure LinkBarChevronMenu;
# Line 1683  begin Line 1684  begin
1684          except          except
1685          end;          end;
1686    
1687        try
1688            ClearLinkBar;
1689        except
1690        end;
1691    
1692  //      FDownload.Free;  //      FDownload.Free;
1693          try          try
# Line 1698  begin Line 1702  begin
1702                  TreeView.Items.Clear;                  TreeView.Items.Clear;
1703          except          except
1704          end;          end;
1705        try
1706            FavoriteTreeView.Items.Clear;
1707        except
1708        end;
1709    
1710          try          try
1711                  if FavoriteDM <> nil then                  if FavoriteDM <> nil then
# Line 6546  end; Line 6554  end;
6554    
6555  procedure TGikoForm.WndProc(var Message: TMessage);  procedure TGikoForm.WndProc(var Message: TMessage);
6556  begin  begin
6557          if (Message.Msg = CM_DIALOGCHAR) then      try
6558                  if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then                  if (Message.Msg = CM_DIALOGCHAR) then
6559                          Exit;                          if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then
6560          inherited;                                  Exit;
6561                    inherited;
6562        except
6563        end;
6564  end;  end;
6565    
6566  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
# Line 7044  begin Line 7055  begin
7055                  MainCoolBar.Bands.EndUpdate;                  MainCoolBar.Bands.EndUpdate;
7056          end;          end;
7057  end;  end;
7058    procedure TGikoForm.ClearLinkBar;
7059    var
7060            i: Integer;
7061    begin
7062            MainCoolBar.Bands.BeginUpdate;
7063            try
7064                    LinkBarPopupMenu.Items.Clear;
7065                    for i := LinkToolBar.ButtonCount - 1 downto 0 do
7066                            LinkToolBar.RemoveControl(LinkToolBar.Buttons[i]);
7067        finally
7068                    MainCoolBar.Bands.EndUpdate;
7069            end;
7070    end;
7071  procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);  procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
7072  var  var
7073          Node: TTreeNode;          Node: TTreeNode;

Legend:
Removed from v.1.214  
changed lines
  Added in v.1.215

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