Font Viewer v1.0

procedure TForm1.FormCreate(Sender: TObject);
var
..
begin
..
with ListBox1 do //Listed font names
begin
Clear;
Sorted:= true;
Items:= Screen.Fonts;
end;
..
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
RichEdit1.Font.Name := ListBox1.Items[ListBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
var
F: TextFile;
s: string;
..
begin
..
with RichEdit1 do
begin
Clear;
Lines.Add('A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ');
Lines.Add('a b c d e f g h i j k l m n o p q r s t u v w x y z');
Lines.Add('0 1 2 3 4 5 6 7 8 9 ~ ! @ # $ % ^ & * ( ) + ™ © ® ¼ ½ ¾ ± € Ø ø ß Ð ç');
Lines.Add('');
if FileExists(GetCurrentDir+'\sample.txt') then
begin
AssignFile(F, GetCurrentDir+'\sample.txt');
reset(F);
repeat
Readln(F, S);
Lines.Add(s);
SeekEoln(F);
until eof(F);
CloseFile(F);
end;
end;
..
end;

//set the font size
procedure TForm1.ListBox2Click(Sender: TObject);
var
idSize: integer;
begin
..
RichEdit1.Font.Size:= StrToInt(ListBox2.Items.Strings[idSize]);
..
end;

//set the font style that is normal, bold, italic
procedure TForm1.ListBox3Click(Sender: TObject);
begin
case ListBox3.ItemIndex of
0: RichEdit1.Font.Style:= [];
1: Richedit1.Font.Style:= [fsitalic];
2: RichEdit1.Font.Style:= [fsBold];
3: RichEdit1.Font.Style:= [fsBold, fsItalic];
end;
..
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
RichEdit1.Font.Style:= RichEdit1.Font.Style + [fsStrikeout]
else
RichEdit1.Font.Style:= RichEdit1.Font.Style - [fsStrikeout];
end;

//set the font color
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
RichEdit1.Font.Color:= ColorBox1.Selected;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// #8 is Backspace
// #13 is Enter
if not (Key in [#8, #13, '0'..'9']) then begin
ShowMessage('Invalid key');
// Discard the key
Key := #0;
end
else
if key = #13 then
begin
key:= #0;
..
end;
end;