unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, StdConvs, ConvUtils, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
ComboBox1: TComboBox;
ListBox1: TListBox;
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure changefamily(Sender: TObject);
private
fam: TConvFamily;
fams: TConvFamilyArray;
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
len: integer;
begin
GetConvFamilies(fams);
Len := Length(Fams);
if (Len <> 0) then
for len := Low(Fams) to High(Fams) do
//ComboBox1.Items.Add(format('%d: %s',[ord(fam),ConvFamilyToDescription(fam)]));
ComboBox1.Items.Add(format('%s', [ConvFamilyToDescription(len)]));
ComboBox1.ItemIndex := 0;
changefamily(self);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
changefamily(self);
end;
procedure TForm1.changefamily(Sender: TObject);
var
atypes: TConvTypeArray;
i: integer;
begin
//fggf
ListBox1.Clear;
fam := fams[ComboBox1.ItemIndex];
GetConvTypes(fam, atypes);
for i := Low(atypes) to High(atypes) do
ListBox1.Items.Add(format('%s', [ConvTypeToDescription(i)]));
end;
end.