1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147
|
CardM = class(TObject)
private
Cadre : TRectangle ;
Titre,Detail,Image :String;
Hauteur : integer;
Constructor Create(SParent:TVertScrollBox;STitre,SDetail,SImage:string);
destructor destroy ; override;
end;
CardV = class(TObject)
private
ScrollBox : TVertScrollBox;
Cadres: array of CardM;
MyTaille : Integer ;
public
procedure CreerDefCardM(sTitre,sImage,sDetail:string) ;
constructor Create(sParent: TLayout);
destructor destroy ; virtual ;
end;
implementation
uses FMX.Dialogs;
{ CardV }
procedure CardV.CreerDefCardM(sTitre,sImage,sDetail:string) ;
begin
if ((sTitre.Length)>0) and ((sImage.Length)>4) and (sDetail.Length<=155) then
begin
inc(Self.MyTaille);
SetLength(Cadres,Self.Mytaille+1);
Cadres[Mytaille]:=SimpleCard.Create(ScrollBox,sTitre,sDetail,sImage);
end;
end;
destructor CardV.destroy;
begin
end;
{ SimpleCard }
constructor CardM.create(SParent:TVertScrollBox;STitre,SDetail,SImage:string);
begin
with Self do
begin
Titre :=STitre;
Detail :=SDetail;
Image :=SImage;
end;
Cadre := Trectangle.Create(nil);
with Cadre do
begin
Align:=TAlignLayout.Top;
Parent:=SParent;
with Margins do
begin
Left:=10;
Right:=10;
Bottom:=10;
Top:=10;
end;
Height:= 320;
Stroke.Color :=TAlphaColorRec.Null;
Fill.Color:=TAlphaColorRec.White;
end;
with TLabel.Create(nil) do
begin
Text := Self.titre;
Font.Family := 'Arial';
Align := TAlignLayout.Top;
with Margins do
begin
Left:=8;
Right:=10;
Bottom:=10;
Top:=5;
end;
TextAlign:=TTextAlign.Leading;
Parent := Self.Cadre;
end;
With TShadowEffect.Create(Cadre) do
begin
parent := Cadre;
ShadowColor := $FF9B9898;
end;
with TText.Create(Self.Cadre) do
begin
Align:=TAlignLayout.Client;
Parent:=Self.Cadre;
with Margins do
begin
Left:=10;
Right:=10;
Bottom:=5;
Top:=10;
end;
with TextSettings do
begin
HorzAlign := TTextAlign.Leading;
VertAlign:=TTextALign.Leading;
Trimming:=TTextTrimming.character;
end;
Color := $FF858585;
Text :=Self.Detail;
end;
with TImage.Create(nil) do
begin
Parent :=Self.Cadre;
Align:=TAlignLayout.Top;
Height:=200;
WrapMode:=TImageWrapMode.Stretch;
Bitmap.LoadFromFile(TPath.GetDocumentsPath + PathDelim + 'xdg.jpg'); // Lien utilisé pour faire des tests TPath.GetDocumentsPath + PathDelim + 'xdg.jpg'
end;
end;
destructor CardM.destroy;
begin
inherited;
end; |
Partager