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.432 by yoffy, Wed Sep 15 08:03:20 2004 UTC revision 1.433 by h677, Wed Sep 15 14:52:00 2004 UTC
# Line 1008  type Line 1008  type
1008                  procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);                  procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1009                  procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);                  procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1010    
1011                  procedure SetActiveList(Obj: TObject);  
1012                  procedure ListClick;                  procedure ListClick;
1013                  procedure ListDoubleClick(Shift: TShiftState);                  procedure ListDoubleClick(Shift: TShiftState);
1014                  procedure BrowserMovement(const AName: string); overload;                  procedure BrowserMovement(const AName: string); overload;
# Line 1090  type Line 1090  type
1090                  function LoadTabURLs : Boolean;                  function LoadTabURLs : Boolean;
1091                  /// バンド幅を再計算・再設定する                  /// バンド幅を再計算・再設定する
1092                  procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );                  procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
                 /// ListView のカラム幅および位置の保存  
                 procedure ActiveListColumnSave;  
1093                  /// ListView の Column を真のカラムに変換                  /// ListView の Column を真のカラムに変換
1094                  function        ActiveListTrueColumn( column : TListColumn ) : TListColumn;                  function        ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1095                  /// ListColumnPopupMenu アイテムのクリックイベント                  /// ListColumnPopupMenu アイテムのクリックイベント
# Line 1128  type Line 1126  type
1126                  function GetActiveContent: TThreadItem;                  function GetActiveContent: TThreadItem;
1127                  function GetActiveList: TObject;                  function GetActiveList: TObject;
1128    
1129                  property ActiveList: TObject read GetActiveList write SetActiveList;  
1130  //              property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;  //              property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
1131    
1132                  procedure SetListViewType(AViewType: TGikoViewType); overload;                  procedure SetListViewType(AViewType: TGikoViewType); overload;
# Line 1152  type Line 1150  type
1150  //              property Favorite: TFavorite read FFavorite write FFavorite;  //              property Favorite: TFavorite read FFavorite write FFavorite;
1151                  procedure SetToolBarPopup;                  procedure SetToolBarPopup;
1152                  procedure ShowFavoriteAddDialog( Item : TObject );                  procedure ShowFavoriteAddDialog( Item : TObject );
1153          procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1154          procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1155                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1156                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1157                  property OddColor : TColor read FOddColor write FOddColor;                  property OddColor : TColor read FOddColor write FOddColor;
1158    
1159                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1160                  procedure OnPlugInMenuItem( Sender : TObject );                  procedure OnPlugInMenuItem( Sender : TObject );
1161                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1162                    /// ListView のカラム幅および位置の保存 KuroutSettingからよびだしたいので
1163                    procedure ActiveListColumnSave;
1164                    procedure SetActiveList(Obj: TObject);
1165                    property ActiveList: TObject read GetActiveList write SetActiveList;
1166          published          published
1167                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1168          end;          end;

Legend:
Removed from v.1.432  
changed lines
  Added in v.1.433

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