Subversion Repositories userdetect2

Rev

Rev 95 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 95 Rev 96
Line 86... Line 86...
86 
    procedure Button3Click(Sender: TObject);
 86 
    procedure Button3Click(Sender: TObject);
87 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
 87 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
88 
    procedure CopyStatusCodeToClipboardClick(Sender: TObject);
 88 
    procedure CopyStatusCodeToClipboardClick(Sender: TObject);
89 
    procedure FormCreate(Sender: TObject);
 89 
    procedure FormCreate(Sender: TObject);
90 
    procedure DynamicTestButtonClick(Sender: TObject);
 90 
    procedure DynamicTestButtonClick(Sender: TObject);
- 
 
 91 
  private
- 
 
 92 
    procedure ConvertFirstIconToGray;
91 
  protected
 93 
  protected
92 
    ud2: TUD2;
 94 
    ud2: TUD2;
93 
    procedure LoadTaskList;
 95 
    procedure LoadTaskList;
94 
    procedure LoadDetectedIDs;
 96 
    procedure LoadDetectedIDs;
95 
    procedure LoadINITemplate;
 97 
    procedure LoadINITemplate;
Line 127... Line 129...
127 
  try
 129 
  try
128 
    icon.Handle := ExtractIcon(Application.Handle, PChar(rec.FileName), rec.IconIndex);
 130 
    icon.Handle := ExtractIcon(Application.Handle, PChar(rec.FileName), rec.IconIndex);
129 
 
 131 
 
130 
    // result := ImageList.AddIcon(ico);
 132 
    // result := ImageList.AddIcon(ico);
131 
    result := AddTransparentIconToImageList(ImageList, icon);
 133 
    result := AddTransparentIconToImageList(ImageList, icon);
- 
 
 134 
    AddTransparentIconToImageList(ImageList, icon, true)
132 
  finally
 135 
  finally
133 
    icon.Free;
 136 
    icon.Free;
134 
  end;
 137 
  end;
135 
end;
 138 
end;
136 
 
 139 
 
Line 184... Line 187...
184 
  sl: TStringList;
 187 
  sl: TStringList;
185 
  i: integer;
 188 
  i: integer;
186 
  ShortTaskName, iconString: string;
 189 
  ShortTaskName, iconString: string;
187 
  iconIndex: integer;
 190 
  iconIndex: integer;
188 
  obj: TUD2ListViewEntry;
 191 
  obj: TUD2ListViewEntry;
- 
 
 192 
  cmds: TUD2CommandArray;
189 
begin
 193 
begin
190 
  for i := 0 to TasksListView.Items.Count-1 do
 194 
  for i := 0 to TasksListView.Items.Count-1 do
191 
  begin
 195 
  begin
192 
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
 196 
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
193 
  end;
 197 
  end;
Line 213... Line 217...
213 
        if iconIndex <> -1 then
 217 
        if iconIndex <> -1 then
214 
        begin
 218 
        begin
215 
          TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;
 219 
          TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;
216 
        end;
 220 
        end;
217 
      end;
 221 
      end;
- 
 
 222 
 
- 
 
 223 
      SetLength(cmds, 0);
- 
 
 224 
      cmds := ud2.GetCommandList(obj.ShortTaskName);
- 
 
 225 
      if Length(cmds) = 0 then
- 
 
 226 
      begin
- 
 
 227 
        TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex + 1;
- 
 
 228 
      end;
218 
    end;
 229 
    end;
219 
  finally
 230 
  finally
220 
    sl.Free;
 231 
    sl.Free;
221 
  end;
 232 
  end;
222 
end;
 233 
end;
Line 508... Line 519...
508 
                               Item2.SubItems[ListView.CurSortedColumn-1]);
 519 
                               Item2.SubItems[ListView.CurSortedColumn-1]);
509 
  end;
 520 
  end;
510 
  if ListView.CurSortedDesc then Compare := -Compare;
 521 
  if ListView.CurSortedDesc then Compare := -Compare;
511 
end;
 522 
end;
512 
 
 523 
 
- 
 
 524 
procedure TUD2MainForm.ConvertFirstIconToGray;
- 
 
 525 
var
- 
 
 526 
  buffer, mask: TBitmap;
- 
 
 527 
  x, y: integer;
- 
 
 528 
begin
- 
 
 529 
  buffer := TBitmap.Create;
- 
 
 530 
  mask := TBitmap.Create;
- 
 
 531 
  try
- 
 
 532 
    TasksImageList.GetBitmap(0, buffer);
- 
 
 533 
    for x := 0 to buffer.Width - 1 do
- 
 
 534 
    begin
- 
 
 535 
      for y := 0 to buffer.Height - 1 do
- 
 
 536 
      begin
- 
 
 537 
        buffer.Canvas.Pixels[x, y] := ToGray(buffer.Canvas.Pixels[x, y]);
- 
 
 538 
      end;
- 
 
 539 
    end;
- 
 
 540 
 
- 
 
 541 
    // create a mask for the icon.
- 
 
 542 
    mask.Assign(buffer);
- 
 
 543 
    mask.Canvas.Brush.Color := buffer.Canvas.Pixels[0, buffer.Height -1];
- 
 
 544 
    mask.Monochrome := true;
- 
 
 545 
 
- 
 
 546 
    TasksImageList.Add(buffer, mask);
- 
 
 547 
  finally
- 
 
 548 
    buffer.Free;
- 
 
 549 
    mask.Free;
- 
 
 550 
  end;
- 
 
 551 
end;
- 
 
 552 
 
513 
procedure TUD2MainForm.Button3Click(Sender: TObject);
 553 
procedure TUD2MainForm.Button3Click(Sender: TObject);
514 
begin
 554 
begin
515 
  VTS_CheckUpdates('userdetect2', VersionLabel.Caption);
 555 
  VTS_CheckUpdates('userdetect2', VersionLabel.Caption);
516 
end;
 556 
end;
517 
 
 557 
 
Line 611... Line 651...
611 
begin
 651 
begin
612 
  // To avoid accidental change of the default tab from the IDE VCL Designer
 652 
  // To avoid accidental change of the default tab from the IDE VCL Designer
613 
  PageControl1.ActivePage := TasksTabSheet;
 653 
  PageControl1.ActivePage := TasksTabSheet;
614 
 
 654 
 
615 
  VersionLabel.Caption := GetFileVersion(ParamStr(0));
 655 
  VersionLabel.Caption := GetFileVersion(ParamStr(0));
- 
 
 656 
 
- 
 
 657 
  ConvertFirstIconToGray;
616 
end;
 658 
end;
617 
 
 659 
 
618 
procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject);
 660 
procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject);
619 
var
 661 
var
620 
  p: TUD2Plugin;
 662 
  p: TUD2Plugin;