-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Весь контент Равиль Зарипов (ZuBy)
-
такой возможности нету
-
видимо ParamStr(1/2); VCL'ьный вариант есть в FMX?
-
этой папки нету, это символическая ссылка. находится она /data/data/<имя пакета>/files для просмотра нужен root
-
приложите демо-проект, быстрей поможем
-
стоит наверное при OnUpdateObjects проверять состояние ваших данных и красить снова
-
когда он стал стандартным модулем?
-
А разве TListItem хранит Objects? Сейчас нет Делфи проверить
-
не знаю как такое делается на C++, но в Delphi так ShowMessage(AItem.Text + ' ' + TListViewItem(AItem).ButtonText + ' is clicked');
-
1) скрываем все контролы 2) меняем align при показе layName.Visible := true; layName.Align := TAlignLayout.Bottom; layName.Position.Y := layName.Position.Y + 1; layName.Align := TAlignLayout.Top; layName.RecalcSize; позиции сохраняются если всегда скрывать контролы с конца
- 2 ответа
-
- align
- выравнивание
-
(и ещё 2 )
C тегом:
-
что вы имеет ввиду? два варианта цвета, что за цвета?
-
procedure TForm1.Button1Click(Sender: TObject); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(trunc(Image1.Width), trunc(Image1.Height)); aBitmap.Assign(Image1.Bitmap); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - 100, aBitmap.Height - 25, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.Fill.Color := $B4FFFFE5; aBitmap.Canvas.FillRect(aRectF, 0, 0, AllCorners, 1); aBitmap.Canvas.Font.Size := 18; aBitmap.Canvas.Fill.Color := TAlphaColorRec.Black; aBitmap.Canvas.FillText(aRectF, DateToStr(Date), false, 1, [], TTextAlign.Center, TTextAlign.Center); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end;
-
procedure TForm1.Button1Click(Sender: TObject); var aBitmap: TBitmap; begin aBitmap := TBitmap.Create; aBitmap.SetSize(trunc(Image1.Width), trunc(Image1.Height)); aBitmap.Canvas.BeginScene; aBitmap.Canvas.Fill.Color := TAlphaColorRec.Black; aBitmap.Canvas.Font.Size := 18; aBitmap.Canvas.FillText(RectF(0, 0, 100, 100), DateToStr(Date), false, 1, [], TTextAlign.Center, TTextAlign.Center); aBitmap.Canvas.Stroke.Color := TAlphaColorRec.Red; aBitmap.Canvas.DrawRect(RectF(0, 0, 100, 100), 0, 1, AllCorners, 1); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end;
-
да конечно можно, вы просто не указали цвет нужно запомнить если метод начинается на Fill..., значит нужно менять цвет через Image.Bitmap.Canvas.Fill.Color := TAlphaColorRec.Black; если на Draw..., то Image.Bitmap.Canvas.Stroke.Color := TAlphaColorRec.Black;
-
Используйте код из хелпера, только все методы нужно перенести в сам FMX.ListView.pas для Берлина
-
как-то так Image.Bitmap.Canvas.BeginScene; Image.Bitmap.Canvas.FillText(RectF(0,0,100,100), 'Date', false, 1, [], TTextAlign.Center, TTextAlign.Center); Image.Bitmap.Canvas.EndScene;
-
1) берем новый проект 2) создаем нужный стиль 3) сохраняем в файлик *.style 4) открываем файл в редакторе копируем и переименовываем стиль 5) открываем свой стиль (*.style) если есть и вставляем в него, если нет то просто кидаем на форму StyleBook и грузим в него 6) присваиваем стиль нужным контролам