-
Постов
152 -
Зарегистрирован
-
Посещение
-
Победитель дней
4
Весь контент VladimirS
-
код, которым ты сохраняешь, - государственная тайна?
-
FM - это отдельный фреймворк, и на работу совместно с VCL он не заточен. Единственное что заточено - это среда. Она не разрешает в одном проекте использовать визуальные компоненты из разных наборов. Хотя некоторые умельцы смогли скрестить их.
-
Добавляй свою опцию. Потому что это как проверять - использует приложение драйвера DBExpress или ADO.
- 6 ответов
-
- Compiler Directivs
- VCL
-
(и ещё 1 )
C тегом:
-
Нельзя потому, что FMX - это Pascal, а Android Studio/Eclipse - это Java.
-
t := TImage.Create(Form1); Этого вам для начала будет достаточно?
-
http://www.fast-report.com/ru/product/fast-cube-fmx/ ?
-
ребята, вы чё, это же все есть в исходниках Embarcadero Открываете модуль с контролом, и ищите его метод "что-то-там-Paint-что-то-там"
- 13 ответов
-
- TStringGrid
- шрифт
-
(и ещё 1 )
C тегом:
-
какие-то дополнительные визарды установлены в среде, типа gexperts или CnPack?
-
Пока что склоняюсь к варианту. предложенному GunSmoker: type {$IFDEF AUTOREFCOUNT} TContainerObject = class strict private FValue: Variant; protected constructor Create(const AValue: Variant); public property Value: Variant read FValue; end; constructor TContainerObject.Create(const AValue: Variant); begin inherited Create; FValue := AValue; end; function FakeObject(const AValue: Variant): TObject; begin Result := TContainerObject.Create(AValue); end; function RealObject(const AObject: TObject): Variant; begin Result := (AObject as TContainerObject).Value; end; {$ELSE} FakeObject = TObject; RealObject = Cardinal; {$ENDIF} List.AddObject('Some value', FakeObject(ID)); ID := RealObject(List.Objects[0]);
-
Жаль, что не было добавленно готового встроенного решения. Аналог TField c AsXXX и конструкторами на каждый тип.
-
cbxLogin.Items.AddObject(Users.FieldByName('NAME').AsString, TObject(ID)); даёт AV. Как быть?
-
? https://yandex.ru/yandsearch?&text=TTransitionEffect
-
См. исходники, конкретно часть TListViewItemObjects = class(TListItemObjects) private FAppearance: TItemAppearanceObjects; function GetDetailObject: TListItemText; function GetGlyphButton: TListItemGlyphButton; function GetImageObject: TListItemImage; function GetTextButton: TListItemTextButton; function GetTextObject: TListItemText; function GetAccessoryObject: TListItemAccessory; function FindObjectT<T: TListItemObject>(const AName: string): T; public procedure Clear; override; property TextObject: TListItemText read GetTextObject; property DetailObject: TListItemText read GetDetailObject; property ImageObject: TListItemImage read GetImageObject; property TextButton: TListItemTextButton read GetTextButton; property GlyphButton: TListItemGlyphButton read GetGlyphButton; property AccessoryObject: TListItemAccessory read GetAccessoryObject; end; и думай, где и что тебе придется поменять, чтобы добавить в него еще один элемент - фон, с цветом/градиентом/картинкой/чем-нибудь-ещё
-
Посмотрел исходники. Боюсь, не рассчитано на такое TListView. тебе придется делать потомок TListView, TListViewItem и TListViewItemObject\ или переделать на TListBox.