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.532 by h677, Wed Nov 16 15:02:05 2005 UTC revision 1.533 by h677, Thu Nov 17 15:15:59 2005 UTC
# Line 900  type Line 900  type
900                  FWorkCount: Integer;                  FWorkCount: Integer;
901                  FNameCookie: string;                  FNameCookie: string;
902                  FMailCookie: string;                  FMailCookie: string;
                 BrowserNullTab: TBrowserRecord;  
903                  FDownloadTitle: string;                         //ダウンロード中のタイトル名                  FDownloadTitle: string;                         //ダウンロード中のタイトル名
904                  FDownloadMax: Integer;                          //ダウンロード中の最大サイズ                  FDownloadMax: Integer;                          //ダウンロード中の最大サイズ
905                  FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント                  FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント
# Line 933  type Line 932  type
932                  procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);                  procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
933                  procedure ListClick;                  procedure ListClick;
934                  procedure ListDoubleClick(Shift: TShiftState);                  procedure ListDoubleClick(Shift: TShiftState);
                 procedure BrowserMovement(const AName: string); overload;  
                 procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;  
935                  procedure SelectListItem(List: TList);                  procedure SelectListItem(List: TList);
                 procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;  
936                  function Hook(var Message: TMessage): Boolean;                  function Hook(var Message: TMessage): Boolean;
937                  procedure AddRoundNameMenu(MenuItem: TMenuItem);                  procedure AddRoundNameMenu(MenuItem: TMenuItem);
938                  procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;                  procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
# Line 948  type Line 944  type
944                  procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;                  procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
945                  procedure FavoriteClick(Sender: TObject); overload;                  procedure FavoriteClick(Sender: TObject); overload;
946                  procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);                  procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
                 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);  
947                  function OnDocumentContextMenu(Sender: TObject): WordBool;                  function OnDocumentContextMenu(Sender: TObject): WordBool;
948                  procedure ShowTextPopup;                  procedure ShowTextPopup;
949                  function GetWidthAllToolButton(ToolBar: TToolBar): Integer;                  function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
# Line 1022  type Line 1017  type
1017    
1018          public          public
1019                  { Public 宣言 }                  { Public 宣言 }
1020                                  LastRoundTime: TDateTime;                  LastRoundTime: TDateTime;
1021                    BrowserNullTab: TBrowserRecord;
1022                  FControlThread: TThreadControl;                  FControlThread: TThreadControl;
1023                  procedure MoveToURL(const inURL: string);                  procedure MoveToURL(const inURL: string);
1024                  function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;                  function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
# Line 1039  type Line 1035  type
1035                  property MailCookie: string read FMailCookie write FMailCookie;                  property MailCookie: string read FMailCookie write FMailCookie;
1036                  property ClickNode: TTreeNode read FClickNode write FClickNode;                  property ClickNode: TTreeNode read FClickNode write FClickNode;
1037                  property TreeType: TGikoTreeType read FTreeType;                  property TreeType: TGikoTreeType read FTreeType;
1038                    property ActiveContent: TBrowserRecord read FActiveContent write FActiveContent;
1039                    property ResRangeMenuSelect: Longint read FResRangeMenuSelect write FResRangeMenuSelect;
1040            property SelectResWord  : string read FSelectResWord write FSelectResWord;
1041            property BrowserSizeWidth: Integer read FBrowserSizeWidth write FBrowserSizeWidth;
1042            property BrowserSizeHeight: Integer read FBrowserSizeHeight write FBrowserSizeHeight;
1043                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
1044                  function GetActiveContent: TThreadItem;                  function GetActiveContent: TThreadItem;
1045                  function GetActiveList: TObject;                  function GetActiveList: TObject;
1046    
1047                  procedure SetListViewType(AViewType: TGikoViewType); overload;                  procedure SetListViewType(AViewType: TGikoViewType); overload;
1048                  procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;                  procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1049                  procedure PlaySound(SoundEventName: string);                  procedure PlaySound(SoundEventName: string);
# Line 1090  type Line 1092  type
1092                  procedure DeleteHistory( threadItem: TThreadItem );                  procedure DeleteHistory( threadItem: TThreadItem );
1093                  //タブを削除                  //タブを削除
1094                  procedure DeleteTab(ThreadItem: TThreadItem); overload;                  procedure DeleteTab(ThreadItem: TThreadItem); overload;
1095                    procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1096                    //現在表示しているスレッドをスクロール
1097                    procedure BrowserMovement(const AName: string); overload;
1098                    //指定したブラウザをスクロール
1099                    procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1100                    //ApplicationのMainFormを取得する
1101                    function GetMainForm(): TComponent;
1102                    procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1103          published          published
1104                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1105                  //TActionでGetActiveContentがnil以外で有効になる                  //TActionでGetActiveContentがnil以外で有効になる
# Line 11096  procedure TGikoForm.WikiFAQWebPageAction Line 11106  procedure TGikoForm.WikiFAQWebPageAction
11106  begin  begin
11107          GikoSys.OpenBrowser(URL_Wiki, gbtAuto);          GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
11108  end;  end;
11109    //ApplicationのMainFormを取得する
11110    function TGikoForm.GetMainForm(): TComponent;
11111    begin
11112            Result := Application.MainForm;
11113    end;
11114    
11115  initialization  initialization
11116                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.532  
changed lines
  Added in v.1.533

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