Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.340 by h677, Sat Jun 19 13:36:43 2004 UTC revision 1.341 by h677, Sat Jun 19 14:42:45 2004 UTC
# Line 874  type Line 874  type
874        Selected: Boolean);        Selected: Boolean);
875      procedure SelectTimerTimer(Sender: TObject);      procedure SelectTimerTimer(Sender: TObject);
876      procedure SelectItemSaveForHTMLExecute(Sender: TObject);      procedure SelectItemSaveForHTMLExecute(Sender: TObject);
877        procedure KidokuActionExecute(Sender: TObject);
878        procedure MidokuActionExecute(Sender: TObject);
879          private          private
880                  { Private 宣言 }                  { Private 宣言 }
881          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 10351  begin Line 10353  begin
10353          List := TList.Create;          List := TList.Create;
10354          try          try
10355                  SelectListItem(List);                  SelectListItem(List);
10356          FileSaveAs1.Dialog.Title := '選択スレッドをHTML化して保存';                  FileSaveAs1.Dialog.Title := '選択スレッドをHTML化して保存';
10357                  FileSaveAs1.Dialog.Filter := 'HTMLファイル(*.html)|*.html';                  FileSaveAs1.Dialog.Filter := 'HTMLファイル(*.html)|*.html';
10358                  for i := 0 to List.Count - 1 do begin                  for i := 0 to List.Count - 1 do begin
10359                          if TObject(List[i]) is TThreadItem then begin                          if TObject(List[i]) is TThreadItem then begin
# Line 10371  begin Line 10373  begin
10373          finally          finally
10374                  List.Free;                  List.Free;
10375          end;          end;
10376    end;
10377    
10378    procedure TGikoForm.KidokuActionExecute(Sender: TObject);
10379    var
10380            List: TList;
10381            i: Integer;
10382    begin
10383            List := TList.Create;
10384            try
10385                    SelectListItem(List);
10386                    for i := 0 to List.Count - 1 do begin
10387                            if TObject(List[i]) is TThreadItem then begin
10388                                    TThreadItem(List[i]).UnRead := false;
10389                                    TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;
10390                            end;
10391                    end;
10392                    if TreeView.Visible then
10393                            TreeView.Refresh;
10394            finally
10395                    List.Free;
10396            end;
10397    end;
10398    
10399    procedure TGikoForm.MidokuActionExecute(Sender: TObject);
10400    var
10401            List: TList;
10402            i: Integer;
10403    begin
10404            List := TList.Create;
10405            try
10406                    SelectListItem(List);
10407                    for i := 0 to List.Count - 1 do begin
10408                            if TObject(List[i]) is TThreadItem then begin
10409                                    TThreadItem(List[i]).UnRead := true;
10410                                    TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;
10411                            end;
10412                    end;
10413                    if TreeView.Visible then
10414                            TreeView.Refresh;
10415            finally
10416                    List.Free;
10417            end;
10418  end;  end;
10419    
10420  initialization  initialization

Legend:
Removed from v.1.340  
changed lines
  Added in v.1.341

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26