Bagaimana cara memisah css IE dan Firefox

Terkadang kita bingung untuk membuat agar tampilan website kita bisa support untuk semua browser dan hal ini yang masih membuat kita semua bingung bagaimana cara memisahkannya ... ?? Tidak usah bingung hal itu bisa kita atasi dengan cara yang simple agar tampilan kita bisa terlihat indah bila dijalankan pada browser yang awalnya tidak support dengan website kita. Nah untuk memisahkannya bisa kalian lihat pada contoh dibawah ini :

Import file style_id.css bila browser kalian IE

<![if IE]><link rel="stylesheet" type="text/css"
href="style_ie.css">
<![endif]>

dan sebaliknya Import file style_fx.css untuk browser selain IE

<![if !IE]><link rel="stylesheet" type="text/css"
href="style_fx.css">
<![endif]>

Silahkan kalian coba sendiri semoga ini berguna bagi teman - teman ...

Memberi Warna record aktif pada TDBGrid

Bagi anda yang ingin memberikan warna berbeda pada record aktif TBDGrid anda dapat menambahkannya dengan beberapa baris syntax pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

semoga bermanfaat

Referensi http://www.klik-kanan.com

Membuat Form Gradient Pada Delphi

Nih ... catatan ku semalam waktu ga bisa tidur Qu searching om google bagaimana cara membuat form gradient pada delphi ternyata Qu menemukan jawabannya,, untuk singkatnya langsung ja copas neh syntax oceee ....

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
IX: Integer;
begin
iX :=200 ;
Ht:=(ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with Canvas do begin
Brush.Color := RGB(Ix,150,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;

untuk mengganti menjadi warna lain ubah dibagian ini
Brush.Color := RGB(Ix,150,row);

RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.


Referensi http://www.klik-kanan.com