Alzon

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

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

  • Посещение

Информация о Alzon

  • Звание
    Пользователь
  • День рождения 21 декабря

Информация

  • Пол
    Мужчина

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

422 просмотра профиля
  1. Alzon

    TCheckColumn

    Как программно выставить "галочки" в столбце TCheckColumn в FMX?
  2. Как в FMX.ImageList динамически добавить битмапы?
  3. Alzon

    Выбор редакции Delphi

    В описании редакции Delphi Pro есть пункт "Создание приложений для баз данных с локальным и встроенным подключением", возможно ли там реализовать приложение с подключением к MSSQL Server? http://www.embarcadero.com/ru/products/delphi/product-editions#nofollow/1/
  4. Раньше для хранения контента контрола (в контент входят привязки, события, файлы всякие) делал общий базовый класс с паблишед свойствами(для сериализации) и от него пораждал все свои графические контролы. Теперь в XE7 думал завязать контент на TagObject и в хелпере для TControl в паблишед прописать хранимый контент - не тут то было. Паблишед свойства хелпера оказывается не сериализуются, а TagObject бывает занят на некоторых сторонних контролах похоже, что прийдется опять создавать сотню оберток на все графические контролы? Может есть какой новомодный способ хранить что-то на любых контролах?
  5. Alzon

    Сортировка в FMX.TreeView

    Как отсортировать динамически добавленные ветки в алфавитном порядке в FMX.TreeView? Перед добавлением делаю: TreeView1.sorted := true; но ветки не сортируются.
  6. Alzon

    Долгое заполенение TreeView

    Приложение под винду. VirtualTreeView только под VCL, а мне нужно под FMX. Дерево будет многоуровневым (listView не подходит) и с иконками.
  7. Alzon

    Долгое заполенение TreeView

    Добавляю в цикле 10000 итемов в TreeView (FMX). Очень долго заполняется. Есть ли какой-нибудь способ для ускорения или другой компонент для отображения дерева? procedure TForm1.Button1Click(Sender: TObject); var I : Integer; Item : TTreeViewItem; begin TreeView1.BeginUpdate; for i := 0 to 99999 do begin item:= TTreeViewItem.Create(nil); with item do begin Parent := TreeView1; Text := 'Item_' + IntToStr(i); end; end; TreeView1.EndUpdate; end;
  8. Функция сериализации: function ComponentToString(Component: TComponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; begin if Component=nil then Exit; BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create; try NativeWriteComponent(BinStream, Component); BinStream.Seek(0, soFromBeginning); ObjectBinaryToText(BinStream, StrStream); StrStream.Seek(0, soFromBeginning); Result:= StrStream.DataString; finally StrStream.Free; end; finally BinStream.Free end; end; падает с ошибкой "Stream read error" в ObjectBinaryToText(BinStream, StrStream), если в DefineProperties добавляю строку Filer.DefineProperty('DocX',ReadThing, WriteThing, true); procedure TSVGControl.DefineProperties(Filer: TFiler); begin inherited DefineProperties(Filer); Filer.DefineProperty('DocX',ReadThing, WriteThing, true); end; может кто-нибудь подсказать что я делаю не так? (проект на FMX) test_Serialization.zip
  9. не могу импортировать класс из bpl в Delphi XE7 при "Link with runtime pakages" - false; procedure TForm1.Button1Click(Sender: TObject); begin LoadPackage('Package2.bpl'); if GetClass('TMyClass')<> nil then showmessage('найден TMyClass'); end; Может кто уже сталкивался ...? Проект на FMX