enatechno

Пользователи
  • Публикации

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

  • Посещение

  • Days Won

    7

enatechno last won the day on 18 августа 2016

enatechno had the most liked content!

1 подписчик

О enatechno

  • Звание
    Продвинутый пользователь
  • День рождения

Информация

  • Пол
    Не определился

Посетители профиля

372 просмотра профиля
  1. Где создается/размещается файл базы данных? Проблема может быть в правах доступа. Попробуйте запустить свою программу на другом ПК с правами администратора.
  2. На других ПК рядом с Вашим ехе-файлом нужно положить dll-библиотеку SQLite
  3. UPD. удалил свое сообщение. Совет был не по теме вопроса
  4. В стиле listboxitemnodetail можете хранить ссылки в Detail. ListBoxItem->Detail = L"текст ссылки"; Они не будут отображаться.
  5. Повторюсь. Свободное место справа, которое Вы на рисунке отметили вопросами, в стиле listboxitemleftdetail отведено под Detail. Создайте свой стиль или попробуйте стиль без Detail: ListBoxItem->StyleLookup = L"listboxitemnodetail"; P.S. Другое дело, непонятно, почему ..leftdetail в названии стиля, если Detail отображается справа. Но это вопрос к разработчикам)
  6. Если Вы заполните Detail этого listboxitem, то увидите, почему обрезается текст: такие размеры и положение текста заданы в стиле 'listboxitemleftdetail'. Размер картинки (ширина) тоже задана стилем. Чтобы обойти эти ограничения рекомендую создать свой стиль для listboxitem
  7. Смотрите в стандартных примерах: C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Multi-Device Samples\User Interface\TabSlideTransition
  8. Попробуйте кроме Visible := True еще делать для Layout BringToFront.
  9. Для конвертации можете использовать TBitmapCodecManager. Например, так я его использую для сохранения файлов в различном формате: var aExtention, aFileName: string; aFileStream: TFileStream; aSaveParams: TBitmapCodecSaveParams; aSurf: TBitmapSurface; aBitmap: TBitmap ..... aFileStream := TFileStream.Create(aFileName, fmCreate); try aSurf := TBitmapSurface.Create(); try aSurf.Assign(aBitmap); aSaveParams.Quality := 70; TBitmapCodecManager.SaveToStream(aFileStream, aSurf, aExtention, @aSaveParams); finally FreeAndNil(aSurf); end; finally FreeAndNil(aFileStream); end; Для сохранения jpg использую aExtention='.jpg' и т.д. И почему Вы используете TJPEGImage и TgifImage? Они разве есть в FMX? TImage.Bitmap читается из файла так: var aImage: TImage; aFileName: string; ... aImage.Bitmap.LoadFromFile(aFileName);
  10. Хочу возразить. Был у меня такой случай. Проект, который успешно компилировался под android на Berlin 10.1 (без upd1) с ndk из коробки (r9c), в один "прекрасный" день при создании lib[ИмяПроекта].so выдал ошибку: lib[ИмяПроекта].so: mmap: failed to allocate ........... bytes for output file: Not enough space Так как со свободным местом было все норм, я стал гуглить подобную ошибку и узнал что она встречается в разных версиях RAD (начиная с XE7). Как решение, предлагалось обновить NDK на более позднюю. Что я и сделал, установив ndk r12b. И это решило мою проблему: с новым ndk проект был успешно откомпилирован и запущен на разных версиях android.
  11. Если хотите пропорционального изменять размеры ScaledLayout: 1). Используйте для него выравнивание по одному краю (например: Top, Left ... ); 2). При запуске программы фиксируйте TScaledLayout.OriginalWidth и TScaledLayout.OriginalHeight; 3). Т.к. в зависимости от выравнивания у Вас будет изменятся один из параметров (при выравнивании Top - Width, при Left - Height), то будьте готовы в OnResize изменять пропорционально второй параметр. Например так: aRatio := ScaledLayout1.Width / ScaledLayout1.OriginalWidth; ScaledLayout1.Height := ScaledLayout1.OriginalHeight * aRatio; tstScaledLayout.zip
  12. Родителем (Parent) является Layout. А Owner у Ваших контролов - форма. ComponentCount считается для Owner. Создавая кнопки в runtime можете задать: aButton := TButton.Create(Layout1); Layout1.Add(aButton); и тогда Layout1.ComponentCount уже не будет равно 0. Для перебора в Parent используйте ChildrenCount for i:=0 to Layout1.ChildrenCount-1 do begin if (Layout1.Children[i] is TButton) or (Layout1.Children[i] is TLabel) then if (TControl(Layout1.Children[i]).Visible) then TControl(Layout1.Children[i]).Width:=50; end;
  13. procedure TForm1.Label7Click(Sender: TObject); var Phase: TCalloutRectangle; begin Phase := crtPhase.Clone(ScrollBox1) as TCalloutRectangle; Phase.OnMouseDown := crtPhaseMouseDown; Phase.OnMouseMove := crtPhaseMouseMove; Phase.Parent := ScrollBox1; Phase.Position.X := crtPhase.Position.X + 10; Phase.Position.Y := crtPhase.Position.Y + 10; Phase.Visible := true; end; Замените у себя эту процедуру и удалите Button1 (как я и сказал выше, TButton не является TShape - поэтому и ошибка).