| 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;//ブラウザドキュメントイベント |
| 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; |
| 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; |
| 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; |
| 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); |
| 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以外で有効になる |
| 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); |