Skip to content

Instantly share code, notes, and snippets.

@felipebastosweb
Created October 11, 2023 00:03
Show Gist options
  • Save felipebastosweb/7ea15c6afa844378cf2e860ea54be028 to your computer and use it in GitHub Desktop.
Save felipebastosweb/7ea15c6afa844378cf2e860ea54be028 to your computer and use it in GitHub Desktop.
ListViewCard erro no construtor
unit Widgets.ListViewCard;
interface
uses System.Classes, System.Generics.Collections, System.Variants, FMX.Controls,
FMX.Types, FMX.ListView, FMX.ListView.Types,
FMX.Graphics, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.Objects;
type
TListViewCard = class(TListViewItem)
private
FBitmap: TBitmap;
FIndexTitle: string;
FBody: string;
FButtons: TList<TRectangle>;
public
constructor Create(const AOwner: TListView);
destructor Destroy; override;
property Bitmap: TBitmap read FBitmap write FBitmap;
property IndexTitle: string read FIndexTitle write FIndexTitle;
property Body: string read FBody write FBody;
property Buttons: TList<TRectangle> read FButtons write FButtons;
end;
implementation
constructor TListViewCard.Create(const AOwner: TListView);
begin
inherited Create(AOwner);
FBitmap := TBitmap.Create;
FButtons := TList<TRectangle>.Create;
end;
destructor TListViewCard.Destroy;
begin
FBitmap.Free;
FButtons.Free;
inherited Destroy;
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment