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.12 by yoffy, Wed Aug 13 19:35:01 2003 UTC revision 1.13 by yoffy, Wed Aug 13 19:53:02 2003 UTC
# Line 446  type Line 446  type
446      SelectItemToolButton: TToolButton;      SelectItemToolButton: TToolButton;
447      SelectResToolButton: TToolButton;      SelectResToolButton: TToolButton;
448      SelectResAction: TAction;      SelectResAction: TAction;
449        ToolButton16: TToolButton;
450                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
451                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
452                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 6631  begin Line 6632  begin
6632                                  GikoSys.FSelectResFilter.Reverse := False                                  GikoSys.FSelectResFilter.Reverse := False
6633                          else                          else
6634                                  GikoSys.FSelectResFilter.Reverse := True;                                  GikoSys.FSelectResFilter.Reverse := True;
6635                          FilterList := TStringList.Create;  
6636                          FilterList.Add( Dlg.SelectComboBox.Text );                          try
6637                          GikoSys.FSelectResFilter.LoadFromStringList( FilterList );                                  FilterList := TStringList.Create;
6638                                    FilterList.Add( Dlg.SelectComboBox.Text );
6639                                    GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
6640                            finally
6641                                    FilterList.Destroy;
6642                            end;
6643    
6644                          ThreadItem := GetActiveContent;                          ThreadItem := GetActiveContent;
6645                          if ThreadItem <> nil then                          if ThreadItem <> nil then
6646                                  SetContent( ThreadItem );                                  SetContent( ThreadItem );
6647                 end;                 end;
6648          finally          finally
6649                 Dlg.Release;                 Dlg.Release;
                FilterList.Destroy;  
6650          end;          end;
6651    
6652  end;  end;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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