FAQ DelphiConsultez toutes les FAQ

1
2
Screen.PrepareClosePopups(FMXForm1); 
Screen.ClosePopupForms;

1
2
3
4
5
6
7
8
9
10
11
function Pixels : integer; 
var D : IFMXDeviceMetricsService; 
    Q : TDeviceDisplayMetrics; 
begin 
result:=96; // valeur par défaut windows 
if TPlatformServices.Current.SupportsPlatformService(IFMXDeviceMetricsService,D) then 
begin 
 Q:=D.GetDisplayMetrics; 
 result:=Q.PixelsPerInch; 
end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
  
procedure TForm1.RacinesVisibles; 
var 
  I: Integer; 
begin 
  Memo1.lines.clear; 
  for I := 0 to Arbre.count - 1 do 
  begin 
    // exemple de traitement 
	// if arbre.ItemByIndex(i).Isselected then 
    Memo1.lines.Add(Arbre.ItemByIndex(I).Text); 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
  
procedure TForm1.ElementsVisibles; 
var 
  I: Integer; 
begin 
  Memo1.lines.clear; 
  for I := 0 to Arbre.GlobalCount - 1 do 
  begin 
    // exemple de traitement  
    // if arbre.ItemByGlobalIndex(i).Isselected then  
    Memo1.lines.Add(Arbre.ItemByGlobalIndex(I).Text); 
  end; 
end;

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
  
procedure TForm1.ArbreEntier; 
var 
  I: Integer; 
//  tous, selections, vue, visibles : Integer; 
  
  procedure getChilds(AnItem: TTreeViewItem); 
  var 
    c: Integer; 
  begin 
//    if AnItem.isExpanded then inc(vus, AnItem.count); 
  
    for c := 0 to AnItem.count - 1 do 
    begin 
//    inc(tous); 
//    if AnItem.ItemByIndex(c).Isselected then inc(selections); 
//    if AnItem.ItemByIndex(c).IsVisible then inc(visibles); 
      Memo1.lines.Add(StringOfChar('-', Pred(AnItem.ItemByIndex(c).Level) * 2) +  // ajoute '--' pour chaque niveau  
        ' ' + AnItem.ItemByIndex(c).Text); 
      if AnItem.ItemByIndex(c).count > 0 then // l'élément a des enfants appel à la procedure récursive 
        getChilds(AnItem.ItemByIndex(c)); 
    end; 
  end; 
  
begin 
  Memo1.lines.clear; 
//  tous := 0; 
//  selections := 0; 
//  vue := 0; 
//  visibles :=0; 
  for I := 0 to Arbre.count - 1 do 
  begin 
//    inc(tous); 
//    inc(vue); // racine toujours visible 
//    if Arbre.ItemByIndex(I).IsSelected then inc(selections); 
//    if Arbre.ItemByIndex(I).IsVisible then inc(visibles); 
    Memo1.lines.Add(Arbre.ItemByIndex(I).Text); 
    if Arbre.ItemByIndex(I).count > 0 then // appel procedure récursive 
      getChilds(Arbre.ItemByIndex(I)) 
  end; 
//  Memo1.lines.Add(Format('Total : %d, en vue : %d, sélectionnés : %d, visibles : %d', 
//    [tous, vue, selections, visibles])); 
end;

1
2
3
4
5
6
7
8
9
10
  
procedure TForm1.ListView1ItemClick(const Sender: TObject; 
  const AItem: TListViewItem); 
var anItem : TListViewItem; 
begin 
ListView1.BeginUpdate; 
for anItem in ListView1.Items do 
   anItem.Checked:=(AnItem=AItem) AND AItem.Checked; 
ListView1.EndUpdate; 
end;

ListBox1.Sorted:=True;

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ListBox1Compare(Item1, Item2: TListBoxItem; 
  var Result: Integer); 
var n1,n2 : single; 
begin 
    n1:=StrToFloatDef(Item1.ItemData.Text,0); 
    n2:=StrToFloatDef(Item2.ItemData.Text,0); 
    if n1=n2 then result:=0 
     else begin 
       if n1<n2 then result:=-1 
                else result:=1; 
     end; 
  end; 
end;

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
procedure TForm1.ListBox1Compare(Item1, Item2: TListBoxItem; 
  var Result: Integer); 
var n1,n2 : single; 
begin 
  if ColumnToSort = 0 then 
    result := CompareText(Item1.text,Item2.text) 
  else begin 
    n1:=StrToFloatDef(Item1.ItemData.Detail,0); 
    n2:=StrToFloatDef(Item2.ItemData.Detail,0); 
    if n1=n2 then result:=0 
     else begin 
       if n1<n2 then result:=-1 
                else result:=1; 
     end; 
  end; 
end; 
  
// Utilisation  
procedure TForm1.btnSortDetailClick(Sender: TObject); 
var Compare: TFMXObjectSortCompare; 
begin 
 ListBox1.Sorted:=False; 
 ColumnTosort:=1; 
 Listbox1.Sorted:=true; 
end; 
  
procedure TForm1.btnSortTextClick(Sender: TObject); 
var Compare: TFMXObjectSortCompare; 
begin 
 ListBox1.Sorted:=False; 
 ColumnTosort:=0; 
 Listbox1.Sorted:=true; 
end;

1
2
3
4
 if (Panel1.ControlsCount >= 1) 
   and (Panel1.Controls[0] is TShape) 
 then 
       (Panel1.Controls[0] as TShape).Fill.Color := TAlphaColorRec.Red;  // uses System.UITypes

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
procedure TLigne.GrilleDrawColumnHeader(Sender: TObject; 
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF); 
var 
  tl: TTextLayout; 
begin 
  tl := TTextLayoutManager.DefaultTextLayout.Create; 
  try 
    tl.BeginUpdate; 
    try 
      // effacer le canvas  
	  // inconvénient la couleur n'est pas sensible au Style appliqué 
      Canvas.Fill.Color := TAlphaColors.LightGrey;  
      Canvas.FillRect(Bounds, 0, 0, [], 1); 
      tl.TopLeft := Bounds.TopLeft; 
      tl.MaxSize := PointF(Column.Width, Column.Height); 
      tl.Font:=GrillePointure.TextSettings.Font; 
      tl.Text := Column.Header; // Value 
      //alignement à gauche TTextAlign.Leading, au centre TTextAlign.Center, à droite TTextAlign.Trailing   
      tl.HorizontalAlign := TTextAlign.Center; 
    finally 
      tl.EndUpdate; 
    end; 
    tl.RenderLayout(Canvas); 
  finally 
    tl.Free; 
  end; 
end;

1
2
3
4
5
6
// obtention de l'accès au THeader 
var Header : THeader :=THeader(maGrille.FindStyleResource('header'));   
if assigned(Header) then 
// Changer l'alignement        
//alignement à gauche TTextAlign.Leading, au centre TTextAlign.Center, à droite TTextAlign.Trailing  
TheaderItem(Header.Items[<numcolonne>]).TextSettings.HorzAlign:=TTextAlign.Center;

1
2
3
4
5
6
7
8
9
10
11
12
13
type 
  TColumnHelper = class helper for TColumn 
    procedure ApplyAlignment(Alignment : TTextAlign) ; 
  end; 
... 
implementation  
... 
{TColumnHelper}   
procedure TColumnHelper.ApplyAlignment(Alignment: TTextAlign); 
begin 
  Self.HorzAlign:=alignment; 
  Self.Changed; 
end;

1
2
// alignement à gauche TTextAlign.Leading, centrer TTextAlign.Center, aligner à droite TTextAlign.Trailing 
StringGrid1.Columns[<numero de colonne>].ApplyAlignment(TTextAlign.Trailing);