FMX TListView with dynamicappearance. Create progress bar as bitmap.

[skyzoframe[hun] 4]

hi,

Problem.:

1.- ListView using with DynamiAppearance,

 

using only these kinds of objects.:

 

2.- I have to create a progress bar in runtime. I want to create/draw a bitmap in runtime.

3.- How to draw a  rectangle, and fill it with color.

-input data.: 25

-output.: Some bitmap with two rectangle

-bitmap Height 10 Width 100 all the time!

 

kind regards kz.

 

[Pat Foley 51]

1. Use FlowLayout and set properties of children controls.

2. Put a Progress bar over another. 

[skyzoframe[hun] 4]

I need to stay in Listview-objects!

 

Almost done.. but slow when I use 500 record..

 

Solution.:

 

WorkStation00.rar

WorkStation00.7z

Edited May 29, 2021 by skyzoframe[hun]

[Pat Foley 51]

Can't read RARs today.

 

procedure TForm1.Button1Click(Sender: TObject);
var
  I:                    integer;
  colorRect:         TroundRect;
begin
  for I := 1 to 100 do
  begin
    colorRect := TRoundRect.Create(self);
    with colorRect do
    begin
     Setbounds(0,10 * I, 34,34); //need to set size only
     parent := FlowLayout1;
     fill.color := Talphacolors.Gold;

     show;
    end;
  end;
 

You could change the roundRect to other shapes as needed. the self in TRoundRect.Create(self) puts the object created in the forms list of Controls and/or Components for destruction later

Edited May 28, 2021 by Pat Foley
Need for self added

[Serge_G 87]

Hi, if you mean something like this

 

(my first try) I use this code
 

unit UnitProgess;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  Data.Bind.GenData, System.Rtti, System.Bindings.Outputs, FMX.Bind.Editors,
  Data.Bind.EngExt, FMX.Bind.DBEngExt, Data.Bind.Components,
  Data.Bind.ObjectScope, FMX.ListView, Fmx.Bind.GenData;

type
  TForm18 = class(TForm)
    ListView1: TListView;
    PrototypeBindSource1: TPrototypeBindSource;
    BindingsList1: TBindingsList;
    LinkListControlToField1: TLinkListControlToField;
    procedure ListView1UpdateObjects(const Sender: TObject;
      const AItem: TListViewItem);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form18: TForm18;

implementation

{$R *.fmx}

procedure TForm18.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
var
  pBitMap: TBitmap; // for further purpose
  pListItemImage : TListItemImage;
begin
  if AItem.Purpose = TListItemPurpose.None then
  begin
    pListItemImage:=AItem.Objects.FindObjectT<TListItemImage>('ProgressBar');
    if assigned(pListItemImage) then
     begin
      pListItemImage.Bitmap.Width:=400-(abs(PrototypeBindSource1.DataGenerator.FindField('intfield1').GetTValue.AsInteger)*10);
      pListItemImage.Bitmap.Clear(Talphacolors.RED);
     end;
end;

end.

Quick designed

 

But I shall investigate more because this "version" need a link to (bitmap1 -> Item.ProgressBar)
I was enabled to add a bitmap directly (PlistItemImage is unassigned if there is no link)

[skyzoframe[hun] 4]

Thanks for all the replies.

Problem step.:

-4. How to move the image, behind the selection?

 

Alternative solution.:

The image still in front of the selection blue.

 

 

Edited May 29, 2021 by skyzoframe[hun]

[skyzoframe[hun] 4]

 

 

WorkStation00.zip

Edited May 29, 2021 by skyzoframe[hun]

[skyzoframe[hun] 4]

One solution from the infinite .:

 

->

WorkStation00.zip

Edited May 29, 2021 by skyzoframe[hun]

[Pat Foley 51]

Runs OK!  Good example of separation of units and runtime building. 

 

 

It may be easier to edit DFM file than drilling into Object Inspector.  

    ItemAppearance.ItemHeight = 45
    ItemAppearanceObjects.ItemObjects.ObjectsCollection = <
      item
        AppearanceObjectName = 'INDEX'
        AppearanceClassName = 'TTextObjectAppearance'
        Appearance.Width = 100.000000000000000000
        Appearance.Height = 22.000000000000000000
        Appearance.Align = Trailing
      end
      item
        AppearanceObjectName = 'VALUE'
        AppearanceClassName = 'TTextObjectAppearance'
        Appearance.Width = 100.000000000000000000
        Appearance.Height = 22.000000000000000000
      end
      item
        AppearanceObjectName = 'IMAGE'
        AppearanceClassName = 'TImageObjectAppearance'
        Appearance.ScalingMode = Original
        Appearance.Width = 200.000000000000000000
        Appearance.Height = 5.000000000000000000
        Appearance.PlaceOffset.Y = 32.000000000000000000
      end>

 

[skyzoframe[hun] 4]

Or,

 

  y :=  5;
  //x :=  200;
  x := trunc(Listview1.Width-50);

 

and it will be responsive for window resize.:

 

Problem step.:

5.- By the way. Is there another method to get object width, in runtime?

 

"TAppearanceListViewItem(ListView1.Items.Add).Objects.FindObjectT<TListItemImage>('IMAGE').Width"

 

Edited May 29, 2021 by skyzoframe[hun]

[Serge_G 87]

Hi

Sorry but, I think we don't play in the same playground.

For me, a TListView is used with Livebindings to fill it with data coming from a data source (table, query or list of Object). You use it like a TListBox!

With a TListBox it's easy to put in a style whatever you want (in this case a text and a progress bar).

 

By the way, your code is more for this kind of component,

• Create a style (layout, ttext, progressbar)

just to adapt your code in the    "for FR in FArray do" loop

• set the style of the created item  item.stylelookup:='mystyleprogress'
• insert an item.applystylelookup
• change access to the objects of the item

 

 

[skyzoframe[hun] 4]

On 5/28/2021 at 4:23 PM, skyzoframe[hun] said:

I need to stay in Listview-objects!

 

Almost done.. but slow when I use 500 record..

 

Solution.:

 

WorkStation00.rar

WorkStation00.7z

Check here the rar file. In data module you can see, how to build up in runtime the query for data source usage. Here usually I use synchronized threads. In user interface I handle every data sources in dynamic arrays. You all right, I don't use livebindings and live database connections. Live bindings for me is like "tying hands". 

[skyzoframe[hun] 4]

Mistake here.:

procedure TForm2.FormDestroy(Sender: TObject);
Var
  rec :  dmRecord;
begin
  try
    for rec in FArray do
    begin
      if rec.mStr_Flag=Boolean(1)
      then  rec.mStr.DisposeOf;
    end;
  finally
    //FArray.Clear;
    FArray.DisposeOf; // missing line
  end;
end;

OR

procedure TForm2.FormDestroy(Sender: TObject);
begin
  try
    GetData.dmArray_CLEAR(FArray);
  finally
    FArray.DisposeOf;
  end;
end;

 

Edited June 14, 2021 by skyzoframe[hun]