| 648 |
procedure SelectItemActionUpdate(Sender: TObject); |
procedure SelectItemActionUpdate(Sender: TObject); |
| 649 |
procedure UpFolderActionUpdate(Sender: TObject); |
procedure UpFolderActionUpdate(Sender: TObject); |
| 650 |
procedure FormResize(Sender: TObject); |
procedure FormResize(Sender: TObject); |
|
procedure ScrollTopActionUpdate(Sender: TObject); |
|
|
procedure ScrollLastActionUpdate(Sender: TObject); |
|
|
procedure ScrollNewActionUpdate(Sender: TObject); |
|
| 651 |
procedure ScrollKokoActionUpdate(Sender: TObject); |
procedure ScrollKokoActionUpdate(Sender: TObject); |
|
procedure EditorActionUpdate(Sender: TObject); |
|
|
procedure IEActionUpdate(Sender: TObject); |
|
|
procedure ShowThreadActionUpdate(Sender: TObject); |
|
|
procedure ShowBoardActionUpdate(Sender: TObject); |
|
| 652 |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
|
procedure ItemReloadActionUpdate(Sender: TObject); |
|
| 653 |
procedure LogDeleteActionExecute(Sender: TObject); |
procedure LogDeleteActionExecute(Sender: TObject); |
| 654 |
procedure KokomadeActionExecute(Sender: TObject); |
procedure KokomadeActionExecute(Sender: TObject); |
| 655 |
procedure ZenbuActionExecute(Sender: TObject); |
procedure ZenbuActionExecute(Sender: TObject); |
| 692 |
procedure ArrangeActionExecute(Sender: TObject); |
procedure ArrangeActionExecute(Sender: TObject); |
| 693 |
procedure NameURLCopyActionExecute(Sender: TObject); |
procedure NameURLCopyActionExecute(Sender: TObject); |
| 694 |
procedure SelectItemNameURLCopyActionExecute(Sender: TObject); |
procedure SelectItemNameURLCopyActionExecute(Sender: TObject); |
|
procedure URLCopyActionUpdate(Sender: TObject); |
|
|
procedure NameURLCopyActionUpdate(Sender: TObject); |
|
| 695 |
procedure BrowserTabCloseActionUpdate(Sender: TObject); |
procedure BrowserTabCloseActionUpdate(Sender: TObject); |
| 696 |
procedure NotSelectTabCloseActionUpdate(Sender: TObject); |
procedure NotSelectTabCloseActionUpdate(Sender: TObject); |
| 697 |
procedure AllTabCloseActionUpdate(Sender: TObject); |
procedure AllTabCloseActionUpdate(Sender: TObject); |
| 698 |
procedure SelectItemNameURLCopyActionUpdate(Sender: TObject); |
procedure SelectItemNameURLCopyActionUpdate(Sender: TObject); |
| 699 |
procedure ActiveLogDeleteActionExecute(Sender: TObject); |
procedure ActiveLogDeleteActionExecute(Sender: TObject); |
|
procedure ActiveLogDeleteActionUpdate(Sender: TObject); |
|
| 700 |
procedure ListNameBarVisibleActionExecute(Sender: TObject); |
procedure ListNameBarVisibleActionExecute(Sender: TObject); |
| 701 |
procedure BrowserNameBarVisibleActionExecute(Sender: TObject); |
procedure BrowserNameBarVisibleActionExecute(Sender: TObject); |
| 702 |
procedure TreeSelectNameURLCopyExecute(Sender: TObject); |
procedure TreeSelectNameURLCopyExecute(Sender: TObject); |
| 717 |
procedure RightmostTabSelectActionUpdate(Sender: TObject); |
procedure RightmostTabSelectActionUpdate(Sender: TObject); |
| 718 |
procedure FavoriteMenuClick(Sender: TObject); |
procedure FavoriteMenuClick(Sender: TObject); |
| 719 |
procedure FavoriteAddActionExecute(Sender: TObject); |
procedure FavoriteAddActionExecute(Sender: TObject); |
|
procedure FavoriteAddActionUpdate(Sender: TObject); |
|
| 720 |
procedure BoardFavoriteAddActionExecute(Sender: TObject); |
procedure BoardFavoriteAddActionExecute(Sender: TObject); |
| 721 |
procedure BoardFavoriteAddActionUpdate(Sender: TObject); |
procedure BoardFavoriteAddActionUpdate(Sender: TObject); |
| 722 |
procedure ThreadFavoriteAddActionExecute(Sender: TObject); |
procedure ThreadFavoriteAddActionExecute(Sender: TObject); |
| 769 |
procedure BoardIEActionUpdate(Sender: TObject); |
procedure BoardIEActionUpdate(Sender: TObject); |
| 770 |
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; |
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; |
| 771 |
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); |
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); |
|
procedure NameCopyActionUpdate(Sender: TObject); |
|
| 772 |
procedure SelectComboBoxChange(Sender: TObject); |
procedure SelectComboBoxChange(Sender: TObject); |
| 773 |
procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word; |
procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word; |
| 774 |
Shift: TShiftState); |
Shift: TShiftState); |
| 776 |
procedure SelectResActionExecute(Sender: TObject); |
procedure SelectResActionExecute(Sender: TObject); |
| 777 |
procedure SelectResActionUpdate(Sender: TObject); |
procedure SelectResActionUpdate(Sender: TObject); |
| 778 |
procedure AllResActionExecute(Sender: TObject); |
procedure AllResActionExecute(Sender: TObject); |
|
procedure AllResActionUpdate(Sender: TObject); |
|
| 779 |
procedure ReloadClick(Sender: TObject); |
procedure ReloadClick(Sender: TObject); |
| 780 |
procedure GoBackClick(Sender: TObject); |
procedure GoBackClick(Sender: TObject); |
| 781 |
procedure GoFowardClick(Sender: TObject); |
procedure GoFowardClick(Sender: TObject); |
| 828 |
procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject); |
procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject); |
| 829 |
procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject); |
procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject); |
| 830 |
procedure UpBoardActionExecute(Sender: TObject); |
procedure UpBoardActionExecute(Sender: TObject); |
|
procedure UpBoardActionUpdate(Sender: TObject); |
|
| 831 |
procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint; |
procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint; |
| 832 |
var Handled: Boolean); |
var Handled: Boolean); |
| 833 |
procedure KoreCopyExecute(Sender: TObject); |
procedure KoreCopyExecute(Sender: TObject); |
| 843 |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
| 844 |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
| 845 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure ResRangeActionUpdate(Sender: TObject); |
|
| 846 |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
| 847 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 848 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 875 |
procedure ListViewColumnRightClick(Sender: TObject; |
procedure ListViewColumnRightClick(Sender: TObject; |
| 876 |
Column: TListColumn; Point: TPoint); |
Column: TListColumn; Point: TPoint); |
| 877 |
procedure JumpToNumOfResActionExecute(Sender: TObject); |
procedure JumpToNumOfResActionExecute(Sender: TObject); |
|
procedure JumpToNumOfResActionUpdate(Sender: TObject); |
|
| 878 |
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
| 879 |
procedure ListViewCustomDrawItem(Sender: TCustomListView; |
procedure ListViewCustomDrawItem(Sender: TCustomListView; |
| 880 |
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); |
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); |
| 905 |
procedure BeLogInOutActionExecute(Sender: TObject); |
procedure BeLogInOutActionExecute(Sender: TObject); |
| 906 |
procedure BeLogInOutActionUpdate(Sender: TObject); |
procedure BeLogInOutActionUpdate(Sender: TObject); |
| 907 |
procedure UnSelectedListViewActionExecute(Sender: TObject); |
procedure UnSelectedListViewActionExecute(Sender: TObject); |
| 908 |
|
procedure ListViewKeyUp(Sender: TObject; var Key: Word; |
| 909 |
|
Shift: TShiftState); |
| 910 |
private |
private |
| 911 |
{ Private 宣言 } |
{ Private 宣言 } |
| 912 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 1085 |
//ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ |
//ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ |
| 1086 |
procedure RepaintAllTabsBrowser(); |
procedure RepaintAllTabsBrowser(); |
| 1087 |
//リンクの文字列からレスポップアップ用のURLに変換する |
//リンクの文字列からレスポップアップ用のURLに変換する |
| 1088 |
function GetRespopupURL(AText, AThreadURL : string): string; |
function GetRespopupURL(AText, AThreadURL : string): string; |
| 1089 |
protected |
protected |
| 1090 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 1091 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 1156 |
procedure IDAnchorPopup(Abody :string); |
procedure IDAnchorPopup(Abody :string); |
| 1157 |
published |
published |
| 1158 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 1159 |
|
//TActionでGetActiveContentがnil以外で有効になる |
| 1160 |
|
procedure DependActiveCntentActionUpdate(Sender: TObject); |
| 1161 |
|
//TActionでGetActiveContentがnil以外かつログを持っている |
| 1162 |
|
procedure DependActiveCntentLogActionUpdate(Sender: TObject); |
| 1163 |
end; |
end; |
| 1164 |
|
|
| 1165 |
TFavoriteMenuItem = class(TMenuItem) |
TFavoriteMenuItem = class(TMenuItem) |
| 3365 |
|
|
| 3366 |
procedure TGikoForm.AppFormDeactivate(Sender: TObject); |
procedure TGikoForm.AppFormDeactivate(Sender: TObject); |
| 3367 |
begin |
begin |
| 3368 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3369 |
if Application.Terminated then |
if not Application.Terminated then begin |
| 3370 |
Exit; |
if PreviewTimer.Enabled then |
| 3371 |
if PreviewTimer.Enabled then |
PreviewTimer.Enabled := False; |
| 3372 |
PreviewTimer.Enabled := False; |
//フォーカスが他のアプリに変わったときにヒントを消去 |
| 3373 |
//フォーカスが他のアプリに変わったときにヒントを消去 |
if FHint <> nil then begin |
| 3374 |
if FHint <> nil then begin |
FHint.ReleaseHandle; |
| 3375 |
FHint.ReleaseHandle; |
FHint.ClearAllRes; |
| 3376 |
FHint.ClearAllRes; |
end; |
| 3377 |
|
//プレビューを隠す |
| 3378 |
|
if FPreviewBrowser <> nil then |
| 3379 |
|
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
| 3380 |
end; |
end; |
|
if FPreviewBrowser <> nil then |
|
|
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
|
|
|
|
| 3381 |
end; |
end; |
| 3382 |
|
|
| 3383 |
procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView; |
procedure TGikoForm.TreeViewCustomDraw(Sender: TCustomTreeView; |
| 5748 |
|
|
| 5749 |
end; |
end; |
| 5750 |
|
|
|
procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ScrollTopAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.ScrollLastActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ScrollLastAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.ScrollNewActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ScrollNewAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
| 5751 |
procedure TGikoForm.ScrollKokoActionUpdate(Sender: TObject); |
procedure TGikoForm.ScrollKokoActionUpdate(Sender: TObject); |
| 5752 |
begin |
begin |
| 5753 |
ScrollKokoAction.Enabled := (GetActiveContent <> nil) |
ScrollKokoAction.Enabled := (GetActiveContent <> nil) |
| 5756 |
|
|
| 5757 |
end; |
end; |
| 5758 |
|
|
|
procedure TGikoForm.EditorActionUpdate(Sender: TObject); |
|
|
begin |
|
|
EditorAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.IEActionUpdate(Sender: TObject); |
|
|
begin |
|
|
IEAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.ShowThreadActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ShowThreadAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.ShowBoardActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ShowBoardAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.ItemReloadActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ItemReloadAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.URLCopyActionUpdate(Sender: TObject); |
|
|
begin |
|
|
URLCopyAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.NameCopyActionUpdate(Sender: TObject); |
|
|
begin |
|
|
NameCopyAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
|
procedure TGikoForm.NameURLCopyActionUpdate(Sender: TObject); |
|
|
begin |
|
|
NameURLCopyAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
| 5759 |
procedure TGikoForm.BrowserTabCloseActionUpdate(Sender: TObject); |
procedure TGikoForm.BrowserTabCloseActionUpdate(Sender: TObject); |
| 5760 |
begin |
begin |
| 5761 |
BrowserTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0); |
BrowserTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0); |
| 5771 |
AllTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0); |
AllTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0); |
| 5772 |
end; |
end; |
| 5773 |
|
|
|
procedure TGikoForm.ActiveLogDeleteActionUpdate(Sender: TObject); |
|
|
begin |
|
|
ActiveLogDeleteAction.Enabled := GetActiveContent <> nil; |
|
|
end; |
|
|
|
|
| 5774 |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
| 5775 |
const |
const |
| 5776 |
DEL_MSG = '“^0”のログを削除します。よろしいですか?'; |
DEL_MSG = '“^0”のログを削除します。よろしいですか?'; |
| 7494 |
end; |
end; |
| 7495 |
end; |
end; |
| 7496 |
|
|
|
procedure TGikoForm.FavoriteAddActionUpdate(Sender: TObject); |
|
|
begin |
|
|
FavoriteAddAction.Enabled := (GetActiveContent <> nil); |
|
|
end; |
|
|
|
|
| 7497 |
procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject); |
| 7498 |
begin |
begin |
| 7499 |
if TObject(ListView.Selected.Data) is TBoard then |
if TObject(ListView.Selected.Data) is TBoard then |
| 9243 |
|
|
| 9244 |
procedure TGikoForm.SelectResActionUpdate(Sender: TObject); |
procedure TGikoForm.SelectResActionUpdate(Sender: TObject); |
| 9245 |
begin |
begin |
|
SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
| 9246 |
end; |
end; |
| 9247 |
|
|
| 9248 |
// 全てのレスを表示 |
// 全てのレスを表示 |
| 9274 |
end; |
end; |
| 9275 |
end; |
end; |
| 9276 |
|
|
|
procedure TGikoForm.AllResActionUpdate(Sender: TObject); |
|
|
begin |
|
|
// AllResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
| 9277 |
procedure TGikoForm.ReloadClick(Sender: TObject); |
procedure TGikoForm.ReloadClick(Sender: TObject); |
| 9278 |
begin |
begin |
| 9279 |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
| 10298 |
|
|
| 10299 |
end; |
end; |
| 10300 |
|
|
|
procedure TGikoForm.UpBoardActionUpdate(Sender: TObject); |
|
|
begin |
|
|
|
|
|
UpBoardAction.Enabled := GetActiveContent <> nil; |
|
|
|
|
|
end; |
|
|
|
|
| 10301 |
procedure TGikoForm.BrowserTabContextPopup(Sender: TObject; |
procedure TGikoForm.BrowserTabContextPopup(Sender: TObject; |
| 10302 |
MousePos: TPoint; var Handled: Boolean); |
MousePos: TPoint; var Handled: Boolean); |
| 10303 |
var |
var |
| 10743 |
|
|
| 10744 |
end; |
end; |
| 10745 |
|
|
|
procedure TGikoForm.ResRangeActionUpdate(Sender: TObject); |
|
|
begin |
|
|
// ResRangeAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
| 10746 |
function TGikoForm.WebBrowserClick(Sender: TObject): WordBool; |
function TGikoForm.WebBrowserClick(Sender: TObject): WordBool; |
| 10747 |
var |
var |
| 10748 |
p : TPoint; |
p : TPoint; |
| 10879 |
procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem; |
procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem; |
| 10880 |
Selected: Boolean); |
Selected: Boolean); |
| 10881 |
begin |
begin |
| 10882 |
|
{ |
| 10883 |
if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then |
if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then |
| 10884 |
if (TObject( Item.Data ) is TThreadItem) then begin |
if (TObject( Item.Data ) is TThreadItem) then begin |
| 10885 |
SelectTimer.Interval := GikoSys.Setting.SelectInterval; |
SelectTimer.Interval := GikoSys.Setting.SelectInterval; |
| 10887 |
SelectTimer.Interval := 0 |
SelectTimer.Interval := 0 |
| 10888 |
else |
else |
| 10889 |
SelectTimer.Interval := 0; |
SelectTimer.Interval := 0; |
| 10890 |
|
} |
| 10891 |
end; |
end; |
| 10892 |
|
|
| 10893 |
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
| 11597 |
end; |
end; |
| 11598 |
end; |
end; |
| 11599 |
|
|
|
procedure TGikoForm.JumpToNumOfResActionUpdate(Sender: TObject); |
|
|
begin |
|
|
JumpToNumOfResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
|
|
end; |
|
|
|
|
| 11600 |
procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
| 11601 |
var |
var |
| 11602 |
node : TTreeNode; |
node : TTreeNode; |
| 12267 |
end; |
end; |
| 12268 |
end; |
end; |
| 12269 |
|
|
| 12270 |
|
procedure TGikoForm.ListViewKeyUp(Sender: TObject; var Key: Word; |
| 12271 |
|
Shift: TShiftState); |
| 12272 |
|
begin |
| 12273 |
|
//ブラウザタブ無しで、キー移動で読み飛ばしを可能にするための |
| 12274 |
|
//無効時間のTimerの処理 |
| 12275 |
|
if not (GikoSys.Setting.BrowserTabVisible) then begin |
| 12276 |
|
if (GetActiveList is TBoard) then begin |
| 12277 |
|
//Shift Alt Ctrlが話されたときは、方向キーを離していても無視 |
| 12278 |
|
if (ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift) then |
| 12279 |
|
SelectTimer.Interval := 0 |
| 12280 |
|
//方向キーならタイマー作動 |
| 12281 |
|
else if( Key = VK_LEFT) or (Key = VK_RIGHT) or |
| 12282 |
|
(Key = VK_UP) or (Key = VK_DOWN) then |
| 12283 |
|
SelectTimer.Interval := GikoSys.Setting.SelectInterval |
| 12284 |
|
//一般のキーは、タイマー停止 |
| 12285 |
|
else |
| 12286 |
|
SelectTimer.Interval := 0; |
| 12287 |
|
end; |
| 12288 |
|
end; |
| 12289 |
|
end; |
| 12290 |
|
//TActionでGetActiveContentがnil以外で有効になる |
| 12291 |
|
procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject); |
| 12292 |
|
begin |
| 12293 |
|
if (Sender <> nil) and (Sender is TAction) then begin |
| 12294 |
|
TAction(Sender).Enabled := (GetActiveContent <> nil); |
| 12295 |
|
end; |
| 12296 |
|
end; |
| 12297 |
|
//TActionでGetActiveContentがnil以外かつログを持っている |
| 12298 |
|
procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject); |
| 12299 |
|
begin |
| 12300 |
|
if (Sender <> nil) and (Sender is TAction) then begin |
| 12301 |
|
TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
| 12302 |
|
end; |
| 12303 |
|
end; |
| 12304 |
|
|
| 12305 |
initialization |
initialization |
| 12306 |
OleInitialize(nil); |
OleInitialize(nil); |
| 12307 |
finalization |
finalization |