Скрипты Inno Setup. Помощь и советы [часть 6]

Nordek · Конфигурация компьютера

Цитата TAY50N:

все описания будут отображаться в строго определенной области. »

В ShowPicHint
Замени

Код:

SetBounds(ScaleX(pt.x + 16), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);

на

Код:

SetBounds(ScaleX(700), ScaleY(410), InfoPic.Width, InfoPic.Height);

Farser21 · Отправлено: **20:52, 25-01-2014** | #**1942**

Ivan_009, http://rghost.ru/51921076

Dinvin4ester · Отправлено: **20:59, 25-01-2014** | #**1943**

Ivan_009,
http://www.fayloobmennik.net/3519701

Ivan_009 · Конфигурация компьютера

Farser21, Не знаю что у тебя но у меня все тип топ. Навсякий случай скачай и замени модуль BASS...

Dinvin4ester,Скачай тоже примеры использования внутри.

Ссылка: http://rghost.ru/51921479

vint56 · Отправлено: **21:23, 25-01-2014** | #**1945**

Dinvin4ester
http://rghost.ru/51921808

Dinvin4ester · Отправлено: **21:37, 25-01-2014** | #**1946**

vint56, Ivan_009,
Спс.

Farser21 · Отправлено: **22:26, 25-01-2014** | #**1947**

Ivan_009, спасибо помогло!

Возникли еще вопросы, надеюсь поможете.
1)Как сделать так, чтобы когда устанавливаешь компоненты, можно было поставить флажок на удаление старых компонентов в определенной папке.
2)Как сделать авто определение установки, т.е. установщик сам выбирает нужную папку куда устанавливать.
Заранее спасибо за ответы!

TAY50N · Отправлено: **00:15, 26-01-2014** | #**1948**

Цитата Nordek:

Код:
SetBounds(ScaleX(700), ScaleY(410), InfoPic.Width, InfoPic.Height); »

я имел ввиду в строго определенной области установщика, а не экрана - сорри
т.е. когда наводится указатель на какой либо мод - картинка мода, отображается вместо WizardImageFile
Как это осуществить? Заранее Спасибо!

saurn · Конфигурация компьютера

Цитата Farser21:

1)Как сделать так, чтобы когда устанавливаешь компоненты, можно было поставить флажок на удаление старых компонентов в определенной папке. »

Пост #271

Цитата Farser21:

2)Как сделать авто определение установки, т.е. установщик сам выбирает нужную папку куда устанавливать. »

Уточните по какому критерию должен выполнятся выбор: на основе записи в реестре или непосредственный поиск папки по указанному имени.
------------------------------------------------------------------
Читайте форум. Эти вопросы давно уже заезжены-переезжены.
------------------------------------------------------------------

Цитата TAY50N:

я имел ввиду в строго определенной области установщика, а не экрана - сорри »

Код:

[code]
const
    UNDEF_INDEX = -777;
    
    
function GetCursorPos(var lpPoint: TPoint): BOOL; external 'GetCursorPos@user32.dll stdcall';


var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;
    
    
procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    InfoPic.SetBounds(ScaleX(245), ScaleY(42), ScaleX(166), ScaleY(165));
    InfoPic.Show;
end;


procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
    UndefPic: String;
begin
    if Index = -1 then Exit;
    if Index = LastIndex then Exit;
    try
        case TNewCheckListBox(Sender).ItemCaption[Index] of
            'Half-Life 2': UndefPic := 'Wasteland_Scanner_con.bmp';
            'Half-Life 2 Episode One': UndefPic := 'Strider_early2.bmp';
            'Half-Life 2 Episode Two': UndefPic := 'Cremator_poster.bmp';
            'Portal': UndefPic := 'Portal.bmp';
        else
            begin
                LastIndex := UNDEF_INDEX;
                InfoPic.Hide;
                Exit;
            end;
        end;
        if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
        ShowPicHint(TempPath + UndefPic);
    finally
        LastIndex := Index;
    end;
end;


procedure CompOnMouseLeave(Sender: TObject);
begin
    InfoPic.Hide;
    LastIndex := -1;
end;


procedure InitInfo();
begin
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(37), ScaleX(225), ScaleY(176));
    WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
    WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
    TempPath := AddBackslash(ExpandConstant('{tmp}'));
    LastIndex := UNDEF_INDEX;
    
    with TBevel.Create(WizardForm) do
    begin
      Parent := WizardForm.SelectComponentsPage;
      SetBounds(ScaleX(240), ScaleY(37), ScaleX(177), ScaleY(176));
      Shape := bsFrame;
    end;
    
    InfoPic := TBitmapImage.Create(WizardForm)
    with InfoPic do
    begin
        Parent := WizardForm.SelectComponentsPage;
        AutoSize := True;
    end;
end;


procedure InitializeWizard();
begin
    InitInfo();
end;

TAY50N · Отправлено: **12:17, 26-01-2014** | #**1950**

Цитата saurn:

читать дальше » »

Спасибо, Получилось!

И еще одно - как сделать чтобы было 0,0

скрипт: