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

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

Аватара для R.i.m.s.k.y.

Ветеран


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

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


MarkusEVO, значит венда х64
я ж выше написал что для вин-х64 надо ставить и х32 компоненты тоже
я поставил просто проверку на вин64, вот и все,
лейблы не скрываются, а не_создаются, это две разные разницы

если хочешь сделать неправильно
Код: Выделить весь код
if (not IsWin64) then begin

  SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
  BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));

  SystimeBitx32Label := TLabel.Create(WizardForm);
  with SystimeBitx32Label do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
    OnClick:= @SystimeBitx32LabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:SystimeBitx32}');
    Parent := WizardForm;
  end;
end; //if (not IsWin64)

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!

Это сообщение посчитали полезным следующие участники:

Отправлено: 09:30, 25-11-2011 | #249