BBSID: string;
FileName: string;
sTitle: string;
-// HtmlName: string;
doc: Variant;
s: string;
-// OldCursor: TCursor;
i: Integer;
idx: Integer;
ThreadItem: TThreadItem;
Thread: TBrowserRecord;
ThreadTitle, ThreadPTitle: string;
- //ThreadScrollTop: Integer;
ThreadIsLog, {ThreadUnRead,} ThreadNewArraical: boolean;
begin
-// AddMessageList('SetContent', nil, gmiWhat);
Thread := inThread;
idx := BrowserTab.TabIndex;
if (FActiveContent <> nil) and
try
try
Sleep(1);
- //Application.ProcessMessages;
FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;
- //if FActiveContent.Browser <> BrowserNullTab.Browser then
- // TOleControl(FActiveContent.Browser).Visible := false;
except
on E: Exception do
MsgBox(Handle, E.Message, 'SetContent[<-ScrollTop]', 0);
FBrowsers.Move(BROWSER_COUNT - 1, 0);
end;
- //MoveWindow(Thread.FBrowser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
-
ThreadTitle := Thread.Thread.Title;
ThreadPTitle := Thread.Thread.ParentBoard.Title;
//ThreadScrollTop := Thread.Thread.ScrollTop;
try
- {
- if ThreadItem.UnRead then begin
- ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
- if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
- TreeView.Refresh;
- end;
- }
-
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
if (FActiveContent.Browser <> BrowserNullTab.Browser) then
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
if (not Assigned(Thread.Browser.Document)) then begin
Thread.Browser.Navigate('about:blank');
end;
- FActiveContent := Thread;
+
while (Thread.Browser.ReadyState <> READYSTATE_COMPLETE) and
(Thread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
Application.ProcessMessages;
Exit;
end;
end;
+
+ //ActiveContent\81@\82Ì\8dX\90V
+ FActiveContent := Thread;
+
if not ThreadIsLog then begin
Self.Caption := CAPTION_NAME ;
try
//Thread.Repaint\82Í\81A\83X\83L\83\93\93\99\82Ì\90Ý\92è\82ð\95Ï\8dX\82µ\82½\82Æ\82«\81AThread\82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82½\82Æ\82«
//\90V\8bK\82ÉThread\82ð\8aJ\82¢\82½\82Æ\82«\82É\90^\82É\82È\82Á\82Ä\82¢\82é\81B
if Thread.Repaint then begin
- //Thread.LastSize := ThreadItem.Size;
Thread.Repaint := false;
Thread.Browser.OnStatusTextChange := nil;
GikoSys.CreateHTML2(doc, ThreadItem, sTitle);
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
- PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );
+ while (Thread.Browser.ReadyState <> READYSTATE_COMPLETE) and
+ (Thread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
+ Application.ProcessMessages;
+ end;
if ThreadItem = nil then begin
FActiveContent := nil;
BrowserTab.Repaint;
Exit;
end;
+ PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );
end;
- ListView.Refresh;
end;
- if (Assigned(Thread)) and (Assigned(Thread.Thread)) and (Thread <> nil) and (ThreadItem <>nil) then begin
- //FActiveContent := Thread;
-
+ if (Thread <> nil) and (ThreadItem <>nil) then begin
BrowserBoardNameLabel.Caption := ThreadPTitle;
ItemIcon16.GetBitmap(4, ItemBoardImage.Picture.Bitmap);
BrowserNameLabel.Caption := ThreadTitle;
ItemImage.Left := BrowserBoardNameLabel.Left + BrowserBoardNameLabel.Width + 8;
BrowserNameLabel.Left := ItemImage.Left + 20;
+
+ //Thread\82Ì\94Â\82Æ\95\\8e¦\82µ\82Ä\82¢\82é\94Â\82ª\93¯\82¶\82È\82ç\95`\89æ\82ð\8dX\90V\82·\82é
+ if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then
+ ListView.Refresh;
end else begin
FActiveContent := nil;
end;
function TGikoForm.GetActiveContent: TThreadItem;
begin
try
- if( Assigned(FActiveContent) ) and (FActiveContent <> nil)
- and (Assigned(FActiveContent.Thread)) and (FActiveContent.Thread <> nil) then
+ if FActiveContent <> nil then
Result := FActiveContent.Thread
- else begin
- FActiveContent := nil;
+ else
Result := nil;
- end;
except
- FActiveContent := nil;
Result := nil;
end;
+
end;
procedure TGikoForm.SetActiveList(Obj: TObject);
end;
mbLeft:
begin
- //\82±\82±\82ÅDblClick\8fE\82í\82È\82¢\82Æ\81AClick\83C\83x\83\93\83g\82ª\97D\90æ\82µ\82Ä\8bN\82«\82Ä\82µ\82Ü\82¤\82Ì\82Å
+ //\82±\82±\82ÅDblClick\8fE\82í\82È\82¢\82Æ\81AClick\83C\83x\83\93\83g\82ª\97D\90æ\82µ\82Ä\8bN\82«\82Ä\82µ\82Ü\82¤\82Ì\82Å
if (ssDouble in Shift) then
ListDoubleClick(Shift)
else
ListPopupMenu.Popup( pos.X, pos.Y );
end;
end;
-{ if ssDouble in Shift then begin
- DoubleClickOccurred[Button] := True;
- end else begin
- DoubleClickOccurred[Button] := False;
- t := GetTickCount+GetDoubleClickTime;
- while GetTickCount < t do begin
- Application.ProcessMessages;
- if DoubleClickOccurred[Button] then
- Exit;
- end;
- end;
- if ssDouble in Shift then begin
- case Button of
- mbLeft: ListDoubleClick;
-// mbMiddle: ;
-// mbRight: ;
- end;
- end else begin
- case Button of
- mbLeft: ListClick;
-// mbMiddle: ;
-// mbRight: ;
- end;
- end;}
end;
procedure TGikoForm.ListClick;
ThreadItem := TThreadItem(ListItem.Data);
if ThreadItem.IsLogFile then begin
-// if AddHistory(ThreadItem) then
-// SetContent(ThreadItem);
InsertBrowserTab(ThreadItem);
ListView.UpdateItems(ListItem.Index, ListItem.Index);
end else begin
-// SetContent(ThreadItem);
InsertBrowserTab(ThreadItem);
end;
if TObject(ListView.Selected.Data) is TCategory then begin
SelectTreeNode(ListView.Selected.Data, True);
-// TreeView.Selected.Expanded := True;
-// TreeView.Selected.Item[ListView.Selected.Index].Selected := True;
- //TreeViewChange(nil, TreeView.Selected);
end else if TObject(ListView.Selected.Data) is TBoard then begin
if TBoard(ListView.Selected.Data).Multiplicity = 0 then
SelectTreeNode(ListView.Selected.Data, True)
end;
end;
end;
-// TreeView.Selected.Expanded := True;
-// TreeView.Selected.Item[ListView.Selected.Index].Selected := True;
- //TreeViewChange(nil, TreeView.Selected);
end else if TObject(ListView.Selected.Data) is TThreadItem then begin
- //if TObject(ListView.Selected.Data) is TThreadItem then begin
- Application.ProcessMessages;
- ThreadItem := TThreadItem(ListView.Selected.Data);
- DownloadContent(ThreadItem, shiftDown);
- //end;
-
+ Application.ProcessMessages;
+ ThreadItem := TThreadItem(ListView.Selected.Data);
+ DownloadContent(ThreadItem, shiftDown);
+
if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
if GikoSys.Setting.ListOrientation = gloHorizontal then begin
if GikoSys.Setting.ListWidthState = glsMin then begin
-// BrowserMaxAndFocusAction.Execute;
BrowserMaxAction.Execute;
SetFocusForBrowserAction.Execute;
end;
end else begin
if GikoSys.Setting.ListHeightState = glsMin then begin
-// BrowserMaxAndFocusAction.Execute;
BrowserMaxAction.Execute;
SetFocusForBrowserAction.Execute;
end;
nm: OleVariant;
activeBrower :TWebBrowser;
begin
-// OleVariant(Browser.Document).parentWindow.location.hash := AName;
-
+ //
while (BrowserRecord.Browser.ReadyState <> READYSTATE_COMPLETE) and
(BrowserRecord.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
- Sleep(1);
+ Sleep(1);
Application.ProcessMessages;
end;
nm: OleVariant;
activeBrower :TWebBrowser;
begin
-// OleVariant(Browser.Document).parentWindow.location.hash := AName;
- {
- while (Browser.ReadyState <> READYSTATE_COMPLETE) and
- (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
- Application.ProcessMessages;
- end;
- }
// Access Violation \82ª\8bN\82«\82é\8e\96\82ª\82 \82é\82Ì\82Å\8d¡\8cã\97v\83`\83F\83b\83N
if(BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex >= 0) then begin
activeBrower := FActiveContent.Browser;
procedure TGikoForm.SelectListItem(List: TList);
var
-// TmpTreeNode: TTreeNode;
TmpListItem: TListItem;
begin
List.Clear;
+ List.Capacity := 0;
TmpListItem := ListView.Selected;
while TmpListItem <> nil do begin
List.Add(TmpListItem.Data);
TmpListItem := ListView.GetNextItem(TmpListItem, sdAll, [isSelected]);
end;
-
+
end;
procedure TGikoForm.ExitActionExecute(Sender: TObject);
Exit;
GikoSys.Setting.StdToolBarVisible := StdToolBarVisibleAction.Checked;
CoolBand.Visible := GikoSys.Setting.StdToolBarVisible;
-// StdToolBar.Visible := StdToolBarVisibleAction.Checked;
-// AnimePanel.Visible := StdToolBar.Visible or ListToolBar.Visible;
-
- //StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible;
end;
Exit;
GikoSys.Setting.AddressBarVisible := AddressBarVisibleAction.Checked;
CoolBand.Visible := GikoSys.Setting.AddressBarVisible;
- //AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible;
end;
Exit;
GikoSys.Setting.LinkBarVisible := LinkBarVisibleAction.Checked;
CoolBand.Visible := GikoSys.Setting.LinkBarVisible;
- //LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
- LinkToolBarVisiblePMenu.Checked := GikoSys.Setting.LinkBarVisible;
+ LinkToolBarVisiblePMenu.Checked := GikoSys.Setting.LinkBarVisible;
end;
procedure TGikoForm.ListToolBarVisibleActionExecute(Sender: TObject);
if CoolBand = nil then
Exit;
CoolBand.Visible := ListToolBarVisibleAction.Checked;
-// ListToolBar.Visible := ListToolBarVisibleAction.Checked;
-// AnimePanel.Visible := StdToolBar.Visible or ListToolBar.Visible;
GikoSys.Setting.ListToolBarVisible := ListToolBarVisibleAction.Checked;
+
end;
procedure TGikoForm.ListNameBarVisibleActionExecute(Sender: TObject);
if CoolBand = nil then
Exit;
CoolBand.Visible := BrowserToolBarVisibleAction.Checked;
-// BrowserToolBar.Visible := BrowserToolBarVisibleAction.Checked;
GikoSys.Setting.BrowserToolBarVisible := BrowserToolBarVisibleAction.Checked;
end;
FSearchDialog.Show;
except
end;
-
+
end;
procedure TGikoForm.OptionActionExecute(Sender: TObject);
//Action\82Å\8b¤\92Ê
procedure TGikoForm.SelectListReloadActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
if (GetActiveList is TCategory) and (ListView.SelCount > 0) then
TAction(Sender).Enabled := True
else if GetActiveList is TBoard then
TAction(Sender).Enabled := True
else
TAction(Sender).Enabled := False;
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
//ActiveList\82ªTBoard\82Å\83X\83\8c\88ê\97\97\82Å\82P\82Â\88È\8fã\91I\91ð\82µ\82Ä\82¢\82é\82Æ\97L\8cø\82É\82È\82éAction\82Å\8b¤\92Ê
procedure TGikoForm.SelectThreadReloadActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (GetActiveList is TBoard) and (ListView.SelCount > 0);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.UpFolderActionUpdate(Sender: TObject);
//\83u\83\89\83E\83U\83^\83u\82ª\82P\82Â\88È\8fã\82Å\97L\8cø\82É\82È\82éAction\82Å\8b¤\92Ê\89»
procedure TGikoForm.AllTabCloseActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
//ActiveList\82ªTBoard\82©TCategory\82Å\83X\83\8c\88ê\97\97\82Å\82P\82Â\88È\8fã\91I\91ð\82µ\82Ä\82¢\82é\82Æ\97L\8cø\82É\82È\82éActionde\8b¤\92Ê
procedure TGikoForm.SelectItemNameCopyActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then
TAction(Sender).Enabled := True
else
TAction(Sender).Enabled := False;
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
//\83u\83\89\83E\83U\83^\83u\82ª\82P\82Â\88È\8fã\82Å\8d¶\92[\82Å\82È\82¢Action\82Å\8b¤\92Ê
procedure TGikoForm.LeftTabSelectActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> 0);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
//\83u\83\89\83E\83U\83^\83u\82ª\82P\82Â\88È\8fã\82Å\89E\92[\82Å\82È\82¢Action\82Å\8b¤\92Ê
procedure TGikoForm.RightTabSelectActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> BrowserTab.Tabs.Count - 1);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.WMSettingChange(var Message: TWMWinIniChange);
//\83u\83\89\83E\83U\82ª\82 \82Á\82Ä\81ANULL\83^\83u\97p\82Ì\82È\82¯\82ê\82Î\97L\8cø\82É\82È\82éAction\82Å\8b¤\92Ê
procedure TGikoForm.SetFocusForBrowserActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
if( FActiveContent <> nil) and (FActiveContent.Browser <> nil) and
(FActiveContent.Browser <> BrowserNullTab.Browser) then
TAction(Sender).Enabled := true
else
TAction(Sender).Enabled := false;
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);
procedure TGikoForm.SelectTimerTimer(Sender: TObject);
begin
+ SelectTimer.Interval := 0;
if not (ListView.Selected = nil) then
if( FActiveContent = nil) or
(GetActiveContent <> TThreadItem(ListView.Selected.Data) ) then begin
- SelectTimer.Interval := 0;
ListClick;
end;
end;
procedure TGikoForm.FormActivate(Sender: TObject);
begin
- MouseGesture.UnHook;
if GikoSys.Setting.GestureEnabled then begin
+ MouseGesture.UnHook;
MouseGesture.OnGestureStart := OnGestureStart;
MouseGesture.OnGestureMove := OnGestureMove;
MouseGesture.OnGestureEnd := OnGestureEnd;
MouseGesture.SetHook(Handle);
end else begin
+ //MouseGesture.UnHook;
MouseGesture.OnGestureStart := nil;
MouseGesture.OnGestureMove := nil;
MouseGesture.OnGestureEnd := nil;
//\83u\83\89\83E\83U\83^\83u\82ª\82Q\82Â\88È\8fã\82 \82ê\82Î\97L\8cø\82É\82È\82é\83A\83N\83V\83\87\83\93\82Å\8b¤\92Ê\89»
procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 1);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.LeftTabCloseActionExecute(Sender: TObject);
begin
//\83u\83\89\83E\83U\83^\83u\96³\82µ\82Å\81A\83L\81[\88Ú\93®\82Å\93Ç\82Ý\94ò\82Î\82µ\82ð\89Â\94\\82É\82·\82é\82½\82ß\82Ì
//\96³\8cø\8e\9e\8aÔ\82ÌTimer\82Ì\8f\88\97\9d
+ //\82Æ\82è\82 \82¦\82¸\81A\83^\83C\83}\81[\82ð\92â\8e~\82·\82é\81B
+ SelectTimer.Interval := 0;
if not (GikoSys.Setting.BrowserTabVisible) then begin
if (GetActiveList is TBoard) then begin
//Shift Alt Ctrl\82ª\98b\82³\82ê\82½\82Æ\82«\82Í\81A\95û\8cü\83L\81[\82ð\97£\82µ\82Ä\82¢\82Ä\82à\96³\8e\8b
- if (ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift) then
- SelectTimer.Interval := 0
- //\95û\8cü\83L\81[\82È\82ç\83^\83C\83}\81[\8dì\93®
- else if( Key = VK_LEFT) or (Key = VK_RIGHT) or
- (Key = VK_UP) or (Key = VK_DOWN) then
- SelectTimer.Interval := GikoSys.Setting.SelectInterval
- //\88ê\94Ê\82Ì\83L\81[\82Í\81A\83^\83C\83}\81[\92â\8e~
- else
- SelectTimer.Interval := 0;
+ if not ((ssShift in Shift) or (ssAlt in Shift) or (ssCtrl in Shift)) and
+ (( Key = VK_LEFT) or (Key = VK_RIGHT) or
+ (Key = VK_UP) or (Key = VK_DOWN)) then
+ SelectTimer.Interval := GikoSys.Setting.SelectInterval;
end;
end;
end;
//TAction\82ÅGetActiveContent\82ªnil\88È\8aO\82Å\97L\8cø\82É\82È\82é
procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (GetActiveContent <> nil);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
//TAction\82ÅGetActiveContent\82ªnil\88È\8aO\82©\82Â\83\8d\83O\82ð\8e\9d\82Á\82Ä\82¢\82é
procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
//TAction\82ÅActiveList\82ªTBoard\82Å\97L\8cø\82É\82È\82é
procedure TGikoForm.DependActiveListTBoardActionUpdate(Sender: TObject);
begin
+{$IFDEF ACTCHK}
//\96³\82\82Ä\82à\82¢\82¢IF\95¶\81@\83R\81[\83h\82©\82ç\96³\97\9d\82â\82è\8cÄ\82Î\82È\82¢\82È\82ç\83`\83F\83b\83N\82µ\82È\82\82Ä\82à\81c
if (Sender <> nil) and (Sender is TAction) then begin
+{$ENDIF}
TAction(Sender).Enabled := (GetActiveList is TBoard);
+{$IFDEF ACTCHK}
end;
+{$ENDIF}
end;
procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject;
OSDN Git Service
