| 2114 |
wkBBS: string; |
wkBBS: string; |
| 2115 |
wkKey: string; |
wkKey: string; |
| 2116 |
|
|
| 2117 |
wkInt: Integer; |
//wkInt: Integer; |
| 2118 |
wkIntSt: Integer; |
wkIntSt: Integer; |
| 2119 |
wkIntTo: Integer; |
wkIntTo: Integer; |
| 2120 |
|
|
| 2214 |
end else if (wkIntSt > 0) and (wkIntTo = 0) then begin |
end else if (wkIntSt > 0) and (wkIntTo = 0) then begin |
| 2215 |
wkIntTo := wkIntSt; |
wkIntTo := wkIntSt; |
| 2216 |
end else if wkIntSt > wkIntTo then begin |
end else if wkIntSt > wkIntTo then begin |
| 2217 |
wkInt := wkIntTo; |
//wkInt := wkIntTo; |
| 2218 |
wkIntTo := wkIntSt; |
wkIntTo := wkIntSt; |
| 2219 |
wkIntSt := wkIntTo; |
wkIntSt := wkIntTo; |
| 2220 |
end; |
end; |
| 2789 |
procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True); |
procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True); |
| 2790 |
var |
var |
| 2791 |
i: Integer; |
i: Integer; |
| 2792 |
OldIndex: Integer; |
// OldIndex: Integer; |
| 2793 |
begin |
begin |
| 2794 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 2795 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 2796 |
if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin |
if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin |
| 2797 |
if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin |
if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin |
| 2798 |
if ActiveTab then begin |
if ActiveTab then begin |
| 2799 |
OldIndex := BrowserTab.TabIndex; |
//OldIndex := BrowserTab.TabIndex; |
| 2800 |
BrowserTab.TabIndex := i; |
BrowserTab.TabIndex := i; |
| 2801 |
// if OldIndex <> i then |
// if OldIndex <> i then |
| 2802 |
BrowserTab.OnChange(nil); |
BrowserTab.OnChange(nil); |
| 2822 |
BrowserNullTab := nil; |
BrowserNullTab := nil; |
| 2823 |
end; |
end; |
| 2824 |
end else begin |
end else begin |
| 2825 |
OldIndex := BrowserTab.TabIndex; |
//OldIndex := BrowserTab.TabIndex; |
| 2826 |
BrowserNullTab := ThreadItem; |
BrowserNullTab := ThreadItem; |
| 2827 |
BrowserTab.TabIndex := -1; |
BrowserTab.TabIndex := -1; |
| 2828 |
// if OldIndex = -1 then |
// if OldIndex = -1 then |
| 2838 |
BBSID: string; |
BBSID: string; |
| 2839 |
FileName: string; |
FileName: string; |
| 2840 |
sTitle: string; |
sTitle: string; |
| 2841 |
HtmlName: string; |
// HtmlName: string; |
| 2842 |
doc: Variant; |
doc: Variant; |
| 2843 |
s: string; |
s: string; |
| 2844 |
OldCursor: TCursor; |
OldCursor: TCursor; |
| 2845 |
i: Integer; |
//i: Integer; |
| 2846 |
begin |
begin |
| 2847 |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 2848 |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 2920 |
except |
except |
| 2921 |
end; |
end; |
| 2922 |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
| 2923 |
i := 0; |
//i := 0; |
| 2924 |
try |
try |
| 2925 |
try |
try |
| 2926 |
doc := Browser.Document; |
doc := Browser.Document; |
| 3157 |
Item: TThreadItem; |
Item: TThreadItem; |
| 3158 |
Node: TTreeNode; |
Node: TTreeNode; |
| 3159 |
begin |
begin |
| 3160 |
Result := False; |
// Result := False; |
| 3161 |
// if (GetActiveContent = ThreadItem) and |
// if (GetActiveContent = ThreadItem) and |
| 3162 |
// (ThreadItem.Count <= ThreadItem.Kokomade) then |
// (ThreadItem.Count <= ThreadItem.Kokomade) then |
| 3163 |
// Exit; |
// Exit; |
| 3165 |
// Exit; |
// Exit; |
| 3166 |
|
|
| 3167 |
Result := True; |
Result := True; |
| 3168 |
|
item := nil; |
| 3169 |
for i := 0 to FHistoryList.Count - 1 do begin |
for i := 0 to FHistoryList.Count - 1 do begin |
| 3170 |
if TObject(FHistoryList[i]) is TThreadItem then begin |
if TObject(FHistoryList[i]) is TThreadItem then begin |
| 3171 |
Item := TThreadItem(FHistoryList[i]); |
Item := TThreadItem(FHistoryList[i]); |
| 3274 |
ChangingEvent: TTVChangingEvent; |
ChangingEvent: TTVChangingEvent; |
| 3275 |
i: Integer; |
i: Integer; |
| 3276 |
begin |
begin |
| 3277 |
|
ChangeEvent := nil; |
| 3278 |
|
ChangingEvent := nil; |
| 3279 |
|
|
| 3280 |
if not CallEvent then begin |
if not CallEvent then begin |
| 3281 |
ChangeEvent := TreeView.OnChange; |
ChangeEvent := TreeView.OnChange; |
| 3282 |
ChangingEvent := TreeView.OnChanging; |
ChangingEvent := TreeView.OnChanging; |
| 3954 |
Editor: TEditorForm; |
Editor: TEditorForm; |
| 3955 |
Item: TThreadItem; |
Item: TThreadItem; |
| 3956 |
msg: string; |
msg: string; |
| 3957 |
buf: Integer; |
//buf: Integer; |
| 3958 |
begin |
begin |
| 3959 |
Item := GetActiveContent; |
Item := GetActiveContent; |
| 3960 |
if Item = nil then Exit; |
if Item = nil then Exit; |
| 4921 |
|
|
| 4922 |
procedure TGikoForm.SetBrowserTabState; |
procedure TGikoForm.SetBrowserTabState; |
| 4923 |
var |
var |
| 4924 |
i: Integer; |
// i: Integer; |
| 4925 |
CoolBand: TCoolBand; |
CoolBand: TCoolBand; |
| 4926 |
begin |
begin |
| 4927 |
BrowserBottomPanel.AutoSize := False; |
BrowserBottomPanel.AutoSize := False; |
| 5545 |
FavThread: TFavoriteThreadItem; |
FavThread: TFavoriteThreadItem; |
| 5546 |
Item: TObject; |
Item: TObject; |
| 5547 |
begin |
begin |
| 5548 |
Item := nil; |
// Item := nil; |
| 5549 |
if Sender is TFavoriteMenuItem then |
if Sender is TFavoriteMenuItem then |
| 5550 |
Item := TFavoriteMenuItem(Sender).Data |
Item := TFavoriteMenuItem(Sender).Data |
| 5551 |
else if Sender is TLinkToolButton then |
else if Sender is TLinkToolButton then |
| 5781 |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
| 5782 |
var |
var |
| 5783 |
hComboEdit: THandle; |
hComboEdit: THandle; |
| 5784 |
KeyData: Integer; |
// KeyData: Integer; |
| 5785 |
begin |
begin |
| 5786 |
Handled := False; |
Handled := False; |
| 5787 |
if AddressComboBox.Focused or SelectComboBox.Focused then begin |
if AddressComboBox.Focused or SelectComboBox.Focused then begin |
| 6351 |
Idx := 0; |
Idx := 0; |
| 6352 |
for i := 0 to MainCoolBar.Bands.Count - 1 do begin |
for i := 0 to MainCoolBar.Bands.Count - 1 do begin |
| 6353 |
if MainCoolBar.Bands[ i ].Visible then begin |
if MainCoolBar.Bands[ i ].Visible then begin |
| 6354 |
if Idx = RebarChevron^.uBand then begin |
if Idx = Int64(RebarChevron^.uBand) then begin |
| 6355 |
Idx := i; |
Idx := i; |
| 6356 |
break; |
break; |
| 6357 |
end; |
end; |
| 6380 |
begin |
begin |
| 6381 |
MenuItem.Click; |
MenuItem.Click; |
| 6382 |
for i := 0 to MenuItem.Count - 1 do begin |
for i := 0 to MenuItem.Count - 1 do begin |
| 6383 |
Item := nil; |
// Item := nil; |
| 6384 |
if MenuItem[i] is TFavoriteMenuItem then begin |
if MenuItem[i] is TFavoriteMenuItem then begin |
| 6385 |
Item := TFavoriteMenuItem.Create(Self); |
Item := TFavoriteMenuItem.Create(Self); |
| 6386 |
TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(MenuItem[i]).Data; |
TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(MenuItem[i]).Data; |
| 6428 |
if Assigned(PopupMenu.OnPopup) then |
if Assigned(PopupMenu.OnPopup) then |
| 6429 |
PopupMenu.OnPopup(nil); |
PopupMenu.OnPopup(nil); |
| 6430 |
for i := 0 to PopupMenu.Items.Count - 1 do begin |
for i := 0 to PopupMenu.Items.Count - 1 do begin |
| 6431 |
Item := nil; |
// Item := nil; |
| 6432 |
if PopupMenu.Items[i] is TFavoriteMenuItem then begin |
if PopupMenu.Items[i] is TFavoriteMenuItem then begin |
| 6433 |
Item := TFavoriteMenuItem.Create(Self); |
Item := TFavoriteMenuItem.Create(Self); |
| 6434 |
TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data; |
TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data; |
| 6684 |
var |
var |
| 6685 |
Wnd: THandle; |
Wnd: THandle; |
| 6686 |
delta: Integer; |
delta: Integer; |
| 6687 |
msg: TMessage; |
// msg: TMessage; |
| 6688 |
begin |
begin |
| 6689 |
Handled := False; |
Handled := False; |
| 6690 |
Wnd := WindowFromPoint(MousePos); |
Wnd := WindowFromPoint(MousePos); |
| 6706 |
|
|
| 6707 |
|
|
| 6708 |
procedure TGikoForm.SelectComboBoxChange(Sender: TObject); |
procedure TGikoForm.SelectComboBoxChange(Sender: TObject); |
| 6709 |
|
{ |
| 6710 |
var |
var |
| 6711 |
theType: TGikoViewType; |
// theType: TGikoViewType; |
| 6712 |
|
} |
| 6713 |
begin |
begin |
| 6714 |
if Length( SelectComboBox.Text ) = 0 then |
if Length( SelectComboBox.Text ) = 0 then |
| 6715 |
begin |
begin |
| 6811 |
FilterList : TStringList; |
FilterList : TStringList; |
| 6812 |
idx : Integer; |
idx : Integer; |
| 6813 |
begin |
begin |
| 6814 |
|
Dlg := TListSelectDialog.Create(Self); |
| 6815 |
try |
try |
|
Dlg := TListSelectDialog.Create(Self); |
|
| 6816 |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
| 6817 |
Dlg.SelectComboBox.Text := ''; |
Dlg.SelectComboBox.Text := ''; |
| 6818 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 6879 |
|
|
| 6880 |
procedure TGikoForm.FormKeyDown(Sender: TObject; var Key: Word; |
procedure TGikoForm.FormKeyDown(Sender: TObject; var Key: Word; |
| 6881 |
Shift: TShiftState); |
Shift: TShiftState); |
| 6882 |
|
|
| 6883 |
var |
var |
| 6884 |
|
|
| 6885 |
Doc: IHtmlDocument2; |
Doc: IHtmlDocument2; |
| 6886 |
Range: IHTMLTxtRange; |
// Range: IHTMLTxtRange; |
| 6887 |
s: string; |
s: string; |
| 6888 |
Num: Integer; |
Num: Integer; |
| 6889 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 6890 |
|
|
| 6891 |
begin |
begin |
| 6892 |
if ssCtrl in Shift then begin |
|
| 6893 |
if ssAlt in Shift then begin |
ThreadItem := GetActiveContent; |
| 6894 |
Doc := Browser.Document as IHtmlDocument2; |
if ThreadItem <> nil then begin |
| 6895 |
s := IntToStr(Fkeynum); |
if ssCtrl in Shift then begin |
| 6896 |
if GikoSys.IsNumeric(s) then begin |
if ssAlt in Shift then begin |
| 6897 |
ThreadItem := GetActiveContent; |
Doc := Browser.Document as IHtmlDocument2; |
| 6898 |
if ThreadItem <> nil then begin |
s := IntToStr(Fkeynum); |
| 6899 |
Num := StrToInt(s); |
if GikoSys.IsNumeric(s) then begin |
| 6900 |
FHint.PopupType := gptThread; |
ThreadItem := GetActiveContent; |
| 6901 |
SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False); |
if ThreadItem <> nil then begin |
| 6902 |
if FHint.ResCount <> 0 then begin |
Num := StrToInt(s); |
| 6903 |
ShowTextPopup; |
FHint.PopupType := gptThread; |
| 6904 |
end; |
SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False); |
| 6905 |
end; |
if FHint.ResCount <> 0 then begin |
| 6906 |
end; |
ShowTextPopup; |
| 6907 |
Fkeynum := 0; |
end; |
| 6908 |
end else begin |
end; |
| 6909 |
if Fkeynum = 0 then begin |
end; |
| 6910 |
if (Key >= $60) and (Key <= $69) then begin |
Fkeynum := 0; |
| 6911 |
Fkeynum := Key - $60; |
end else begin |
| 6912 |
end; |
if Fkeynum = 0 then begin |
| 6913 |
end else begin |
if (Key >= $60) and (Key <= $69) then begin |
| 6914 |
if (Key >= $60) and (Key <= $69) then begin |
Fkeynum := Key - $60; |
| 6915 |
Fkeynum := Fkeynum * 10 + Key - $60; |
end; |
| 6916 |
end; |
end else begin |
| 6917 |
end; |
if (Key >= $60) and (Key <= $69) then begin |
| 6918 |
end; |
Fkeynum := Fkeynum * 10 + Key - $60; |
| 6919 |
end else begin |
end; |
| 6920 |
Fkeynum := 0; |
end; |
| 6921 |
if FHint <> nil then begin |
end; |
| 6922 |
FHint.ReleaseHandle; |
end else begin |
| 6923 |
FHint.ClearAllRes; |
Fkeynum := 0; |
| 6924 |
end; |
if FHint <> nil then begin |
| 6925 |
|
FHint.ReleaseHandle; |
| 6926 |
|
FHint.ClearAllRes; |
| 6927 |
|
end; |
| 6928 |
|
end; |
| 6929 |
end; |
end; |
| 6930 |
|
|
| 6931 |
end; |
end; |
| 6934 |
procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word; |
procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word; |
| 6935 |
Shift: TShiftState); |
Shift: TShiftState); |
| 6936 |
begin |
begin |
| 6937 |
|
|
| 6938 |
if Key = $11 then begin |
if Key = $11 then begin |
| 6939 |
Fkeynum := 0; |
Fkeynum := 0; |
| 6940 |
if FHint <> nil then begin |
if FHint <> nil then begin |
| 6943 |
end; |
end; |
| 6944 |
|
|
| 6945 |
end; |
end; |
| 6946 |
|
|
| 6947 |
end; |
end; |
| 6948 |
|
|
| 6949 |
// 全てのレスを表示 |
// 全てのレスを表示 |
| 7136 |
i : Integer; |
i : Integer; |
| 7137 |
msg : String; |
msg : String; |
| 7138 |
begin |
begin |
| 7139 |
|
IndividualForm := TIndividualAbonForm.Create(Self); |
| 7140 |
try |
try |
|
IndividualForm := TIndividualAbonForm.Create(Self); |
|
| 7141 |
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
| 7142 |
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
| 7143 |
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |