ASRenuff

Коллеги, приветствую.
 
Хочу поделиться успешным опытом подключения аппарата HTC Desire C к Delphi XE5. Никаких сложностей с подключением не возникло. Скачал с официального сайта HTC программу HTC Sync http://www.htc.com/ru/support/content.aspx?id=6301. В ее состав входят и драйверы. После установки саму программу HTC Sync снес, она мне как таковая не нужна. Смартфон автоматически появился в дереве target-устройств проекта.
 
 
Выходные данные:
 
Смартфон: HTC Desire C
ОС смартфона: Android 4.0.3
ОС среды Delphi: Windows XP
Версия Delphi: XE5
 
UPD. Небольшая поправка для пользователей Windows 7. Почему-то, по-умолчанию, драйверы на эту ОС ставятся некорректно и устройство помечается как "Драйверы не установлены". Достаточно запустить процедуру обновления драйверов и руками указать путь к ним. Драйверы лежат в папке "C:\Program Files\HTC\HTC Driver\Driver Files\Win7_x86\" после установки вышеописанной программы.

добавил checkbox итему  повесил обработчик на него 
item.StylesData['check.OnChange'] := TValue.From<TNotifyEvent>(DoCheckClick); и как только я нажимаю на checkbox оно автомато начинает запускаться при загрузке и выгрузке стиля  как быть ?

Руководствуясь темой (Как сделать автоматическое изменение высоты TListBoxItem под содержимое текста?) переделал код на C++Builder.
 
Unit1.h
public: // User declarations TTextLayoutClass *FTextLyoutClass; TTextLayout* FTextLyout; Unit1.cpp //--------------------------------------------------------------------------- void TForm1::CalculateItemHeight(TObject *Sender) { TListBoxItem *ListItem=dynamic_cast<TListBoxItem*>(Sender); if (ListItem!=NULL) {    FTextLyout->BeginUpdate(); try { FTextLyout->Text = ListItem->Text; FTextLyout->MaxSize = TPointF(ListItem->Width, 1000); FTextLyout->WordWrap = ListItem->WordWrap; FTextLyout->Font = ListItem->Font; FTextLyout->HorizontalAlign = ListItem->TextAlign; FTextLyout->VerticalAlign = ListItem->VertTextAlign; ListItem->Height = FTextLyout->Height; } __finally { FTextLyout->EndUpdate(); } } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { FTextLyout = (TTextLayout*)(new TTextLayoutClass(TTextLayoutManager::DefaultTextLayout)); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { FreeAndNil(FTextLyout); } //--------------------------------------------------------------------------- void __fastcall TForm1::ListBoxItem3ApplyStyleLookup(TObject *Sender) { CalculateItemHeight(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::ListBoxItem3Resize(TObject *Sender) { CalculateItemHeight(Sender); } //--------------------------------------------------------------------------- И получаю ошибку:

 
Это я не правильно переделал код или же глюк студии?
На офф. форуме тоже подымался етот вопрос - но к сожалению без ответов

Добрый день!
Приложение написано на основе FM Mobile XE5, но ошибка проявляется и при сборке под Win. Даже не ошибка, а некорректная работа интерфейса. Используется анимация перемещения контролов и анимация изменения цвета фона TRectangle и анимация цвета шрифта на TLabel. В процессе работы с интерфейсом возникает ситуация, цвет и атрибуты шрифта с одного контрола попадают на другой, который не участвует в анимации. На приведенном скриншоте видно, что поменялся текст на элементе "Только свои события" (TLabel), а анимация используется на кнопках "Вчера" "Сегодня" и "Завтра" (Это не кнопки, а Trectangle с TLabel)/ Анимация плавно меняет фон и цвет надписи. В приложении не создаются потоки, кроме тех. что создает сама система. Используется FireDac SQLite

Поместил Image на итем в ListBox и при скроле ListBox (жму на Image и тяну вверх) срабатывает OnClick у Image. Как это исправить?

Здравствуйте.
Стоит задача: Кастомизированный TListBoxItem содержит TText.Price, TSpinBox.SBCount, TText.Sum.
т.е. есть цена, изменяем кол-во получаем сумму и все это в TListBoxItem.
 
Вешаем обработчик на TSpinBox.SBCountChange, но встает вопрос, каким образом узнать в каком  TListBoxItem произошло событие?
procedure TForm2.SBCountChange(Sender: TObject); var Item: TListBoxItem; SB: TSpinBox; s1, s2: string; begin SB := Sender as TSpinBox; // Получили Sender из TSpinBox if Assigned(SB) and (SB is TSpinBox) then begin Item := ?????? //Узнаем из какого итема была вызван эта процедура s1 := StringReplace(Item.StylesData['TextPrice'].ToString,'.',',',[rfReplaceAll, rfIgnoreCase]); //Тут обертка точку на запятую меняю s2 := StringReplace(Item.StylesData['SBCount.Text'].ToString,'.',',',[rfReplaceAll, rfIgnoreCase]); Item.StylesData['TextSum.Text'] := IntToStr(Round(StrToFloat(s1) * StrToInt(s2))); end; end;