Jump to content
Korean Random

MEDNIKs

User
  • Posts

    133
  • Joined

  • Last visited

Posts posted by MEDNIKs

  1.  

     

    Значит, ты лейбл создаёшь перед картинкой, и она его перекрывает. А чекбокс создаёшь после картинки, из-за чего чекбокс нормально виден. Создай лейбл (по очерёдности) после того, как ты прописал картинки. Ну или просто после чекбокса.

    О заработало!Спасибо ! 

  2.  

     

    Покажи часть кода, где ты делаешь чекбокс на картинке, и код, в котором делаешь лейбл.

    вот

    { RedesignWizardFormBegin } // Íå óäàëÿòü ýòó ñòðîêó!
    // Íå èçìåíÿòü ýòó ñåêöèþ. Îíà ñîçäàíà àâòîìàòè÷åñêè.
    var
    BitmapImage1: TBitmapImage;
    BitmapImage2: TBitmapImage;
    BitmapImage3: TBitmapImage;
    BitmapImage4: TBitmapImage;
    BitmapImage5: TBitmapImage;
    BitmapImage7: TBitmapImage;
    BitmapImage8: TBitmapImage;
    BitmapImage9: TBitmapImage;
    BitmapImage10: TBitmapImage;
    BitmapImage6: TBitmapImage;
    Label1: TLabel;
    NewCheckBox1: TNewCheckBox;




    procedure RedesignWizardForm;
    begin


    with WizardForm.SelectDirPage do
    { Label2 }
    Label2 := TLabel.Create(WizardForm);
    with Label2 do
    begin
    Name := 'Label2';
    Parent := WizardForm.SelectDirPage;
    Caption := 'Óäàëèòü âñå ñòàðûå ìîäû (Ðåêîìåíäóåòñÿ!)';
    Transparent := True;
    Left := ScaleX(380);
    Top := ScaleY(220);
    Width := ScaleX(180);
    Height := ScaleY(13);
    end;

    { NewCheckBox1 }
    NewCheckBox1 := TNewCheckBox.Create(WizardForm);
    with NewCheckBox1 do
    begin
    Name := 'NewCheckBox1';
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(370);
    Top := ScaleY(220);
    Width := ScaleX(13);
    Height := ScaleY(13);
    Caption := '';
    end;

     
  3. Могу поиграться, пока есть время. Скидывай свой скрипт (можешь в ЛС, если не хочешь светить). И скажи, какие управляющие кнопки тебе нужны (просто вкл\выкл или полоса громкости, или просто, чтобы музыка была неотключабельной 

    Все исходные файлы или только скрипт?

  4.  

     

    Вот тебе пример:  Desktop.rar   

     

    спасибо тебе !Но я так и не смог понять как в таком коде растянуть изображение и как  растянуть  Notebook!Мне нужно чтоб фоном этой страницы было тоже изображение что и на первой,это  возможно?

  5.  

    MEDNIKs, держи:

    [~~~~~~~~~~Code~~~~~~~~~~]
    var
      FAQButton: TButton;
    
    procedure FAQButtonClick(Sender: TObject);
    var
      ResultCode: Integer;
    begin
      ShellExec('open', 'http://google.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
    end;
    
    procedure FAQButtonCreate();
    begin
      FAQButton:=TButton.Create(WizardForm);
      FAQButton.SetBounds(ScaleX(10), WizardForm.CancelButton.Top, WizardForm.CancelButton.Width, WizardForm.CancelButton.Height);
      FAQButton.Caption:='F.A.Q.';
      FAQButton.OnClick:=@FAQButtonClick;
      FAQButton.Parent:=WizardForm;
    end;
    
    procedure InitializeWizard();
    begin
      FAQButtonCreate();
    end;
    

    СПАСИБО!А вставлять в любом месте можно?А то чёт ругается!

  6. Кстати, в том скрипте, что ты мне скинул, теперь не работают кнопки,  которые ссылки: "форум"  и "мой сайт" я ща просто ноут разобью:)

    я вообще ничего не трогал.

    тестирую полный скрипт, если и он не пашет, боюсь мой ноут сегодня умрёт:) смертью храбрых;)

    ахааха,во жггёшь!

×
×
  • Create New...