alert30,
EvilAlex,
код:
читать дальше »
Код:

[Setup]
AppName=777
AppVerName=777
DefaultDirname=C:\Program Files (x86)\Source Engine 15\common\half-life 2\platform
Compression=none
[Files]
Source: C:\Program Files (x86)\Source Engine 15\common\half-life 2\hl2\maps\*; DestDir: {app}; BeforeInstall: BetterInfo();
[code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif
const
MAX_PATH = 260;
PATH_LEN = 69;
var
hInfoPath, hInfoFile: HWND;
function SetWindowText(hWnd: HWND; lpString: String): BOOL; external 'SetWindowText{#A}@user32.dll stdcall';
function PathCompactPathEx(pszOut: String; pszSrc: String; cchMax: UINT; dwFlags: DWORD): BOOL; external 'PathCompactPathEx{#A}@shlwapi.dll stdcall';
function CompactPath(const sInput: String; const iNewLen: Integer): String;
begin
SetLength(Result, MAX_PATH);
if not PathCompactPathEx(Result, sInput, iNewLen, 0) then Result := sInput;
end;
procedure BetterInfo();
var
CurrentFile: String;
begin
CurrentFile := ExpandConstant(CurrentFilename);
SetWindowText(hInfoPath, 'Директория:' + #32 + CompactPath(RemoveBackslash(ExtractFilePath(CurrentFile)), PATH_LEN));
SetWindowText(hInfoFile, StringOfChar(#32, 12) + 'Файл:' + #32 + ExtractFileName(CurrentFile));
end;
procedure InitializeWizard();
begin
with WizardForm do
begin
with TNewStaticText.Create(WizardForm) do
begin
Parent := FilenameLabel.Parent;
SetBounds(FilenameLabel.Left, ScaleY(0), ProgressGauge.Width, ScaleY(16));
hInfoPath := Handle;
AutoSize := False;
end;
with TNewStaticText.Create(WizardForm) do
begin
Parent := FilenameLabel.Parent;
SetBounds(FilenameLabel.Left, ScaleY(20), ProgressGauge.Width, ScaleY(16));
hInfoFile := Handle;
AutoSize := False;
end;
FilenameLabel.Hide;
StatusLabel.Hide;
end;
end;
==================================================================================================== ===========
Nightwishh,
Цитата Nightwishh:
можно ли изменить цвет стандартных чекбоксов в ComponentsList-е и TasksList-е через скин »
|
нет, это неисправленный косяк скинирования!
Геморно но можно создать скроллбокс и массив радиобаттонов и чекбоксов и всё это добавлять на него, через самописную функцию, если так нужен именно чеклистбокс. Короче кастомный чеклистбокс