rareMax

Смотрел примеры для новой версии XE6 - и увидел что в блоке try finally для освобождения пишут DisposeOf вместо Free. Можете рассказать в каких случаях писать Free а в каких DisposeOf? Спасибо.

А если воспользоваться сразу: а потом: (Ну или наоборот)

Свойство ReadOnly ставили?

Готовых не видел. Если будешь писать сам - возможно эта статья поможет. Если нужен только для виндовс - то проблемы не составит(возможно) перенести с vcl на fmx. ------------------ Вот в этом сообщении есть ссылка на использование сторонних шрифтов для андроид. Исходник сильно не смотрел - но судя по всему можно слегка изменив код - добавить возможность стилизации шрифта. Так что остается только собрать окошко для выбора шрифта, ну и по желанию найти реализацию для iOS.

ОффТоп: Так Делфи уже не Делфи - а Object Pascal?

Добрый день! Мне необходимо расширить существующие хелперы, например добавить пару функций для String. Можно ли как-то унаследовать от существующего хелпера все методы? Или придется самому выносить нужные хелперы из SysUtils и в отдельном файле и их расширять? Спасибо.

Ну значит будем свое лепить. Спасибо.

Необходимо организовать диалог между пользователем и приложением для выбора файла на Android. TOpenDialog, как я понял, не поддерживается на данный момент в XE5. Кто-то уже сталкивался с данной проблемой? как решали? Спасибо.

Как можно узнать, вмещается ли полностью текст в TListBoxItem? На скрине выше видно, что в выделенном TListBoxItem"э текст "ушел" вверх и вниз. Как можно изменить TListBoxItem.Height, что-бы в этот TListBoxItem полностью поместился текст? Спасибо.

Лучше вам показать свой код. Но если легче станет - то вот: unit uReger; interface { //////////////////////////////////////////////////////////////////////////// } { ..............Компонент.для.регистрации.персонажей.TgReger.................. } { ...........................Версия 2.0....................................... } { ................Автор:.Сысоев.Максим........................................ } { .............................Орловка,.2.0.1.3.г............................. } { ToDo * Не получается запросить код восстановления } { //ver 2.0.2 - 16.01.2014 = Возможность рандомного выбора пола // ver 2.0.1 - 28.12.2013 = Полная(Нужно еще тестировать) работоспособность в Android // ver 2.0 - 25.12.2013 = Рефракторинг кода = Профиксил много ошибок = Наконец-то запустился регер на Anroid = Увеличил живучесть персов } { ver < 2.0 * Основа кода } uses {****************************************} idHTTP, GHash73, uMiniUtils, {****************************************} System.SysUtils, System.Classes; type TgReger = class; { ************************************************************************** } TUser = record Nick, Id, PassWord, Recover, Status: string; end; TProgressType = (ptStart, ptGetInfo, ptSendReg, ptGetKapcha, ptGetRecover); { ************************************************************************** } TOnNeedKapcha = procedure(Sender: TObject; Const Kapha: TStream) of object; TOnError = procedure(Sender: TObject; const ErrorType, Msg: string) of object; TOnGoodReg = procedure(Sender: TObject; const AUser: TUser) of object; TOnProgress = procedure(Sender: TObject; const Range: TProgressType) of object; { ************************************************************************** } gSex = (gsMan, gsGirl, gsRandom); gCharMap = (cmRU, cmEN, cmDigit, cmRuDigit, cmEnDigit); { ************************************************************************** } TRegerThread = class(TThread) private gReger: TgReger; protected procedure Execute; override; public constructor Create(AgReger: TgReger); end; { ************************************************************************** } TgReger = class(TComponent) private fOnError: TOnError; fOnKapcha: TOnNeedKapcha; fOnGoodReg: TOnGoodReg; fOnProgress: TOnProgress; { Private declarations } fHTTP: TIdHTTP;

В TListBoxItem, в свойстве ItemData.Bitmap на платформе Windows пытаюсь загрузить картинку(Пробовал и в рантайм и в дизайнере). Изменения вообще никакого. После этого попробовал создать новый проект на мобильной платформе - там картинка успешно загружается. Загрузка под винду как-то отличается от загрузки под мобильные устройства?

Всем привет. Когда добавляю в TListBox новый Item, и в дизайнере ставлю свойство WordWrap = True, то текст успешно переносится на новую строку. Но если добавлять динамически в TListBox новые Item - то текст не переносится. Добавляю так: procedure TFrame1.GenerateTestVis; var x: integer; Itm: TListBoxItem; begin ListBox1.Clear; ProgressBar1.Value := TestQA1.ItemIndex + 1; Label1.Text := TestQA1.ItemSelected.Quest; for x := 0 to TestQA1.ItemSelected.Count - 1 do begin Itm := TListBoxItem.Create(ListBox1); Itm.WordWrap := true; Itm.Text := TestQA1.ItemSelected.Answers[x].Answer; // Itm.WordWrap := true; ListBox1.AddObject(Itm); //Пользуясь случаем:Itm.Free потом ListBox сам сделает, да? end; end; Но длинный текст не переносится на новую строку, и "уходит в глубь" формы. Выделенный на скрине Итем - я добавил в дизайнере. А вот второй - с помошью вышеописанного кода. Вот собственно необходимо добавить перенос длинного текста для Итемов, которые добавляются динамически. Спасибо.

Попробуйте изменить у TImage свойство HitTest.

А пример/доку можно где то найти для fmx?

А где скачать - хотел поиграть(((

Спасибо за объяснение.

Вот типа него, только что бы еще были вложенные TRadioButton и/или TCheckBox. выглядит это так(приблизительно): Можно конечно динамически создавать, но не хотел. Судя по всему - наверное придется.

TRadioGroup, TCheckListBox(необходимы для выбора ответов на тесты)

Добрый день. Могу ли я разместить в проекте на fmx компонент из библиотеки vcl? Да, я знаю, что это "неправильно",но это очень необходимо,в связи с отсутствием альтернативы компонента для fmx на данный момент. Если можно - прошу показать пример как это сделать. Спасибо.

Добавление в листбокс ресурсоемкое дело. Попробуй закоментировать строку // ListBox1.Items.Add(Format('id: %d; name: %s', [FieldId.AsInteger, FieldName.AsString])); и проверь скорость работы

Ну если знаешь Delphi и Object C то думаю проблем не составит перенести проект. А софта для автоматизации процесса я думаю еще нет.