Mengembalikan Grub Bootloader Pada Ubuntu

1. Pertama-tama kita harus menyiapkan ubuntu live CD Ubuntu.
2. Kemudian ubah First boot di BIOS menjadi CD-ROM.
3. Jika PC Anda sudah diset untuk boot ke CD-ROM, Anda bisa menunggu sampai layar pilihan boot Ubuntu muncul pilih saja Try Ubuntu (without any change on your computer)
4. Setelah masuk Live CD Desktop jalankan Terminal dengan meng-klik menu
   Applications > Accessories > Terminal
5. Cek partisi Linux kita dengan menggunakan perintah sudo fdisk -l
   
   
6. Setelah diketahui partisi Linuxnya (misalkan partisi Linux pada laptop saya adalah sda7), kemudian lakukan mounting seperti berikut ini.
   sudo mount -t ext4 /dev/sda7 /mnt/
   sudo mount -t proc proc /mnt/proc/
   sudo mount -t sysfs sys /mnt/sys/
   sudo mount -o bind /dev/ /mnt/dev/
   sudo chroot /mnt /bin/bash
   
7. Sekarang kita akan mengembalikan GRUB ke MBR, perintahnya
   grub-install /dev/sda
8. Sekarang kita akan mengembalikan kedalam partisi Linuxnya (dalam hal ini lokasi partisi Linux laptopsaya berada di /dev/sda7), perintahnya
   grub-install /dev/sda7
9. Jika tidak ada pesan error maka setelah Anda melakukan Reboot, bootloader akan kembali seperti semula.

READ MORE - Mengembalikan Grub Bootloader Pada Ubuntu

Membuat Efek Flat

Kadang kala kita mungkin ingin membuat tampilan program kita sedikit berbeda dengan biasanya. Dengan tips berikut ini Anda bisa membuat komponen checkbox, radiobutton dan button menjadi flat.

procedure TForm1.Flatten(theControl: TWinControl);

var

   dwStyle: Longint;

begin

     dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or                 BS_FLAT;

     SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

     Flatten(Button1);

     Flatten(CheckBox1);

     Flatten(RadioButton1);

end;

Di sini kita menggunakan salah satu fungsi (function) Windows API, yaitu GetWindowLong yang deklarasinya sbb:

function GetWindowLong (hwnd : HWND; int : integer) : integer;

Fungsi GetWindowLong digunakan untuk mencari informasi mengenai window tertentu. Window di sini bisa kita artikan sebagai komponen visual seperti checkbox, radio button dan sebagainya.

Parameter pertama dari fungsi GetWindowLong merupakan handle window dari komponen yang akan kita ubah menjadi flat. Parameter kedua merupakan informasi window yang akan kita ambil. Dalam hal ini parameter kedua tersebut kita isi dengan GWL_STYLE yang artinya kita ingin memperoleh informasi style dari window tersebut.

Fungsi kedua yang kita pakai adalah SetWindowLong. Fungsi tersebut adalah untuk mengubah atribut atau style dari suatu window.

Untuk mengetahui secara lebih detail tentang fungsi Windows API Anda dapat membaca di help yang disertakan pada saat kita menginstall Delphi, pada bagian Win32 Programmer’s Reference.

Adapun kode selengkapnya adalah sebagai berikut:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

CheckBox1: TCheckBox;

RadioButton1: TRadioButton;

ListBox1: TListBox;

procedure FormCreate(Sender: TObject);

private

procedure Flatten(theControl: TWinControl);

procedure Flatten2(theControl: TEdit);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Flatten(theControl: TWinControl);

var

   dwStyle: Longint;

begin

     dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or                 BS_FLAT;

     SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

     Flatten(Button1);

     Flatten(CheckBox1);

     Flatten(RadioButton1);

end;

end.

READ MORE - Membuat Efek Flat

Mendisable Menu dan Tombol Close

Sebuah form biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize, minimize, close.
Untuk Dengan tips di bawah ini Anda dapat mendisable tombol/menu close.

procedure TForm1.FormCreate(Sender: TObject);

var

   hMenuHandle : HMENU;

begin

   hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);

   if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle,

      SC_CLOSE, MF_BYCOMMAND);

end;

Langkah pertama adalah mencari handle dari window menu (atau System menu atau Control menu), caranya yaitu dengan menggunakan fungsi GetSystemMenu.

function GetSystemMenu (hWnd : HWND, bRevert : Boolean) : HMENU;

Parameter pertama dari fungsi GetSystemMenu adalah handle dari window atau form. Dalam contoh ini nama formnya adalah Form1.
Parameter kedua adalah bRevert. Jika nilai bRevert bernilai True maka nilai balik dari fungsi GetSystemMenu adalah NULL, sebaliknya jika bRevert bernilai False maka nilai baliknya adalah handle dari copy dari window menu.
Langkah selanjutnya adalah “menghapus” item pada window menu dengan menggunakan fungsi DeleteMenu.

function DeleteMenu (hMenu : HMENU, uPosition : integer, uFlags : integer): Boolean

Parameter pertama adalah handle dari window menu (yang merupakan hasil pencarian dengan fungsi GetSystemMenu).
Parameter kedua merupakan posisi atau pengenal menu. Jika Anda mengisi parameter ketiga dengan MF_BYCOMMAND maka parameter kedua dapat bernilai SC_CLOSE, SC_MOVE, dan SC_SIZE. Sebaliknya jika Anda mengisi parameter ketiga dengan MF_BYPOSITION maka Anda dapat mengisi parameter kedua dengan suatu nilai integer yang merepresentasikan menu Close.
Fungsi DeleteMenu akan mengembalikan nilai True jika penghapusan menu berhasil dan mengembalikan nilai False jika gagal.
Kedua perintah di bawah ini akan mendapatkan hasil yang sama:

DeleteMenu(hMenuHandle, 6, MF_BYPOSITION);

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND)

READ MORE - Mendisable Menu dan Tombol Close

Menambahkan Fasilitas Skin Pada Aplikasi dengan SXSkinComponents

Mungkin Anda semua sudah sering melihat aplikasi yang menggunakan konsep skin, misalnya Win Amp, WindowBlind, dll. Dengan konsep skin, maka user dapat dengan mudah mengganti tampilan programnya.

Mungkin saja Anda terinspirasi untuk membuat program yang dilengkapi dengan fasilitas skin. Bagaimana caranya? Cara yang paling mudah adalah dengan menggunakan komponen. Salah satu yang cukup menarik dan bisa Anda coba adalah SXSkinComponents.

SXSkinComponents dapat digunakan untuk Delphi 6, Delphi 7, Delphi 2005, Delphi 2006, C++Builder 6 and C++Builder 2006 dan pada sistem operasi Windows 98/ME/NT/2000/XP/2003.

Selain fitur yang cukup menarik, salah satu hal yang memberi nilai tambah adalah komponen ini gratis!

Di bawah ini adalah contoh tampilan dari program yang dilengkapi dengan komponen SXSkinComponents. Klik pada gambar untuk melihat tampilan yang lebih besar.

http://www.saarixx.info/
Download: http://www.saarixx.info/sxskincomponents/en/downloads.php
Ukuran File: 3,3 Mb

READ MORE - Menambahkan Fasilitas Skin Pada Aplikasi dengan SXSkinComponents