Berbagi Ilmu IT

TdxRibbon Delphi (Ubah tampilan Tab Program Seperti Ms.Office 2007)

Langsung aja ya,

Yang pasti hal pertama kita harus punya komponen DevExpress (kalo ga salah namanya itu, J), dan sudah kita install di Delphi 7 kita.

Lalu kita buat New >> Application.

Taruh komponen TdxBarManager di form, dan tambahkan komponen TdxRibbon di form. Pastikan di bagian properties TdxRibbon >> BarManager berisi TdxBarManager (atau nama yang sudha kita buat untuk TdxBarManager). – biasanya si kalo kita taruh TdxBarManager dulu sebelum TdxRibbon sudah otomatis terisi). Tambahkan juga TdxStatusBar kalo diperlukan.

Coba Run program Kamu. Ribbon seharusnya sudah tampak, namun masih terlihat BORDER form seperti tanpa menggunakan ribbon seperti gambar ini:

Source Code akan terlihat seperti ini :

===Begin

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,dxRibbon, dxSkinsCore, dxSkinsdxBarPainter,

dxSkinsDefaultPainters, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters, dxSkinsdxRibbonPainter, dxStatusBar,

dxRibbonStatusBar, cxClasses, dxBar;

type

TFMain = class(TForm)

bm: TdxBarManager;

ribbonTab1: TdxRibbonTab;

ribbon: TdxRibbon;

sb: TdxRibbonStatusBar;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FMain: TFMain;

implementation

{$R *.dfm}

end.

===End

Selanjutnya kita akan membuat tampilan program kita seperti Ms. Office 2007. Hal2 yang harus kita perhatikan dan kita ubah antara lain :

- Tambahkan di Unit : dxRibbonForm;

- Setting properties TdxRibbon >> Support Non Client Form jadi True;

- Ubah Type jadi => TFMain = class(TdxRibbonForm)

Sehingga Source Code nya akan terlihat seperti di bawah ini :

Delphi Code Begin :

===