To search for an object properties faster, you have to know the name of the properties first then you have to activate the Object Inspector Pane, either by pressing F11 or by selecting it using the mouse or by pressing the Return Key when focusing on the component, then the focus will be default to the object properties value, now to search for the property we want, you must press the TAB key then the focus will move to the object properties name. From there you can start typing the property name and it will focus to the first property that has the name similar to what you type

Iwan CS

To use this feature:

- First click on the Show Build Group Pane on the project manager pane

- Then click on the New Build Group button

- Then set the build group name

- Then select all projects and packages that need to be in one build group

To use the build group

- First click on the Show Build Group Pane on the project manager pane

- Then choose the build name you want to build

- then click on the Compile/Build/Clear button on the build group pane

That’s all.

Iwan CS

To debug both application at the same time, you need to do this:

- First you must compile all project, remember: compile all not build all

- Second, run the first application either by activating the project first then hit F9 or to right click on the project file then click on the Run menu, remember: not the Run Without Debugging menu

- Third, run the second application using the same method above

- It’s done, just make sure the order to run the application must be correct, for me, i must run the server application first then the client application

Note: if you already did all the step i mention above, even though you set the client application to active, the debugger will still stop on the server application too. So make sure you compile all your project

Hope this will help you if you need to do multiple debugging.

Iwan CS

Press Release: http://www.firebirdsql.org/pop/pop_pressRelease25.html

Release Note: http://www.firebirdsql.org/index.php?op=devel&sub=engine&id=fb25_release

Launch Webminar: http://www.mindthebird.com/download/firebird25launchwebinar041010.zip

Versi ini merupakan versi yang cukup di tunggu banyak penggemar Firebird, ada beberapa fitur penting yang ada di sini, seperti misalnya management user dapat di lakukan melalui query, support SMP, dll.

Saya pribadi sedang menunggu versi 3.0 yang akan support untuk multiprosesor lebih baik, dan terutama yang saya perlukan adalah embeded security database. Direncanakan fitur ini akan ada di versi 3.0. Tapi kita tunggu saja bagaimana kelanjutannya.

Info lebih lengkap, cek di www.firebirdsql.org

Trik berikut ini dapat mendeteksi status tombol tersebut:

function IsInsertKeyOn: boolean;
begin
  Result := Odd (GetKeyState(VK_INSERT));
end;

Penjelasan
Perintah Odd:
Memeriksa apakah nilai yang di evaluasi bernilai ganjil atau tidak

Perintah GetKeyState:
Akan mengembalikan nilai status dari nilai yang di evaluasi (VK_INSERT)
Perintah ini akan mengembalikan nilai biner 8 bit (0000 0000), dengan ketentuan sebagai berikut:

Bit High Order akan bernilai 1000 jika tombol sedang ditekan
Bit High Order akan bernilai 0000 jika tombol tidak sedang ditekan
Bit Low Order akan bernilai 0001 jika tombol sedang Toggle On
Bit Low Order akan bernilai 0000 jika tombol tidak sedang Toggle Off

Contoh penggunaan:

Tambahkan unit Windows pada uses list

Letakkan komponen TLabel di form dan berikan nilai property:

Label1.Caption := ‘INS’;

Kemudian pada event Form Paint, tambahkan kode berikut:

procedure TForm1.FormPaint(Sender: TObject);
begin
  inherited;
  if IsInsertKeyOn then
    Label1.Font.Color := clBlack
  else
    Label1.Font.Color := clGray;
end;

Hasil dari perintah diatas akan memberikan warna font dari komponen Label1 dengan warna abu – abu saat tombol Ins berstatus Toggle Off dan warna hitam saat tombol Ins berstatus Toggle On.

Event diatas hanya terjadi saat form digambar ulang, contoh pada saat form mendapat fokus. Agar efek status pada komponen Label dapat langsung dilihat, tambahkan kode berikut pada event Form KeyDown, dengan sebelumnya menset nilai property Form1.KeyPreview menjadi True:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_INSERT then
    Self.Repaint;
end;

Dengan kode tersebut maka setiap kali user menekan tombol INS maka akan memanggil event FormPaint yang kemudian akan memberikan warna pada komponen Label1 sesuai statusnya

Untuk mengambil data dan menampilkannya ke komponen TImage cukup dengan perintah:
img1.Assign(Dataset.FieldByName('GAMBAR'));

Gambar Format JPeg
Untuk gambar format JPG, kita tidak dapat langsung mempergunakan komponen TDBImage untuk menampung dan menampilkan gambar data database karena format JPEG tidak dikenal, namun kita masih bisa menampung dan menampilkan database dengan komponen TImage. Berikut ini cara menyimpan gambar ke database dan menampilkan gambar dari database ke komponen TImage


procedure SimpanGambar(ADataSet: TDataSet;
  AImage: TPicture);
var
  imgJpeg : TJPEGImage;
begin
  if Assigned(ADataset) and Assigned(AImage) then
  begin
    imgJpeg := TJPEGImage.Create;
    try
      if (AImage.Graphic <> nil) and        (AImage.Graphic.ClassNameIs('TJPegImage')) then
        begin
          imgJpeg.Assign(AImage.Graphic);
          with imgJpeg do
          begin
            Grayscale := False;
            CompressionQuality := 25;
            ProgressiveEncoding := True;
            Compress;
          end;
          ADataset.FieldByName('GAMBAR').Assign(imgJpeg);
        end;
    finally
      FreeAndNil(imgJpeg);
    end;
  end;
end;
procedure TampilGambar(ADataSet: TDataSet;out AImage: TPicture);
var
  imgJpeg : TJPEGImage;
begin
  if Assigned(ADataSet) then
  begin
    imgJpeg := TJPEGImage.Create;
    try
      if not ADataSet.FieldByName('GAMBAR').IsNull then
      if TBlobField(ADataSet.FieldByName('GAMBAR')).BlobSize > 0 then
      begin
        imgJpeg.Assign(ADataSet.FieldByName('GAMBAR'));
        with imgJpeg do
        begin
          PixelFormat := jf24Bit;
          Scale := jsFullSize;
          Grayscale := False;
          Performance := jpBestQuality;
          Smoothing := True;
          ProgressiveDisplay := True;
        end;
        AImage.Bitmap.Assign(imgJpeg);
      end;
    finally
      FreeAndNil(imgJpeg);
    end;
  end;
end;


Pada contoh diatas, terdapat 2 prosedur, yang pertama adalah untuk menyimpan gambar ke database, dan yang kedua adalah untuk mengambil dan menampilkan gambar dari database.

Pengaturan properti dari JPeg, dapat dilihat pada help delphi dengan keyword TJPEGImage.

Apa itu firebird
Firebird adalah database open source yang dikembangkan untuk menjawab kebutuhan akan database yang handal namun cukup ringan dan mudah dalam mengoperasikannya

Sekilas sejarah firebird
Firebird dikembangkan dari codebase interbase versi 6.0 yang open source. Interbase adalah aplikasi database yang telah dikembangkan oleh beberapa perusahaan dan dalam beberapa nama yang berbeda. Terakhir dikembangkan oleh Borland dan borland juga yang telah membuat Interbase versi 6.0 menjadi open source, walapun borland kemudian merubah interbase menjadi closed source kembali pada versi 6.5 dan seterusnya hingga kini versi 7.1.
Ada beberapa komunitas yang mengembangkan interbase open source ini, diantaranya adalah Firebird Foundation, yaffil, vulcan dan fyracle. Namun semua root development tersebut rencananya akan digabungkan menjadi 1 root development dengan nama firebird pada firebird versi 3.0 keatas.

Mengapa Firebird
Beberapa alasan yang menjadikan penulis memilih Firebird sebagai database pilihan diantaranya adalah:
1. Kemudahan installasi
2. Memiliki fitur standard yang lumayan lengkap (Stored Procedure, View, Trigger)
3. Database hanya 1 file atau multispan file
4. Memiliki fitur Embeded Server
5. Dukungan pada banyak platform (windows, linux, unix)
6. Footprint yang kecil
7. Dukungan pada UDF
8. Komunitas yang besar
9. Dukungan driver yang luas

Kemudahan penggunaaan dari firebird cukup memberikan banyak pilihan, baik untuk menjadikan Firebird sebagai database embeded seperti untuk aplikasi dalam CD Rom ataupun sebagai database enterprise. Meski diakui hingga firebird 1.5 belum banyak fitur yang mendukung kebutuhan enterprise secara built in, namun prospek ke depan dari database ini sangat baik.

Beberapa Kekurangannya
Hingga Firebird 1.5.2, ada beberapa kelemahan yang ditemukan oleh penulis yang dirasakan cukup menganggu, namun sudah banyak yang telah diperbaiki di versi 2.0, diantaranya adalah:
1. Belum mendukung derived table (FB 2.0 sudah mendukung)
2. Query Plan yang kurang optimize (FB2.0 sudah diperbaiki). Disini saya telah melakukan pengujian kecil, yaitu dengan menjalankan suatu query yang melibatkan penggunaan correlated query dan fungsi coalesce, di FB1.5 membutuhkan waktu yang jauh lebih lama dari pada di FB2.0
3. Tidak dapat mempergunakan alias kolom dalam where clause sehingga cukup menyulitkan jika kita pergunakan corelated query. (FB 2.0 sudah diperbaiki)
4. Built in function yang masih sedikit

Iwan Cahyadi Sugeng

Personal Blog at iwancs.wordpress.com
Contributor at delphindo.wordpress.com