Atozed Software IntraWeb Ultimate 14.2.1 for XE-XE10.2

IntraWeb is a special Delphi tool for making web pages. The developer can use the tool to create pages that use the same methods used to build programs under Windows:
By selecting the controls from the palette - and dragging them into the design space, which will be the format of the next window (HTML page) that the user will see.
Design concepts are slightly more complicated, since HTML pages are not loaded directly from the user's computer, and are actually requested from the web server. So IntraWeb puts templates on the web server and uploads and displays them to the user.
IntraWeb offers flexible, reliable management technologies that eliminate some of the developer's efforts. The support provided by members of the IntraWeb team is also unmatched.
IntraWeb is fantastic because it comes with a very flexible, powerful, and fully compatible with the excellent culture that the Borland software shows. If you have not tried it yet, do not wait. This tool is really worthwhile.
IntraWeb allows us to build web-based information systems at intervals beyond the power of traditional development tools and methods. The previous tools of the Web information system required months of development and were limited to user account management. The new system is fast, flexible and user-friendly. Parts users love it!

Read More

Menampilkan Node Di Dalam Komponen Tree View Standar dengan Style Bold

Kontrol TreeView Windows standar memiliki beberapa status flag, diantaranya TVIS_BOLD dan TVIS_CUT.
Pertama-tama kita membuat prosedur SetNodeState :

procedure SetNodeState(node: TTreeNode; Flags: Integer);
var
  tvi: TTVItem;
begin
  FillChar(tvi, SizeOf(tvi), 0);
  tvi.hItem := node.ItemID;
  tvi.Mask := TVIF_STATE;
  tvi.StateMask := TVIS_BOLD or TVIS_CUT;
  tvi.State := Flags;
  TreeView_SetItem(node.Handle, tvi);
end;

Sekarang, kita dapat menetapkan flag yang diinginkan, misalnya :

• SetNodeState(node, TVIS_BOLD) --> untuk melakukan Set Node Bold.
• SetNodeState(node, TVIS_CUT)  ---> untuk melakukan Set Node Cutted
• SetNodeState(node, TVIS_BOLD or TVIS_CUT) ---> untuk melakukan Set Node Bold dan Cutted
• SetNodeState(node, 0) ---> Set Node Normal.

Untuk dapat menjalankan command tersebut harus ditambahkan QComCtrls pada klausa uses.

#Semoga Bermanfaat

Read More

Warna Dan Waktu Hint

Dalam suatu aplikasi kebutuhan untuk memunculkan hint atau informasi yang mengenai kegunaan suatu tombol atau komponen lainnya sangatlah dibutuhkan yang dapat membantu dan memudahkan pengguna untuk mengetahui fungsi dari suatu tombol atau komponen yang akan di eksekusi.

Bila kita ingin mengubah warna dan mengatur lamanya kemunculan hint tersebut kita dapat mengaturnya dalam event handler OnCreate atau OnShow pada form utama, berikut adalah contoh kode :

procedure TForm1.OnCreate(Sender: TObject);
begin
  Application.HintColor := clYellow; //warna hint
  Application.HintPause := 250; // 250 milisecon sebelum hint ditampilkan
  Application.HintHidePause := 3000; // hint hilang setelah 3 detik
end;

#Semoga Bermanfaat

Read More

Disable Event Handler

Jika kita ingin melakukan disable event handler saat pertama kali dipanggil, misalnya kita ingin melakukan disable semua aktifitas penekanan tombol mouse pada suatu komponen setelah penekanan tombol mouse pertama kali dilakukan pada komponen. Contoh kode adalah sebagai berikut :

procedure ComponentOnClick;
begin
  Button1.OnClick := nil;
end;

Dalam kasus button.onclick, kita memperoleh efek yang sama seperti men-disable tombolnya sendiri dan pada waktu yang sama, kita memberikan feedback visual sehingga trik ini hanya dapat dipertimbangkan untuk event dan komponen lainnya.

#semoga bermanfaat

Read More

Help Cepat Sekitar Komponen/Class

Cara paling cepat menemukan informasi help mengenai komponen VCL Delphi atau Class, yaitu :

• Klik komponen dalam Component Palette, kemudian tekan F1.
• Jika komponen berada pada form, pilih komponen tersebut kemudian tekan F1.
• Untuk semua komponen atau class lainnya yang ada dalam kode sumber, letakkan cursor diatas nama class (seperti : TMemo, TStringList, atau lainnya) dan kemudian tekan F1.

Trik ini tidak dapat bekerja pada class yang kita buat sendiri, pada umumnya class yang kita buat tidak ada dalam Delphi Help.

Read More

Menampilkan Teks Yang Dapat Dirotasikan

Dalam pembuatan program tentunya kita menginginkan program yang kita buat memiliki kelebihan, salah satunya adalah dalam hal antar muka (interface). Biasanya suatu teks akan tampil dalam standarnya yaitu horizontal, tetapi dengan delphi kita dapat merotasikan suatu teks yang akan ditampilkan dengan sudut tertentu.

Dengan menggunakan prosedur AngleText, maka kita dapat melakukan rotasi teks dengan besaran sudut tertentu.

Berikut ini adalah contoh kode program :

procedure AngleTex(ACanvas: TCanvas; Angle, X, Y: Integer; Str: string);
var
LogRec: TLogFont;
OldFontHandle, NewFontHandle: hFont;
begin
GetObject(ACanvas.Font.Handle, SizeOf(LogRec), Addr(LogRec));
LogRec.IfEscapement := Angle * 10;
NewFontHandle := CreateFontIndirect(LogRec);
OldFontHandle := SelectObject(ACanvas.Handle, NewFontHandle);
ACanvas.TextOut(X,Y,Str);
NewFontHandle := SelectObject(ACanvas.Handle, OldFontHandle);
DeleteObject(NewFontHandle);
end;

Pada parameter Angle merupakan sudut rotasi dalam satuan derajat, searah jarum jam.

#Semoga Bermanfaat

Read More

Bagaimana Menampilkan Tahun 4 Digit

Jika ingin komponen-komponen database (DBGrid atau DBEdit) menampilkan tahun (year) dengan 4 digit, maka kita dapat merubah variabel FOURDIGITYEAR ke nilai True dalam program BDE Administrator.
Jika kita memiliki Paradox dan kita juga merubah format tanggal (date) ke "mm/dd/yyyy" yang bekerja dengan baik didalam Paradox, maka field tanggal yang sama dalam tabel yang sama masih menampilkan tahun deng format 2 digit.

Perhatikanlah komponen DatePicker Delphi, kita akan melihat bahwa komponen ini menampilkan tahun dengan angka yang sama seperti DBGrid. Oleh karena itu, permasalahnnya bukan pada BDE (Borland Database Engine), ketika kita menetapkan Regional Settings Windows untuk menampilkan "mm/dd/yyyy" dab berikutnya memulai sebuah aplikasi Delphi, maka fields tanggal ditampilkan dengan format "mm/dd/yyyy".
Format untuk tanggal dan angka-angka dalam delphi didefinisikan dengan menetapkan variabel format global. Variabel ini secara otomatis ditetapkan menurut setting Windows. Kita dapat merubah veriabel global ke format yang diinginkan, dengan begitu kita mengesampingkan settings Windows.
Setting yang dimodifikasi ini digunakan dalam aplikasi kita, dan setting tidak berpengaruh terhadap Regional Settings Windows.
Oleh karena itu, jika aplikasi menampilkan tanggal atau angka floating point, tetapkan variabel format global (ShortDateFormat, DecimalSeparator, LongDateFormat, dan sebagainya) pada nilai-nilai yang diinginkan. Kita harus melakukan ini dengan benar setelah memulai aplikasi.
Sebagai contoh dalam event handler OnCrete pada form utama.

Read More