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