brunnengi

Да, так и есть. Это моя первая практика. В принципе FMX и так позволял делать то что мне нужно не создавая компонентов, а просто накидывая элементы друг в друга, как я это сделал на принтскрине. Но просто захотелось поднять свой уровень и все таки освоить технологию создания компонентов. Постараюсь заполнить свои пробелы. И спасибо что уделили мне время. Вы очень помогли.

А есть ли возможность рисовать в run-time? Какой нибудь быстрый метод? Допустим когда значение sType поменяется, и картинка в Image перерисовывалась сама. Ниже ПринтСкрин из самой программы. Вот если sType = 'sun' то картинка должна быть как на первом item'е а если sType = 'water' то как на втором. Что бы это можно было в run-time менять. Я могу цвет каждого пикселя получить. Как потом их картинке присвоить в Image? И такая идея вообще имеет смысл? Или это я уже бредом занимаюсь?

Здравствуйте. Решил не спамить в одну ветку, хоть и смежные, но все же разные вопросы. В своей компоненте хочу использовать Image. И что бы картинка у image менялась в зависимости от значения переменной. Вроде такого (vcl): if sType = 'sun' then image1.Picture.LoadFromFile('../sun.png'); if sType = 'moon' then image1.Picture.LoadFromFile('../moon.png'); Т.е. я так раньше делал. А как это сделать в своем компоненте, на FMX? Подскажите пожалуйста.

Переделал. Вроде работает. Спасибо большое за помощь и за разъяснение! Не скажу что я понял все на 100%, но на 80-87% усвоил. Большее понимание придет наверное с практикой/опытом.))) Еще раз спасибо!

Ярослав здравствуйте. Я только начал осваивать создание своих компонентов. До этого не заморачивался и делал нужные элементы интерфейса в run-time прям во врем программы. Но в этот раз решил сделать "по-христиански" и создать как компонент. Я вроде делал. И в какой то момент времени все заработало. Потом я добавил в published свойство для указания цвета для Rectangle. Сделал build, install. Компонет проверил и вроде заработало. Потом начал добавлять еще один rectangle и с тех пор все вот так вот, не пашет и все. Это я просто делюсь с вами своими эмоциями.)) Мне надо что бы событие было в Run-Time. На форме FireMonkey мне посоветовали добавить FRectangle.Stored := False; Я если так сделать, то работает. Но я не до конца понимаю что это за "уловка" такая. Что несет с собой Stored?

Здравствуйте. Пытаюсь создать свой компонент. Оригинал того что хочу сделать громоздкий, поэтому упростил до минимума (ибо даже минимум не работает). За базу нового компонента взял TLayout. В него добавил Rectangle. Хотел что бы при клике по Rectangle выходило сообщение через ShowMessage; Но реакции нету. Вот код: unit PayCardItemVer1Unit; interface uses System.SysUtils, System.Classes, FMX.Types, FMX.Controls, FMX.Layouts, FMX.Objects, System.UITypes, FMX.Graphics, FMX.Dialogs; type TPayCardItemVer1 = class(TLayout) private FRectangle1 : TRectangle; procedure rcClick(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TPayCardItemVer1]); end; { TPayCardItemVer1 } constructor TPayCardItemVer1.Create(AOwner: TComponent); begin inherited; FRectangle1 := TRectangle.Create(self); FRectangle1.Fill.Kind := TBrushKind.bkSolid; FRectangle1.Fill.Color := $FFFF78C9; FRectangle1.Align := TAlignLayout.alContents; FRectangle1.Parent := self; FRectangle1.HitTest := true; FRectangle1.OnClick := rcClick; end; destructor TPayCardItemVer1.Destroy; begin inherited; end; procedure TPayCardItemVer1.rcClick(Sender: TObject); begin ShowMessage('rc Click OK!'); end; end. Подскажите пожалуйста, что я не так делаю.