[Nordek]

Сейчас заметил редактор скинов добавили VclStyleDesigner и просмотрщик VclStyleTest

[audiofeel]

Ничего не тупит, »

кнопка =выход не робит

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

[Ivan_009]

Nordek, Интересно почему вверху крестик неактивен на инсталле не заметил случаем...
Установку отменить можно лишь кнопкой отмены...

[Stealthmax]

Где скины можно качнуть не подскажешь... »

А ты скачал установщик со страницы проекта? Мой пост читал? Внимательно?
Установи программу или распакуй её программой UniversalExtraxtor и там увидишь папку Styles, в ней все скины доступные + сам редактор скинов + демо для просмотра скинов.

Интересно почему вверху крестик неактивен на инсталле не заметил случаем... »

Закрывай, пробуй

Код:

//****************************** Закрытие без подтверждений *******************//
#define A = (Defined UNICODE) ? "W" : "A"
const
  SC_CLOSE = 61536;
var
  OldProc: Longint;

function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProc{#A}@user32.dll stdcall delayload';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall delayload';
// вызов процедуры закрытия
procedure ExitProcess(exitCode:integer); external 'ExitProcess@kernel32.dll stdcall';

function FProc(h: hwnd; Msg, wParam, lParam: Longint): Longint;
begin
  if (Msg = $0112) then
  begin
    if (wParam = SC_CLOSE) then
    begin {действие при нажатии крестика}
    // параметр процедуры закрытия процесса
    ExitProcess(0);
    // также можно добавить сообщение при нажатии
      //MsgBox('вы нажали крестик', mbInformation, MB_OK);
      wParam := 0;
    end;
  end;
  Result := CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
  OldProc := SetWindowLong(WizardForm.Handle, -4, CallbackAddr('FProc'));
end;
procedure DeinitializeSetup();
begin
  SetWindowLong(WizardForm.Handle, -4, OldProc);
end;

[Ivan_009]

Stealthmax, А как,чтобы подверждение было чет не допер...

[Nordek]

Где скины »

Небольшая коллекция лежит в "C:\Program Files\The Road To Delphi\VCL Styles Inno\Styles"

Как всегда, что-то не так. В VclStyleTest при попытке перейти к Data Controls - выдаёт сообщение "Error loading MIDAS.DLL".
Прикрепляю.
Бибилиотеку MIDAS.DLL положить рядом с VclStyleTest (C:\Program Files\The Road To Delphi\VCL Styles Inno);
Или установка:

Код:

COPY midas.dll "%Windir%\System32" /Y
regsvr32 /S "%Windir%\system32\midas.dll"

удаление:

Код:

regsvr32 /U /S "%Windir%\system32\midas.dll"
DEL "%Windir%\system32\midas.dll" /S /Q

не заметил случаем... »

Сейчас да, заметил.
Использую в инсталляторах:

Код:

[Code]
procedure InitializeWizard();
begin
  WizardForm.BorderIcons := [];
end;

[audiofeel]

версия = 1.2.1.2 "крестик" работает

[Stealthmax]

А как,чтобы подверждение было чет не допер. »

Код:

function FProc(h: hwnd; Msg, wParam, lParam: Longint): Longint;
begin
  if (Msg = $0112) then
  begin
    if (wParam = SC_CLOSE) then
    begin {действие при нажатии крестика}
    // параметр процедуры закрытия процесса
    if MsgBox('Прекратить установку и закрыть?', mbConfirmation, MB_YESNO) = idYes then  // подтверждение закрытия
    ExitProcess(0);
    // также можно добавить сообщение при нажатии
      //MsgBox('вы нажали крестик', mbInformation, MB_OK);
      wParam := 0;
    end;
  end;
  Result := CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

[Farser21]

Если требуется выводить в отдельное окно с использованием Memo, то там чуток побольше будет. »

Нужно именно в отдельное окно. Чтобы только в этом окне появлялся текст. Не могли бы вы скинуть образец? Заранее спасибо.

[Stealthmax]

Как всегда, что-то не так. В VclStyleTest при попытке перейти к Data Controls - выдаёт сообщение "Error loading MIDAS.DLL". »

Я кинул библиотеку и ноу проблем-с