Перейти к содержанию
Fire Monkey от А до Я

enatechno

Пользователи
  • Постов

    181
  • Зарегистрирован

  • Посещение

  • Победитель дней

    26

Сообщения, опубликованные enatechno

  1. procedure TForm1.FormCreate(Sender: TObject);
    var
      i: integer;
      aRectangle: TRectangle;
      aLabel: TLabel;
      aButton: TButton;
    begin
      VertScrollBox1.BeginUpdate;
      try
        for i := 1 to 30 do
        begin
          aRectangle := TRectangle.Create(VertScrollBox1);
          aRectangle.Parent := VertScrollBox1;
          aRectangle.Align := TAlignLayout.Top;
          aRectangle.Height := 60;
          aRectangle.Margins.Left := 10;
          aRectangle.Margins.Top := 15;
          aRectangle.Margins.Right := 15;
          aRectangle.TagString := 'Rectangle' + i.ToString;
    
          aLabel := TLabel.Create(VertScrollBox1);
          aLabel.Parent := aRectangle;
          aLabel.Align := TAlignLayout.Client;
          aLabel.Text := 'Label' + i.ToString;
          aLabel.Margins.Left := 10;
          aLabel.TagString := 'Label' + i.ToString;
    
          aButton := TButton.Create(VertScrollBox1);
          aButton.Parent := aRectangle;
          aButton.Align := TAlignLayout.Right;
          aButton.Text := 'Button' + i.ToString;
          aButton.TagString := 'Button' + i.ToString;
          aButton.Margins.Top := 5;
          aButton.Margins.Bottom := 5;
          aButton.Margins.Right := 10;
        end;
      finally
        VertScrollBox1.EndUpdate;
      end;
    end;

     

  2. В 08.07.2017 в 19:32, x11 сказал:

    Я пока не понял, в чем кардинальные различия между ImageViewer и ImageControl.

    Основные отличия:

    TImageControl - при клике на нем во время выполнения десктоп-приложения открывается диалоговое окно открытия файла, где можно выбрать картинку для отображения в ImageControlОтображаемая картинка автоматически масштабируется под размеры контрола.

    TImageViewer  - наследник от TCustomScrollBox и имеет встроенные скроллбары. На десктопах изображение может смещаться с помощью мыши и масштабироваться  (колесиком мыши). Также в демках, идущих с RAD, есть пример как масштабировать изображение с помощью жестов на устройствах с тачскрином.  

  3. 50 минут назад, x11 сказал:

    Мне десяток фото на форме показывать.

    Вы уверены, что лучше ListView?

    Да. Если не хотите менять стандартные стили, то лучше использовать ListView c плиточным отображением, о котором писал Равиль в первом посте. Тем более, что в Ваших объявлениях (айтемах) должно отображаться много других полей.
    Возможно, Вы сами сможете сделать такой вывод, ознакомившись с ранее обсуждавшимися темами:
     

     

     

  4. 5 часов назад, x11 сказал:

    Дело в том ,что нужна не иконка, а полноценное отображение разного типа картинок, т.е. фотографий.

    Тогда стандартные стили Вам не подойдут. Создавайте свой стиль для ListBoxItem на базе стандартного или "с нуля". Тут описано как это можно сделать.

    Вот подправил пример. Создал mylistboxitemstyle в котором только 2 элемента - text и image. Этот стиль загружен в StyleBook1 и указан в Listbox1.DefaultItemStyles.ItemStyle. Можете редактировать этот стиль прямо в StyleBook, добавляя новые элементы и располагая их как Вам нужно.

     

    tstListbox1.rar

  5. 7 часов назад, Rionn сказал:

    Я это понимаю, но я уже ни один раз делал все как на сайте, и на различных устройствах, и всегда получал один и тот же результат. Тоесть либо работу только по wifi либо ошибку, если использовать мобильные данные.

    Если "используете мобильные данные", то подключаетесь к интернету минуя локальную сеть. В этом случае, РС, к которому хотите подключиться, должен иметь "белый" IP адрес и его надо указывать в настройках подключения мобильного приложения.

  6. 13 часа назад, electronic M сказал:

    Можно ли как то автоматически определять разрешения экрана и подгонять форму с компонентами под неё? 
    приложение под андроид

    Можно (и нужно, если приложение будет работать и на планшетах и на телефонах). Как это делается смотрите тут:
     

     

  7. Если не находит возле себя, ищет в тех местах, которые прописаны в системной переменной PATH. Либо добавляйте свой Temp туда, либо используйте те папки, которые в PATH уже прописаны, Обычно dll кидают в %SYSTEMROOT%\System32 (c:\windows\system32).

  8. 17 минут назад, Sashar333 сказал:

    Но если "...а при удалении родительского все дочерние удаляются вместе с ним. Можете убедиться в этом проверив утечку памяти" почему тогда ругается на дублирование имени...

    Потому что у t3 и t4 Owner - это form1:
     

     t3:=ttext.Create(form1);t3.Text:=floattostr(zap.razmer.kol);
     t4:=ttext.Create(form1);t4.Text:='X';

    а значит они не удаляются при удалении item. По логике должны быть r3 и r4 соответственно.
     

     t3:=ttext.Create(r3);
     t4:=ttext.Create(r4);

     

  9. Ваша ошибка, что вы пытаетесь перевести текущий текст, который отображается. Нужно переводить английский (английские слова как бы являются индексом для перевода). В этом случае TransManually не нужен. Например вместо MenuItemFile.Text := TransManually(MenuItemFile.Text); нужно писать:

    MenuItemFile.Text := Translate('File');

    Или более простой способ, задать один раз (например в Create):
     

    MenuItemFile.AutoTranslate := true;

     

×
×
  • Создать...