Kamis, 2018-11-15, 3:32 PM
Coretan And-U
         Menyenangkan saat berbagi pengalaman
Welcome Guest | RSS
Site menu
Login form
Kategori CoretanKu
Pemrograman Delphi [6]
Database [1]
HP [0]
Elektro [2]
Puisi Ku [5]
Digital Imaging [0]
Kategori Download
Free File Aplikasi [5]
Free Project Downloads [5]
DOTA MAP Downloads [2]
Gratis tentunya
Kalender
Site friends
  • Bikin Web di uCoz
  • piere.dikti.net
  • piere-blog.blogspot.com
  • Main » Articles » Pemrograman Delphi

    Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal
    Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal


    Di dalam windows terdapat text Font yang terinstal, Font tersebut akan bertambah jika dimasukkan aplikasi Office, atau kita tambahkan sendiri jenis font tersebut.

    Untuk menampilkan nama Font text yang terintal di windows tersebut dengan aplikasi Delphi bisa kita gunakan TListBox dan TButton untuk membangkitkan code-nya, secara sederhana dicontohkan sebagai berikut :
    procedure TForm1.Button1Click(Sender: TObject);
    Begin
    //menampilkan  nama-nama font yang terinstal
    ListBox1.Items:=Screen.Fonts;
    End;
    Jika kode diatas dibangkitkan yang terjadi adalah list nama-nama font telah tampil di dalam listbox.

    Selanjutnya Untuk mengubah bentuk Font sesuai dengan bentuk karakter Font sesuai dengan namanya dapat menggunakan Event Procedure TListbox pada saat OnDrawItem. Tentu saja sebelumnya kamu ubah property Tlistbox.Style-nya menjadi LbOwnDrawFixed secara manual ataupun dengan bantuan event lainnya.Code Event Procedure TListbox pada saat OnDrawItem nya adalah sbb:
    procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    begin
    //listing dibawah berguna untuk mengubah bentuk font sesuai bentuknya
    Listbox1.Canvas.Font.Name:=Listbox1.Items[Index];
    Listbox1.Canvas.FillRect(Rect);
    Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]);
    end;

    Nampilin Font Udaa...

    Ngubah Bentuk Sesuai Asli Udaa...

    Trus tinggal njumlah ada berapa font yang ditampilin tersebut...

    Tanpa berlama- lama berikut jika dicontohkan dalam script komplit..... (Sbetule lagi mls nulis..)
    • Komponen yang dibutuhkan :
    1. 1 buah Form(Unit)
    2. 1 buah TListbox
    3. 2 buah TButton.
    unit Unit1;

    interface

    uses
     
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

    type
     
    TForm1 = class(TForm)
       
    ListBox1: TListBox;
        Button1: TButton;
        Button2: TButton;
        Label1: TLabel;
        procedure
    Button1Click(Sender: TObject);
        procedure
    Button2Click(Sender: TObject);
        procedure
    ListBox1DrawItem(Control: TWinControl; Index: Integer;
          Rect: TRect; State: TOwnerDrawState);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
     
    Form1: TForm1;

    implementation

    {$R *.dfm}


    procedure
    TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    begin
    //listing dibawah berguna untuk mengubah bentuk font sesuai bentuknya
    Listbox1.Canvas.Font.Name:=Listbox1.Items[Index];
    Listbox1.Canvas.FillRect(Rect);
    Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]);
    end;

    procedure
    TForm1.Button1Click(Sender: TObject);
    var
     
    i: integer;
    begin
    //menampilkan  nama-nama font yang terinstal
    ListBox1.Items:=Screen.Fonts;

    //menampilkan bentuk font
    ListBox1.Style :=lbOwnerDrawfixed;

    //menghitung jumlah font
    for i := 0 to ListBox1.Items.Count - 1 do

    //menampilkan jumlah font di label1
    label1.Caption := 'Jumlah : '+IntToStr(i);
    end;


    procedure TForm1.Button2Click(Sender: TObject);
    begin
    //bersihkan listbox1
    listbox1.Clear;
    label1.Caption := 'Jumlah : 0';
    end;


    end.
    Fiuuuh.... gt deh... Klo dijalanin tampilannya ntar kyk gambar di paling atas..

    Klik disini untuk download contoh project diatas (detect_font.zip)
    File Konten : "Detek_Font.cfg", "Detek_Font.dof", "Detek_Font.dpr", "Detek_Font.exe", "Detek_Font.res", "unit1.dcu", "unit1.ddp", "unit1.dfm", "unit1.pas".
    Category: Pemrograman Delphi | Added by: ArtrashBoy (2009-06-21)
    Views: 10139 | Tags: Menampilkan Font Text yg terinstal | Rating: 0.0/0 |
    Total comments: 0
    Only registered users can add comments.
    [ Registration | Login ]
    Pencarian
    Corentan Entry
    Smiley Face (8959)
    Pengulangan menggunakan "for" untuk tabel perkalian atau pertambahan (28756)
    Show or Hide Icon Desktop (11762)
    Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal (10138)
    Contoh Rectangle, Style, Color (9195)
    Sekilas tentang OP AMP (10193)
    Tulisan Tanpa Makna "Malam PanjangKu" (10763)
    Tulisan Tanpa Makna "Me Vs Me" (8303)
    Tulisan Tanpa Makna "Forbiden Kingdom" (9031)
    Setetes pengertian Teknik Kendali (13650)
    Pengertian Database ato Basis Data (Dasar) (10231)
    Log off, shut down, restart ato reboot Pake delphi?? Bisa ko.. (9145)
    Mengolah TmediaPlayer delphi menjadi musik ato video player sederhana (64515)
    Statistics

    Total online: 1
    Guests: 1
    Users: 0
    Bookmark and Share
    Copyright © 2018, And-U Site
    Powered by uCoz