estra

Ярослав, я нашел причину проблемы. Если в ваш код добавить 1 строку (TextObject.IsDetailText := True;), ваш код перестанет работать корректно (размер шрифта не будет меняться). procedure TForm1.Button1Click(Sender: TObject); var Item: TListViewItem; TextObject: TListItemText; I: Integer; begin for I := 0 to 10 do begin Item := ListView1.Items.Add; Item.Text := 'Item ' + I.ToString; TextObject := TListItemText.Create(Item); TextObject.Name := 'SubCaption'; TextObject.PlaceOffset.Point := TPointF.Create(100, 0); TextObject.Font.Size := Random(20) + 5; TextObject.Height := Item.Height; TextObject.Text := 'Sub caption'; TextObject.IsDetailText := True; // Эта строка все портит !!! end; end; Какую роль играет свойство IsDetailText, для чего оно, где и как его можно использовать?

Спасибо, то что надо! А я делал так (см. вложение), правда в коде бардак, это результат экспериментов. FM ListView.zip

Относительно управляющих символов - после шифрования обработай строку Base64. Относительно неустойчивости - ты прав, но FM тебе тут вряд ли поможет, изобретай свой велосипед или позаимствуй чужой.

Я за. Изначально (начиная с XE2) я не относился серьезно к этой платформе. Но вдруг откуда ни возьмись (как это часто бывает) "прилетел" проект под андроид. И эта платформа меня сильно выручила, однако есть множество вопросов, и далеко не на все получены ответы. Так что обучающий курс однозначно не помешал был.

XOR и NOT еще никто не отменял function StrEncrypt( s: string ): string; var i: Integer; b: TBytes; begin b := BytesOf( s ); for i := 0 to Length( b )-1 do b[i] := not( b[i] xor 25 ); Result := StringOf( b ); end; function StrDecrypt( s: string ): string; var i: Integer; b: TBytes; begin b := BytesOf( s ); for i := 0 to Length( b )-1 do b[i] := not( b[i] ) xor 25; Result := StringOf( b ); end; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'crypt my'; ShowMessage( s ); s := StrEncrypt( s ); ShowMessage( s ); s := StrDecrypt( s ); ShowMessage( s ); end;

Как создать кастомный стиль для TListView и TListViewItem в мобильном приложении?

Спасибо. P.S. А никто не пробовал рутовать эмулятор андроида? Прокатит такой финт или нет?

1. Какое например? Так? function IsSuperSUInstalled: Boolean; begin Result := SharedFileManager.fileExistsAtPath(StrToNSStr('/Applications/SuperSU.app')); end; Если не сложно, можно примерчики (как Ярослав тут привел - http://fire-monkey.ru/topic/300-ios-kak-programmno-opredelit-chto-planshet-dzheilb/.)? У меня нет рутованного планшета, по-этому не могу экспериментировать в этом вопросе.

Спасибо!

Как программно определить что планшет рутованный?

Как программно определить что планшет джейлбрейкнутый?

А на Москву санкции наложили?)

Никогда бы не подумал! Может Ярослав объяснит, баг это или фича? А вам спасибо, выручили!

Добавил TListItemText в TListItem. Как теперь изменить размер шрифта? procedure TForm1.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var LCaption: TListItemText; begin LCaption := AItem.Objects.FindObject('CA') as TListItemText; if LCaption = nil then begin ... LCaption.Font.Size := 56; // не работает ... end; end;

как вообще менять стиль TListView и TListViewItem? В Bitmap Style Designer нет объекта ListView... Как быть?

Как создать свой итем на основе TListViewItem? Мне нужно добавить в него меток, кнопок, картинок...

Можно ли изменить Accessory у конкретного ListViewItem? Следующий код не дает никаких результатов var l: TListViewItem; begin l := ListView1.Items.Add; l.Accessory := TAccessoryType.Checkmark; end;

Почему при разработке Mobile Application высота GroupBox не меняется?

Как изменить качество (Quality) изображения? Написал такую функцию, но она не работает procedure ChangeQuality( SrcBitmap: TBitmap; var DstBitmap: TBitmap; AQuality: Integer ); var Stream: TStream; Surface: TBitmapSurface; SaveParam: TBitmapCodecSaveParams; begin if Assigned( DstBitmap ) then begin //DstBitmap.SetSize( SrcBitmap.Width, SrcBitmap.Height ); Stream := TMemoryStream.Create; Surface := TBitmapSurface.Create; try Surface.Assign( SrcBitmap ); SaveParam.Quality := AQuality; // AQuality = 65 TBitmapCodecManager.SaveToStream( Stream, Surface, '.jpg', @SaveParam ); Stream.Position := 0; DstBitmap.LoadFromStream( Stream ); finally Surface.Free; Stream.Free; end; end; end;

Можно ди будет в следующей версии (или ближайшем hotfix) добавить прогрессбару свойство Color (или Fill, или еще какое-то), для изменения цвета в RunTime?

Согласен, некорректно. Я хотел узнать, Доступ к пикселам по средствам GetPixel медленнее (как в VCL), быстрее или равен по скорости GetScanline? Что лучше использовать с точки зрения скорости?

Спасибо, с этим я уже разобрался. Однако мне хотелось бы иметь возможность менять цвет динамически (в runtime). Получается, мне нужно заранее подготовить несколько стилей с нужными цветами, и потом переключаться между ними? Можно ди будет в следующей версии (или ближайшем hotfix) добавить прогрессбару свойство Color (или Fill, или еще какое-то)?

Как, используя метод SetActiveTabWithTransition, изменить скорость анимации (Duration)?

Как на компьютере с MacOS получить значение Pixel Density (PDI)?

Как на устройства с iOS получить значение Pixel Density (PDI)?