Subversion Repositories userdetect2

Rev

Rev 87 | Rev 90 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87 Rev 88
Line 182... Line 182...
182 
  i: integer;
 182 
  i: integer;
183 
  ShortTaskName, iconString: string;
 183 
  ShortTaskName, iconString: string;
184 
  iconIndex: integer;
 184 
  iconIndex: integer;
185 
  obj: TUD2ListViewEntry;
 185 
  obj: TUD2ListViewEntry;
186 
begin
 186 
begin
- 
 
 187 
  for i := 0 to TasksListView.Items.Count-1 do
- 
 
 188 
  begin
- 
 
 189 
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
- 
 
 190 
  end;
187 
  TasksListView.Clear;
 191 
  TasksListView.Clear;
- 
 
 192 
 
188 
  sl := TStringList.Create;
 193 
  sl := TStringList.Create;
189 
  try
 194 
  try
190 
    ud2.GetTaskListing(sl);
 195 
    ud2.GetTaskListing(sl);
191 
    for i := 0 to sl.Count-1 do
 196 
    for i := 0 to sl.Count-1 do
192 
    begin
 197 
    begin
Line 246... Line 251...
246 
 
 251 
 
247 
procedure TUD2MainForm.FormDestroy(Sender: TObject);
 252 
procedure TUD2MainForm.FormDestroy(Sender: TObject);
248 
var
 253 
var
249 
  i: integer;
 254 
  i: integer;
250 
begin
 255 
begin
251 
  if Assigned(ud2) then ud2.Free;
 256 
  if Assigned(ud2) then FreeAndNil(ud2);
- 
 
 257 
 
252 
  for i := 0 to TasksListView.Items.Count-1 do
 258 
  for i := 0 to TasksListView.Items.Count-1 do
253 
  begin
 259 
  begin
254 
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
 260 
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
255 
  end;
 261 
  end;
- 
 
 262 
  TasksListView.Clear;
256 
end;
 263 
end;
257 
 
 264 
 
258 
procedure TUD2MainForm.CheckForErrors;
 265 
procedure TUD2MainForm.CheckForErrors;
259 
begin
 266 
begin
260 
  ErrorsTabSheet.TabVisible := ud2.Errors.Count > 0;
 267 
  ErrorsTabSheet.TabVisible := ud2.Errors.Count > 0;
Line 620... Line 627...
620 
procedure TUD2MainForm.LoadDynamicPluginList;
 627 
procedure TUD2MainForm.LoadDynamicPluginList;
621 
var
 628 
var
622 
  i: integer;
 629 
  i: integer;
623 
  p: TUD2Plugin;
 630 
  p: TUD2Plugin;
624 
begin
 631 
begin
- 
 
 632 
  DynamicTestPluginComboBox.Clear;
625 
  for i := 0 to ud2.LoadedPlugins.Count-1 do
 633 
  for i := 0 to ud2.LoadedPlugins.Count-1 do
626 
  begin
 634 
  begin
627 
    p := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
 635 
    p := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
628 
    if p.AcceptsDynamicRequests then
 636 
    if p.AcceptsDynamicRequests then
629 
    begin
 637 
    begin