| 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); |
| 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; |