Loading...

Alpha Controls v12.12 Full Version

2:24 PM Add Comment

Alpha Controls v12.12 Full Version - Update terbaru dari alpha controls dan sudah saya patch menjadi full version. Jika ada notif menggangu saat menjalankan alpha dari delphi abaikan saja, dan coba buka project kamu yang sudah di pasang skin dari alpha. jika tidak muncul notif di projecnya berarti aman suratman hahaha...

Baca juga: Cara Menginstall Komponen di Delphi 7

Apa yang baru di versi 12.12 ini ?
  • Fixed issue with modal forms focusing
  • Solved issue with resizing of the TsAlphaImageList editor form
  • Solved issue with black combobox under the Windows XP
  • Added ShowCloseBtn property in the TsFrameBar items
  • Many minor improvements
  • Published new "Jeans" skin
Link Download Alpha Controls v12.12 Full Version
56720052006200720092010XEXE2XE2 x64XE3XE3 x64XE4XE4 x64XE5XE6XE6 x64XE7XE7 x64XE8XE8 x6410.0 Seattle10.0 Seattle x6410.1 Berlin10.1 Berlin x64

Download All New Skins Alpha
Download

Kalau sebelumnya sudah menginstall komponen alpha controls versi di bawah, komponen nya di uninstall dulu, Baca: Cara Uninstall Komponen Delphi.

Cara Membuat Encryption Pada Config TiniFile dengan Delphi

3:51 PM 1 Comment

Cara Membuat Encryption Pada Config TiniFile dengan Delphi - Menerapkan encryption pada config akan membuat data pribadi menjadi aman, misalkan kita memasukan login & password yang mungkin tidak ingin di ketahui orang banyak.

Sebelum itu mari kita mengenal apa itu encryption :)
Encryption adalah suatu cara untuk meningkatkan keamanan dari suatu message atau file dengan cara mengacak informasi message atau file tersebut dan hanya bisa dibaca oleh seseorang yang mempunyai kunci Encryption untuk mengembalikan acakan nya (Decryption). 
pertama-tama mari kita buat form percobaan nya dulu, buat sekiranya mirip seperti gambar di bawah ini:
selanjutnya tambahkan IniFiles pada uses di delphi, dan buat variable string Myini: TIniFile;.
kemudian copas funcion Encrypt/Decrypt nya tepat dibawah {$R *.dfm}.
function Encrypt(Value: String): String;
const
b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
pad: PChar = '====';
function EncodeChunk(const Chunk: String): String;
var
W: LongWord;
i, n: Byte;
begin
n := Length(Chunk); W := 0;
for i := 0 to n - 1 do
W := W + Ord(Chunk[i + 1]) shl ((2 - i) * 8);
Result := b64alphabet[(W shr 18) and $3f] +
b64alphabet[(W shr 12) and $3f] +
b64alphabet[(W shr 06) and $3f] +
b64alphabet[(W shr 00) and $3f];
if n <> 3 then
Result := Copy(Result, 0, n + 1) + Copy(pad, 0, 3 - n); //add padding when out len isn't 24 bits
end;
begin
Result := '';
while Length(Value) > 0 do
begin
Result := Result + EncodeChunk(Copy(Value, 0, 3));
Delete(Value, 1, 3);
end;
end;

function Decrypt(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
function DecodeChunk(const Chunk: String): String;
var
W: LongWord;
i: Byte;
begin
W := 0; Result := '';
for i := 1 to 4 do
if Pos(Chunk[i], b64alphabet) <> 0 then
W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
for i := 1 to 3 do
Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
end;
begin
Result := '';
if Length(Value) mod 4 <> 0 then Exit;
while Length(Value) > 0 do
begin
Result := Result + DecodeChunk(Copy(Value, 0, 4));
Delete(Value, 1, 4);
end;
end;
nah sekarang masukkan cooding ini kedalam button Save.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
Myini.WriteString ('Encryption Config', 'TestE1', Encrypt(Edit1.Text));
Myini.WriteString ('Encryption Config', 'TestE2', Encrypt(Edit2.Text));
Myini.WriteString ('Encryption Config', 'TestE3', Encrypt(Edit3.Text));
Myini.WriteBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
Myini.WriteBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
Myini.WriteBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

Application.MessageBox('Config berhasil tersimpan','Sukses',mb_iconinformation);
dan yang ini masukkan ke Button Load.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
Edit1.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE1', Edit1.Text));
Edit2.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE2', Edit2.Text));
Edit3.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE3', Edit3.Text));
CheckBox1.Checked := Myini.ReadBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
CheckBox2.Checked := Myini.ReadBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
CheckBox3.Checked := Myini.ReadBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

//Application.MessageBox('Config berhasil diload','Sukses',mb_iconinformation);
Nah sekarang coba RUN (f9) project kamu, dan coba klik button Save. kemudian liat pada file config save nya tadi. maka akan tampak seperti dibawah ini:

Sekarang kamu berhasil Membuat Encryption Pada Config TiniFile dengan Delphi :) ,untuk selanjutnya silahkan di kembangkan lagi dan lebih di kreasikan lagi ^_^.

-=[ Download Soure Code ]=-
[ SolidFiles | TusFiles | UsersCloud ]

Alpha Controls v11.14 Stable Full Version

8:09 PM 5 Comments

Alpha Controls v11.14 Stable Full Version -  Seperti sebelum sebelumnya sketbook sering memberikan update terbaru dari AlphaControls Full Version yang merupakan salah satu komponen yang bisa mempercantik tampilan project kamu. jadi tanpa basa basi lagi.

Ada beberapa fitur yang baru dari Alpha Controls v11.14 Stable Full Version ini, diantaranya:

  • Fixed error of loading in the TsVirtualImageList component
  • Fixed error in the TsSkinSelector component
  • Added RightToLeft BidiMode support in the TsComboEdit control
  • Some improvements in the cxGrid support
  • Optimized the MakeRotated90 function
  • Improved scaling in several components
  • Removed flickering of child controls placed on the TsGradientPanel component
  • A lot of minor bug-fixes and improvements

Link Download Alpha Controls v11.14 Stable Full Version
(Support Delphi 5/6/7/2005-2010/XE-XE8, Builder 6/2006-2010/XE-XE8, RX Seattle, RX Berlin under Windows XP and newer)
Componen:
Delphi 5 | Delphi 6 | Delphi 7 | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi 2009 | Delphi 2010 | Delphi XE | Delphi XE2 (x64) | Delphi XE3 (x64) | Delphi XE4 (x64) | Delphi XE5 (x64) | Delphi XE6 (x64) | Delphi XE7 (x64) | Delphi XE8 (x64) | Delphi 10 (x64) | Delphi 10.1 Berlin (x64)

All Component:
AlphaControls v11.14 Delphi Full Version

Skins & Skin Editor:
AlphaControls v11.14 Download Skin

Cara Membuat Show/Hide PasswordChar

11:55 AM Add Comment
Cara Membuat Show/Hide PasswordChar [ Delphi ] - Buat yang sering membuat program yang ada form login nya, bagus untuk menggunakan cara ini agar terlihat propesional xD.

Simple dan gak rumit dalam pembuatan nya, cukup tambahkan 2 Label 2 Edit 1 CheckBox dan buat terlihat mirip seperti pada gambar di atas. selanjutnya masukkan cooding ini ke dalam CheckBox atau klik 2x pada CheckBox dan masukkan ini:
  if CheckBox1.Checked then
    Edit2.PasswordChar := '*' else
    Edit2.PasswordChar := #0;
Pada char "*" kamu bisa ganti sesuai selera misanya dengan "+" dsb. Coba RUN (F9) dan lihat hasilnya :)

Download Source Code

Cara Membuat Minimize to Tray Dengan Balloon Message

11:18 AM 1 Comment
Cara Membuat Minimize to Tray Dengan Balloon Message [ Delphi ] - Dalam pembuatan suatu program aplikasi dengan delphi, bagusnih kalau di terapkan ke dalam aplikasi yang kamu buat agar terlihat lebih simple dan minimalis.

Disini saya menggunakan komponen TrayIcon yang punya Busines Skin Form (BSF), jadi sebelum menggunakan cara ini download dan install dulu komponen BSF di delphi kamu, Business Skin Form | Mempercantik Form Delphi.

Pertama ambil komponen bsTrayIcon di tab komponen BSF VCL, letakkan pada form dan masukkan ini kedalam Events > onDblClick pada komponen bsTrayIcon.
  if Visible then begin
    Application.Minimize;
  end else begin
    Show;
      Application.Restore;
  end;
Sekarang kita akan membuat Balloon Message nya. Masuk ke tab Events > onHide pada Events Form, dan masukkan ini.
  bsTrayIcon1.ShowBalloonHint('SketBook Tutorial',
            'Minimize To Tray..' + #13 +
            'Klik 2x Untuk Buka Kembali',
            bsbitInfo);
disini kamu bisa merubah kalimat pesan yang nantinya akan muncul sebagai Baloon Message nya.

Sekarang coba RUN (F9) dan coba klik minimize, jika berhasil maka akan tampak seperti pada gambar GIF diatas. yang mau source codenya juga silahkan ambil saja.

Download Source Code

Cara Menginstall Komponen DosCommand di Delphi XE

3:49 PM 1 Comment
Cara Menginstall Komponen DosCommand di Delphi XE - Sebenarnya kita bisa menggunakan komponen DosCommand dari Delphi 7, Tapi ada yang harus kita modifikasi dari komponen nya supaya dapat di install di Delphi XE.

Sebagai contoh disini saya menggunakan Delphi XE 6, kalau belum punya bisa download dari link ini Embarcadero Delphi XE6 Full Version. buka file DosCommand.pas dengan Delphi dan temukan ini di bawah implementation,
type TCharBuffer = array[0..MaxInt - 1] of Char;
kemudian ganti dengan ini,
type TCharBuffer = array[0..MaxInt div 8] of Char;
Kemudian kamu save dan komponen pun siap di install.

Cara install nya, buka Delphi XE kamu klik Componen > Install Componen > install into an existing package > klik "..." dan cari file DosCommand.pas yang kamu modif tadi. klik Next

kemudian akan sampe pada form seperti ini, klik "..." pada package name dan pilih "DOSCommand_AN_D9", kemudian Finish.
Klik kanan pada package yang kamu buka tadi dan lakukan Compile, setelah dipastikan tidak ada error, sekarang klik Install. lebih jelas liat GIF di bawah ini.
Jika berhasil maka akan tampil muncul pesan seperti ini.

Untuk link download komponen disini saya siapkan 2 Dos untuk Delphi XE, yang satunya belum di modif dan yang sudah saya modif, terserah mau yang mana :)  kalau yang sudah di modif kamu tinggal install aja, kalau belum ya di modif dulu hahaha...

Download Componen DosCommand Delphi XE