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

97mik

Пользователи
 Профиль  Обзор контента

  • Постов

    98

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

  • Посещение

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

    3

 Тип контента 

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

    Ошибка при деплое: Не возможно запустить процесс приложения

    в Развертывание приложений

    Опубликовано · Изменено пользователем admin

    При развертывании приложения PAServer выдаёт ошибку:

     

    Unable to Launch process on '192.168.91.128' using the parameters from the 'h' profile.

     

    The following error was returned: 'Can't get full path to application bundle: No such file or directory'

     

    post-1-0-55917600-1391598647.jpg

    • Имя пользователя Windows сначала было русское, а потом переименовал на англ.
    • Имя подключения английское.
    • Имя проекта английское.

    Автоматический переход на вторую строку TLabel

    в TLabel

    Опубликовано · Изменено пользователем admin
    Отформатирован код, согласно принятым стандартам стилистического оформления кода в Delphi

    Нашёл:

    function TForm1.CalculateTextHeight(ACanvas: TCanvas; const AText: string; const AWidth: Single; 
  const AFontSize: Single): Single;
var
  R: TRectF;
begin
  R := RectF(0, 0, width, 10000);
  ACanvas.Font.Size := AFontSize;
  ACanvas.MeasureText(R, AText, True, [], TTextAlign.taLeading, TTextAlign.taLeading);
  Result := R.Bottom;
end;
...
Label1.Width := 100;
Label1.Text := 'text';
Label1.Height := CalculateTextHeight(Label1.Canvas, Label1.Text, Label1.Width, Label1.Font.Size);

    Как ускорить добавление итемов в TListBox?

    в Скорость

    Опубликовано

    У меня на форме есть ListBox (листбокс), в который я добавляю по 10 итемов.

     

    Но когда идёт процесс добавления  большого числа TListBoxItem, я вижу как итемы добавляются, это немного не красиво.

     

    Можно ли как-нибудь выключить прорисовку, но чтобы AniIndicator работал, а после того как все Items добавятся включить?

    Фоновое выполнение операции без "замораживания" отрисовки

    в Графика

    Опубликовано · Изменено пользователем Brovin Yaroslav
    Изменена формулировка вопроса для лучшего понимания.

    Как сделать так, чтобы во время выполнения долговременных операций у меня не "замораживался" интерфейс приложения? 
     
    Например, я выполняю по сети скачивания большого файла и на время скачивания отображаю индикатор загрузки. Но пока файл полностью не загрузиться индикатор не работает.

    Почему не изменяется Font.Style и Font.Size?

    в Стили

    Опубликовано

    Пробую задать размер шрифта (TLabel.Font.Size) для TLabel. Но стиль и размер у метки остаются стандартными.
     
    Создаю объект так:
    MyLabel := TLabel.Create(Self);
MyLabel.Position.X := 66;
MyLabel.Position.Y := 8;
MyLabel.Width := 231;
MyLabel.Height := 18;
MyLabel.Parent := ListBox1.ListItems[ListBox1.Count-1];
MyLabel.HitTest := False;
MyLabel.Font.Size := 8;
MyLabel.Font.Style := [TFontStyle.fsBold];
MyLabel.Trimming := TTextTrimming.ttCharacter;
MyLabel.VertTextAlign := TtextAlign.taLeading;
MyLabel.Text := 'Text';

     

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