Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Comments. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e1d5f80a242473f4ff3c9108c8caa5fa |
| User & Date: | tinus 2016-01-11 16:48:12.605 |
Context
|
2016-11-30
| ||
| 21:01 | Updated help link to online help. Leaf check-in: adee355c70 user: tinus tags: trunk | |
|
2016-02-14
| ||
| 14:11 | New branch to completely rewrite the wizard, this time modularizing VCS Clients properly from the start, and also supporting threading. check-in: 7183f7960c user: tinus tags: feature/rewrite-multi-async | |
|
2016-01-11
| ||
| 16:48 | Comments. check-in: e1d5f80a24 user: tinus tags: trunk | |
|
2015-12-08
| ||
| 08:00 | Updated todo. check-in: a39f256989 user: tinus tags: trunk | |
Changes
Changes to src/VCSInfoMenuWzrd.pas.
| ︙ | ︙ | |||
442 443 444 445 446 447 448 449 450 |
ExePath: string;
PFileName: PChar;
IconHandle: HICON;
Icon: TIcon;
FileInfo: TSHFileInfo;
ShouldDestroy: Boolean;
begin
IconHandle := 0;
ShouldDestroy := False;
| > > | | 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 |
ExePath: string;
PFileName: PChar;
IconHandle: HICON;
Icon: TIcon;
FileInfo: TSHFileInfo;
ShouldDestroy: Boolean;
begin
// Icon handles returned by ExtractIcon must be destroyed manually; those returned by LoadIcon
// or SHGetFileInfo will be destroyed automatically.
IconHandle := 0;
ShouldDestroy := False;
ExePath := StringOfChar(#0, MAX_PATH);
SetLength(ExePath, SearchPath(nil, PChar(ExeName), nil, Length(ExePath), PChar(ExePath), PFileName));
if ExePath <> '' then begin
IconHandle := ExtractIcon(HInstance, PChar(ExePath), 0);
if IconHandle <> 0 then begin
ShouldDestroy := True;
end else begin
FileInfo := Default(TSHFileInfo);
|
| ︙ | ︙ |