VCL Styles for Inno Setup

DLL VCL Styles for Inno Setup 1.5.4.1

Нет прав для скачивания
Сделал небольшой мод, отличается от оригинальной библиотеки наличием функции: LoadFromStreamVCLStyle - загружает тему из буфера в поток, пример использования смотрите здесь Samples\VCLStylesDemoStream.iss
LoadFromStreamVCLStyle - function loads skin from buffer to the stream, you can see example here Samples\VCLStylesDemoStream.iss
 

Вложения

Странно, у меня все примеры скриптов в скачанных
VCL Styles for Inno Setup 1.4.1.0 [18.01.2015] и VCL Styles for Inno Setup 1.3.5.0 [21.12.2014]
почему то работают без стилей. Ошибок при компиляции не было, да я и ничего не менял, просто компилировал пример что бы посмотреть.
Что я вообще делал не так? Использую innosetup 5.5.1 ansi (от restools)
 
Sedjy, там для Unicode в примерах. (LoadVCLStyleW)
Код:
    #define AW = (Defined UNICODE) ? "W" : "A"

    [Setup]
    AppName=VCL Styles
    AppVersion=1.5
    DefaultDirName={pf}\VCL Styles
    Compression=none
    OutputDir=.

    [Languages]
    Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

    [Files]
    Source: "VclStylesinno.dll"; Flags: dontcopy
    Source: "Amakrits.vsf"; Flags: dontcopy

    [Code]
    procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyle{#AW}@files:VclStylesinno.dll stdcall';
    procedure UnLoadVCLStyles; external 'UnLoadVCLStyles@files:VclStylesinno.dll stdcall';

    function InitializeSetup(): Boolean;
    begin
      ExtractTemporaryFile('Amakrits.vsf');
      LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));
      Result := True;
    end;

    procedure DeinitializeSetup();
    begin
      UnLoadVCLStyles;
    end;
 
Появляются если навести курсор между чекбоксом и надписью, когда убираешь пропадают, ждешь около 5 секунд и снова наводишь. появляются...
По умолчанию вроде нету, пока не наведешь.

Толи какаой-то символ идет рядом с картинкой, то ли на чекбоксе еще что-то есть...

ScreenShot_20150911110144.png
 
Ну у меня получается как, когда наводишь появляется сплющенная галочка, а когда выбираешь чекбокс. то там кружок и тоже приплюснутый по краям...
 
Ну у меня получается как, когда наводишь появляется сплющенная галочка, а когда выбираешь чекбокс. то там кружок и тоже приплюснутый по краям...
Скорей всего, где-то сдвик по осям идет или наложение изображения
 
Замечательно, что вышла.
из изменений:
fix: Inno Setup's scroolbar in 'browse for folder' dialog does not work when vclstyles enabled #24

Кто знает в чем проблема? с ранней версией библы также, только на этом скине (не все просматривал) такой баг.
есть идеи?
 
Последнее редактирование:
SBalykov, эмм..зачем?
Код:
procedure TSysDialogStyleHook.Minimize;
begin
  if Handle <> 0 then
  begin
    FPressedButton := 0;
    FHotButton := 0;
    if IsIconic(Handle) then
      SendMessage(Handle, WM_SYSCOMMAND, SC_RESTORE, 0)
    else
      SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  end;
end;
получается в скине проблема? я что-то даже не знаю.
з.ы. отписал разрабу. прям интересно.
 
Последнее редактирование модератором:
VCL кожи стиль случай, чтобы установить / удалить, но не может? Так, пожалуйста, предоставьте сайт, или вы можете скачать полный сценарий?:devil:
 
нужна помощь, случайно батником удалил все programfiles подчистую и теперь даже демо версии ставятся голые а именно вот так

5md70pzFvYK4Qr.jpg


даже не знаю с какой стороны подойти чтоб исправить, сам инсталлятор VLC работает норм - я вижу его скин. Все что я компилю у себя даже демки, не пашет. где косяк? явно не в коде .
 
cspp,
Код:
procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyleA@files:VclStylesInno.dll stdcall';
Ansi ж.
 
да, не заметил - раньше стояла версия unicodе, придется перекачать или букву на A исправить.
 
Назад
Сверху