Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


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-е через скин »
нет, это неисправленный косяк скинирования!
Геморно но можно создать скроллбокс и массив радиобаттонов и чекбоксов и всё это добавлять на него, через самописную функцию, если так нужен именно чеклистбокс. Короче кастомный чеклистбокс
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:37, 16-02-2013 | #1651