| 1026 |
procedure SetToolBarPopup; |
procedure SetToolBarPopup; |
| 1027 |
procedure ShowFavoriteAddDialog( Item : TObject ); |
procedure ShowFavoriteAddDialog( Item : TObject ); |
| 1028 |
procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 1029 |
|
procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 1030 |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
| 1031 |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
| 1032 |
property OddColor : TColor read FOddColor write FOddColor; |
property OddColor : TColor read FOddColor write FOddColor; |
| 1500 |
dummy1.Caption := ItemReservPMenu.Caption; |
dummy1.Caption := ItemReservPMenu.Caption; |
| 1501 |
dummy1.Hint := ItemReservPMenu.Hint; |
dummy1.Hint := ItemReservPMenu.Hint; |
| 1502 |
|
|
| 1503 |
|
//Samba24のファイルチェック |
| 1504 |
|
GikoSys.SambaFileExists(); |
| 1505 |
end; |
end; |
| 1506 |
|
|
| 1507 |
// CoolBar の設定を変数に保存 |
// CoolBar の設定を変数に保存 |
| 1733 |
//ヒストリリスト保存 |
//ヒストリリスト保存 |
| 1734 |
try |
try |
| 1735 |
SaveHistory; |
SaveHistory; |
| 1736 |
ClearHistory; |
//ClearHistory; |
| 1737 |
except |
except |
| 1738 |
end; |
end; |
| 1739 |
|
|
| 6260 |
i : Integer; |
i : Integer; |
| 6261 |
Items : ^TTreeNodes; |
Items : ^TTreeNodes; |
| 6262 |
ItemURL : string; |
ItemURL : string; |
|
CompURL : string; |
|
| 6263 |
Data : Pointer; |
Data : Pointer; |
| 6264 |
|
sT : Cardinal; |
| 6265 |
|
eT : Cardinal; |
| 6266 |
begin |
begin |
| 6267 |
|
|
| 6268 |
Items := @(FavoriteTreeView.Items); |
Items := @(FavoriteTreeView.Items); |
| 6270 |
Item := TFavoriteBoardItem( Item ).Item |
Item := TFavoriteBoardItem( Item ).Item |
| 6271 |
else if Item is TFavoriteThreadItem then |
else if Item is TFavoriteThreadItem then |
| 6272 |
Item := TFavoriteThreadItem( Item ).Item; |
Item := TFavoriteThreadItem( Item ).Item; |
| 6273 |
|
sT := GetTickCount; |
| 6274 |
if Item is TBoard then begin |
if Item is TBoard then begin |
| 6275 |
ItemURL := TBoard( Item ).URL; |
ItemURL := TBoard( Item ).URL; |
| 6276 |
for i := Items^.Count - 1 downto 0 do begin |
for i := Items^.Count - 1 downto 0 do begin |
| 6277 |
Data := Items^.Item[ i ].Data; |
Data := Items^.Item[ i ].Data; |
| 6278 |
if TObject( Data ) is TFavoriteBoardItem then begin |
if TObject( Data ) is TFavoriteBoardItem then begin |
| 6279 |
CompURL := TFavoriteBoardItem( Data ).URL; |
if ItemURL = TFavoriteThreadItem( Data ).URL then begin |
|
|
|
|
if ItemURL = CompURL then begin |
|
| 6280 |
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
| 6281 |
Exit; |
Exit; |
| 6282 |
Break; |
Break; |
| 6283 |
end; |
end; |
| 6284 |
end; |
end; |
| 6285 |
end; |
end; |
| 6286 |
|
eT := GetTickCount; |
| 6287 |
Dlg := TFavoriteAddDialog.Create(Self); |
Dlg := TFavoriteAddDialog.Create(Self); |
| 6288 |
try |
try |
| 6289 |
Dlg.SetBoard( TBoard( Item ) ); |
Dlg.SetBoard( TBoard( Item ) ); |
| 6290 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 6291 |
finally |
finally |
| 6292 |
Dlg.Free; |
Dlg.Release; |
| 6293 |
end; |
end; |
| 6294 |
end else if Item is TThreadItem then begin |
end else if Item is TThreadItem then begin |
| 6295 |
ItemURL := TThreadItem( Item ).URL; |
ItemURL := TThreadItem( Item ).URL; |
| 6296 |
for i := Items^.Count - 1 downto 0 do begin |
for i := Items^.Count - 1 downto 0 do begin |
| 6297 |
Data := Items^.Item[ i ].Data; |
Data := Items^.Item[ i ].Data; |
| 6298 |
if TObject( Data ) is TFavoriteThreadItem then begin |
if TObject( Data ) is TFavoriteThreadItem then begin |
| 6299 |
CompURL := TFavoriteThreadItem( Data ).URL; |
if ItemURL = TFavoriteThreadItem( Data ).URL then begin |
|
|
|
|
if ItemURL = CompURL then begin |
|
| 6300 |
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
| 6301 |
Exit; |
Exit; |
| 6302 |
Break; |
Break; |
| 6303 |
end; |
end; |
| 6304 |
end; |
end; |
| 6305 |
end; |
end; |
| 6306 |
|
eT := GetTickCount; |
| 6307 |
Dlg := TFavoriteAddDialog.Create(Self); |
Dlg := TFavoriteAddDialog.Create(Self); |
| 6308 |
try |
try |
| 6309 |
Dlg.SetThreadItem( TThreadItem( Item ) ); |
Dlg.SetThreadItem( TThreadItem( Item ) ); |
| 6310 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 6311 |
finally |
finally |
| 6312 |
Dlg.Free; |
Dlg.Release; |
| 6313 |
end; |
end; |
| 6314 |
end; |
end; |
| 6315 |
|
|
| 6316 |
SetLinkBar; |
SetLinkBar; |
| 6317 |
|
ShowMessage(IntToStr(eT-sT)); |
| 6318 |
end; |
end; |
| 6319 |
|
|
| 6320 |
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |
| 9155 |
begin |
begin |
| 9156 |
FavoriteDM.URLReplace(oldURLs, newURLs); |
FavoriteDM.URLReplace(oldURLs, newURLs); |
| 9157 |
end; |
end; |
| 9158 |
|
procedure TGikoForm.RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 9159 |
|
begin |
| 9160 |
|
RoundList.URLReplace(oldURLs, newURLs); |
| 9161 |
|
end; |
| 9162 |
procedure TGikoForm.OnMinimize; |
procedure TGikoForm.OnMinimize; |
| 9163 |
begin |
begin |
| 9164 |
FIsIconiced := True; |
FIsIconiced := True; |