Axbor

Если кто то обращал внимание у Формы телеграма есть ShadowEffect, и есть много еще интересных вещей? Как добиться такого эффекта? У меня получилось вот такое Я сделал так: убрал границу формы и с Rectangle создал собственную. Но такой подход очень глючный. Можно ли изменить стиль самой границы формы?

Если не ошибаюсь в Xe 10 включили такую возможность.

Спасибо большое!

Да то что нужно! Как я понимаю вы создали отдельный класс для ListItem да? Просто я с делфи не очень дружу, можете чуть чуть обяснит?

Как реализовать такой список в ListBox e? Что бы при программном добавлении списка новый элемент добавлялось точно такими элементами.

Как мне известно андроид не поддерживает подключение к MySql...

Добрый день. Хотел сделать High-Lighter в FMX но никак немогу найти аналог RichEdit. Rad Studio Seatle.

Сейчас: Unable to open file 'DATA.WIN.ADODB.OBJ' Еще вот такую ошибку выдавал: Unable to find Word2000.hpp В проекте использован компоненты для работы с word ом... компонент word2000 включен. Сам проверил...

Хотель использовать ниже форму созданное в Delphi в своем C++ проекте, но выдает ошибку. RAD Studio Seatle delete.zip

Что можно испольщоват вместо DBGrid на FMX?

А на Seatle будет эти компоненты?

Создал VCL приложение на Seatle, скомпилировал отключив в настройках проекта Link with dynamic RTL и Link with runtime packages. Но приложение не запускается в других компах в которых не установлен Seatle

Использую базу данных SQLite. Windows е работает нормально а когда компилирую на андроид выдает вот эту "Unable to find static library: libFireDACMySQLDriver.a"

пишу uses Androidapi.JNI.Media, AndroidApi.Helpers; выдает ошибку. Я ни разу не работал с андроид API помогите пожалуйста, что я делаю не так?

Я скачал много хороших шрифтов, теперь хочу что бы у пользователя был возможность выбрать любой подходящий шрифт. Как это сделать? Как программно изменит шрифт на шрифт которое добавлен в Deployment? Я посмотрел предыдущие темы, но они не помогли мне так как у меня установлен XE8 вышеуказанные способы не работали для. http://community.embarcadero.com/index.php/blogs/entry/true-type-font-iconography-for-android-and-ios-apps это тоже посмотрел, но там показан способ для design time. Пожалуйста помогите если знаете.

void __fastcall TForm3::Rectangle1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if(!isdown) return; 1) float dx = (Screen->MousePos().X - oldx); 2) float dy = (Screen->MousePos().Y - oldy); 3) if(dx > 5) 4) dx = 5; 5) if(dx < -5) 6) dx = -5; 7) if(dy > 5) 8) dy = 5; 9) if(dy < -5) 10) dy = -5; Rectangle1->Position->X = Rectangle1->Position->X + dx; Rectangle1->Position->Y = Rectangle1->Position->Y + dy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = false; } //--------------------------------------------------------------------------- Добавил отмеченные строки, прекрасно работает.

Например?! Как с помощью жестов перетаскивать элементы?

void __fastcall TForm3::Rectangle1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if(!isdown) return; Rectangle1->Position->X = Rectangle1->Position->X + (Screen->MousePos().X - oldx); Rectangle1->Position->Y = Rectangle1->Position->Y + (Screen->MousePos().Y - oldy); oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = false; } //--------------------------------------------------------------------------- В windwos е работает нормально а вот на андроиде глюки. Старый способ не предлагать. Потому что старый способ не работает когда контролы перевернуто.

Спасибо большое!

Как в андроиде получить список системных шрифтов на комбобокс?

Всё еще не вышло?

Есть компонента Image, и внем создаются компоненты динамически (то есть динамически созданные компоненты получают свойство Parent = Image). Новый компонент должен создаться если у Child ов Image не существует такой компоненты. И нужно удалит этот компонент когда не понадобится. Как получит указатель на Child ов компоненты?

Сами задаем вопрос и сами отвечаем! событие OnMouseDown() { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseMove() { if(!isdown) return; Object->Position->X = Object->Position->X + Screen->MousePos().X - oldx; Object->Position->Y = Object->Position->Y + Screen->MousePos().Y - oldy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseUp() { isdown = false; }

Извиняюсь, не посмотрел форум! нужно было всего лишь Screen->MousePos() использовать!

На форме имеется много компонент которые двигаются по способу OnMouseDown + OnMouseMove + OnMouseUp, проблема в том что их можно еще поворачивать. И когда компонент перевернуто передвижение этого компонента становится невозможным. Я думаю если при OnMouseDown и OnMouseMove взять координаты мышки не этого объекта а его Parent а, можно было нормально передвигать. Можно ли это осуществлять?