Archive for June, 2007

Form Cantik Dengan Delphi & Photoshop

Posted by Lukman in Delphi on June 21st, 2007

Dalam membuat aplikasi, bukan hanya kehandalan aplikasi dalam mengolah data saja yang perlukan, penampilan juga perlu di perhatikan. Dengan tampilan yang cantik maka dimungkinkan user akan lebih tertarik dengan program yang kita buat. “Pandangan pertama begitu menggoda, selanjutnya?? ………… he hee”.

Untuk membuatnya dibutuhkan sedikit ketrampilan dalam memainkan program grafis. Saya menggunakan adobe photoshop CS2 untuk mengolah image, dan Delphi 7.0 untuk membuat aplikasinya.

Berikut langkah-langkahnya:

Langkah I : Adobe Photoshop

  1. buat tampilan form sesuai selera.
  2. set warna background #FF0000, dan hindari warna #FF0000 pada form facenya, berikut contoh design yang saya buat :

  3. Save as simpan ke tipe file .bmp

Langkah II : Design di Delphi.

  1. Buat Form baru
  2. setting propertiesnya sbb.
    • AlphaBland = False
    • AlphaBlandValue = 0 (semakin kecil nilainya maka akan semakin transparan, anda bisa mengisi nilainya antara 1 – 100)
    • BorderStyle = bsNone
    • Color = clRed
    • Name = formMenu
    • Position = poDesktopCenter
    • TransparentColor = True
    • TransparentColorValue = clRed (harus sama dengan Color)
    • WindowState = wsNormal
  3. tambahkan object Image dari tab Additional
  4. Atur propertiesnya sbb :
    • Picture = Ambil image .bmp yang sudah dibuat.
    • Transparent = True
  5. tambahkan tombol close

    6. Pada event onclik ketik program berikut :

    procedure TformMenu.BitBtn1Click(Sender:TObject)

Begin

Application.Terminate;

End;
  6. simpan project anda.
  7. run program.

Langkah III : Program

Agar title bar bisa digeser, layaknya form:

  1. Tambahkan Kode berikut di bawah Type :
    2. procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHitTest;
  2. Tambahkan Kode berikut:
    3. procedure TformMenu.WMNCHitTest(var msg : TWMNCHitTest);

begin

inherited;

if (msg.Result = htClient) then

if Msg.YPos < Top + 40 then

msg.Result := htCaption;

end;
  3. run program.

Mudah bukan, cara mudah dengan hasil yang cantik. selamat mencoba!! download sample

32 Comments

Istri Programmer

Posted by Lukman in Humor on June 19th, 2007

Sebelum memutuskan untuk menikah dengan IT Guys pikir dulu masak-masak dan jangan menyesal kemudian. Makanya perhatikan baik-baik percakapan antara seorang istri dengan suaminya(seorang Software Engineer).

Suami: (Pulang telat dari kantor) “Selamat malam sayang, sekarang saya logged in.”
Istri: “Apakah kamu bawa oleh-oleh yang aku minta?”
Suami: “Bad command or filename.”
Istri: “Tapi aku bilangnya dari tadi pagi!”
Suami: “Errorneous syntax. Abort?”
Istri: “Trus, bagaimana tentang beli televisi baru?”
Suami: “Variable not found…”
Istri: “OK deh, kalo gitu aku minta kartu kreditmu. Aku mau belanja sendiri aja.”
Suami: “Sharing Violation. Access denied…”
Istri: “Apakah kamu lebih mencintai komputer daripada aku? Atau kamu hanya main-main saja?”
Suami: “Too many parameters…”
Istri: “Itu kesalahan terbesar kalo saya menikahi orang ‘idiot’ sepertimu.”
Suami: “Data type mismatch.”
Istri: “Kamu tidak berguna.”
Suami: “It’s by Default.”
Istri: “Bagaimana dengan gajimu?”
Suami: “File in use … Try later.”
Istri: “Kalo gitu apa posisiku di keluarga ini?”
Suami: “Unknown Virus.”

Oleh: Gugun ketawa.com

4 Comments

Selamat Datang di Stillcetek

Posted by Lukman in Iseng, Unek-unek on June 15th, 2007

Selamat datang di stillcetek.com, blog ini selain sebagai identitas, dokumentasi, dan pelepas unek-unek saya, semoga bisa lebih dari itu saja, bisa dijadikan sebagai tempat untuk sharing ilmu, dan bertukar pengalaman.

Terima kasih atas bantuan dan dorongan teman-teman sehingga stillcetek.com bisa segera launching.

 Jakarta, 19 Juni 2007

LUKMAN

No Comments