userdetect2alarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/UserDetect2/UD2_Main.pas @ 95

  → /trunk/UserDetect2/UD2_Main.pas @ 96

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 95 → Rev 96

/trunk/UserDetect2/UD2_Main.pas
88,6 → 88,8
procedure CopyStatusCodeToClipboardClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DynamicTestButtonClick(Sender: TObject);
private
procedure ConvertFirstIconToGray;
protected
ud2: TUD2;
procedure LoadTaskList;
129,6 → 131,7
// result := ImageList.AddIcon(ico);
result := AddTransparentIconToImageList(ImageList, icon);
AddTransparentIconToImageList(ImageList, icon, true)
finally
icon.Free;
end;
186,6 → 189,7
ShortTaskName, iconString: string;
iconIndex: integer;
obj: TUD2ListViewEntry;
cmds: TUD2CommandArray;
begin
for i := 0 to TasksListView.Items.Count-1 do
begin
215,7 → 219,14
TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;
end;
end;
SetLength(cmds, 0);
cmds := ud2.GetCommandList(obj.ShortTaskName);
if Length(cmds) = 0 then
begin
TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex + 1;
end;
end;
finally
sl.Free;
end;
510,6 → 521,35
if ListView.CurSortedDesc then Compare := -Compare;
end;
procedure TUD2MainForm.ConvertFirstIconToGray;
var
buffer, mask: TBitmap;
x, y: integer;
begin
buffer := TBitmap.Create;
mask := TBitmap.Create;
try
TasksImageList.GetBitmap(0, buffer);
for x := 0 to buffer.Width - 1 do
begin
for y := 0 to buffer.Height - 1 do
begin
buffer.Canvas.Pixels[x, y] := ToGray(buffer.Canvas.Pixels[x, y]);
end;
end;
// create a mask for the icon.
mask.Assign(buffer);
mask.Canvas.Brush.Color := buffer.Canvas.Pixels[0, buffer.Height -1];
mask.Monochrome := true;
TasksImageList.Add(buffer, mask);
finally
buffer.Free;
mask.Free;
end;
end;
procedure TUD2MainForm.Button3Click(Sender: TObject);
begin
VTS_CheckUpdates('userdetect2', VersionLabel.Caption);
613,6 → 653,8
PageControl1.ActivePage := TasksTabSheet;
VersionLabel.Caption := GetFileVersion(ParamStr(0));
ConvertFirstIconToGray;
end;
procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject);