-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
264
Весь контент Равиль Зарипов (ZuBy)
-
TButton [TButton] Отсутствует метод Click у кнопки
Равиль Зарипов (ZuBy) ответил POV вопрос в TButton
дело в том что при вызове Button1OnClick(nil); вы выполняете свой код, а при вызове VCL'ного варианта Button1.Click; Вы выполняете как минимум то, что написано в методе Click класса TCustomButton вызываете не нужную отрисовку компонента и собственно свой код. думаю разница очевидна -
Еще в XE8 такое появилось, пример был написан ранее. так что это уже не актуально
- 4 ответа
-
- Панель
- Обновление
-
(и ещё 3 )
C тегом:
-
версия для Seatle ColorListView.zip весь код для отрисовки кастомного цвета 1) копируем себе и открываем FMX.ListView 2) Ctrl+F -> DrawItemsFill 3) Вставляем код // отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... после if FAlternatingColors and (AltIndex mod 2 = 1) then FBrush.Color := FItemStyleFillAltColor; 4) Подключаем в своём проекте после стандартного FMX.ListView
-
нет, но могу скинуть измененный ListView с покраской конкретных Item'ов
-
копать в сторону System.Sensors; Вот все сенсоры что поддерживаются в FMX TSensorCategory = (Location, Environmental, Motion, Orientation, Mechanical, Electrical, Biometric, Light, Scanner); TSensorCategories = set of TSensorCategory; TLocationSensorType = (GPS, Static, Lookup, Triangulation, Broadcast, DeadReckoning, Other); TEnvironmentalSensorType = (Temperature, AtmosphericPressure, Humidity, WindSpeed, WindDirection); TMotionSensorType = (Accelerometer1D, Accelerometer2D, Accelerometer3D, MotionDetector, Gyrometer1D, Gyrometer2D, Gyrometer3D, Speedometer, LinearAccelerometer3D, GravityAccelerometer3D); TOrientationSensorType = (Compass1D, Compass2D, Compass3D, Inclinometer1D, Inclinometer2D, Inclinometer3D, Distance1D, Distance2D, Distance3D); TElectricalSensorType = (Voltage, Current, Capacitance, Resistance, Inductance, ElectricalPower, Potentiometer); TMechanicalSensorType = (BooleanSwitch, BooleanSwitchArray, MultiValueSwitch, Force, Scale, Pressure, Strain); TBiometricSensorType = (HumanPresence, HumanProximity, Touch); TLightSensorType = (AmbientLight); TScannerSensorType = (RFID, Barcode);
-
погонял на дроиде(nexus 7 в1, 5.1.1) DX10, широкова-то, подвисает, при смене ориентации вылетает(не важно с какой старт альбом или портрет) может есть варианты без лагов? Этот пример был сделан до появления multiview, так что не думаю что его целесообразно использовать теперь
-
function TextHeight(const AText: string; aTextSettings: TTextSettings; const MaxWidth: Single): Single; // uses FMX.Graphics, FMX.TextLayout, FMX.Types, Math var Layout: TTextLayout; aRect: TRectF; aWW: Boolean; begin Result := 24; if AText.IsEmpty then Exit; aWW := Pos(#13#10, AText) > 0; if (aTextSettings.WordWrap) or (aWW) then aRect := RectF(0, 0, MaxWidth, MaxSingle) else aRect := RectF(0, 0, MaxSingle, MaxSingle); Layout := TTextLayoutManager.DefaultTextLayout.Create; try Layout.BeginUpdate; Layout.TopLeft := aRect.TopLeft; Layout.MaxSize := PointF(aRect.Width, aRect.Height); Layout.Text := AText; Layout.WordWrap := aTextSettings.WordWrap; Layout.HorizontalAlign := TTextAlign.Leading; Layout.VerticalAlign := TTextAlign.Leading; Layout.Font.Assign(aTextSettings.Font); Layout.Color := aTextSettings.FontColor; Layout.RightToLeft := false; Layout.EndUpdate; aRect := Layout.TextRect; finally FreeAndNil(Layout); end; Result := aRect.Bottom; end; думаю для ширины не нужно показывать код, сами отредактируете
-
что то типа того нужно сделать, посчитать грубо сколько Item'ов видно Scrollbar1.Max := Value - Round(ListView1.Height / ListView1.ItemAppearance.ItemHeight);
- 38 ответов
-
- listview
- fast scrolling
-
(и ещё 1 )
C тегом:
-
Указать нужно кодировку, TEncoding.UTF8 в процедуре загрузки файла, вторым параметром
-
Почему буква вверху, для меня тоже загадка да на мобильных он не работает, это просто индикатор положения
- 38 ответов
-
- listview
- fast scrolling
-
(и ещё 1 )
C тегом:
-
уместить у меня весь алфавит в LB так и не получилось, единственное решение вижу объединить некоторые буквы использовал русский алфавит - сортировка ListView - формирование ListBox в зависимости от контента ListView alphLV.zip
- 38 ответов
-
- listview
- fast scrolling
-
(и ещё 1 )
C тегом:
-
не понял, чем отличается от моего?)
- 38 ответов
-
- listview
- fast scrolling
-
(и ещё 1 )
C тегом:
-
посмотрите вот это http://fire-monkey.ru/topic/2041-rx-fgx-opisanie-versii-07174/
-
TListBox alphLB.zip TListView alphLV.zip
- 38 ответов
-
- listview
- fast scrolling
-
(и ещё 1 )
C тегом:
-
procedure TVBCustomPanel.SetTitlePresent(Value: TVBTextPresent); begin if (Value <> nil) then begin FTitlePresent.Assign(Value); Repaint; end; end; constructor TVBTextPresent.Create; begin inherited Create; FFont := TFont.Create; FFontColor := TAlphaColorRec.Black; FTextSettings := TTextSettings.Create(self); end;
-
Обновление до Seattle (будут ли проблемы)
Равиль Зарипов (ZuBy) ответил kami вопрос в Лицензирование
1) paserver'a можно оставить два 2) в XCode загрузить SDK для IOS 8.4 3) а вот с миграцией будет жопа, приготовьтесь