Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Membuat color :
Pada Tab Additional pilih ColorBox
Membuat pilihan ukuran :
Klik ComboBox, pada properties Double klik Items :
Masukan angka :
8
10
12
14
18
24
Membuat Pilihan Style :
Klik ComboBox, pada properties Double klik Items :
Masukan huruf :
Regular
Bold
Italic
Underline
Strikeout
Sourcecode [ Membuat program font ] :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, ActnMan, ActnColorMaps;
type
TForm1 = class(TForm)
ComboBox2: TComboBox;
ComboBox3: TComboBox;
XPManifest1: TXPManifest;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label3: TLabel;
ColorBox1: TColorBox;
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
case ComboBox2.ItemIndex of
0:label3.Font.Size :=8;
1:label3.Font.Size :=10;
2:label3.Font.Size :=12;
3:label3.Font.Size :=14;
4:label3.Font.Size :=18;
5:label3.Font.Size :=24;
end;
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
case ComboBox3.ItemIndex of
0:label3.Font.Style :=[];
1:label3.Font.Style :=[fsbold];
2:label3.Font.Style :=[fsitalic];
3:label3.Font.Style :=[fsunderline];
4:label3.Font.Style :=[fsstrikeout];
end;
end;
procedure TForm1.ComboBox4Change(Sender: TObject);
begin
label3.Font.Name;
end;
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
label3.Font.Color :=ColorBox1.Selected ;
end;
end.