procedure TF_Input.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (DBGrid1.Fields[2].Asstring) = 'A' then
begin
TDBGrid(Sender).Canvas.Brush.Color := clblue ;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else if (DBGrid1.Fields[2].Asstring) = 'B' then
begin
TDBGrid(Sender).Canvas.Brush.Color := clred ;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
end;
----- Original Message -----
From: "Gus Pray" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 11:23 AM
Subject: Re: [Delphindo] Mohon Bantuan
>
>
>
> Salam sejahtera
>
> oh, iya mas.
> maksudnya jika saya punya table dimana jika table tsb isinya A maka
TstringGrid yang menampilkan table tersebut akan menampilkan warna/font yang
berbeda khusus data A saja;
> misal table yang isinya 'A' itu adanya di row 1,4 dan 5 maka row tsb
menampilkan warna atau font yang berbeda...itu lho maksudnya....
> terima kasih.. atas bantuannya
>
> salam hormat,
>
>
> Gus Pray
>
> jp_as_TDelphiHelper <[EMAIL PROTECTED]> wrote:
> Agus Prayitno wrote:
>
> >
> > Hai....
> >
> > Maaf Nih saya mau ngerepotin...
> > saya lagi coba ngubah tampilan TstingGrid::> jika table A='A' maka jalur
cell yang ada di nilai A nya berubah, saya sudah coba pake event ondrawcell
tapi selalu gagal...
> > Apa rekan-rekan ada yang pernah ngalamin.... mohon bantuanya..
> >
>
> TStingGrid.... ok saya paham maksudnya kalee TStringGrid
>
> table A='A' .. jalur cell .. : ini saya ngga paham apa maksudnya
> ( koq ada istilah table & jalur )
>
> coba dijelasin lagi....
> pasti bisa dibantuin
>
>
>
> salam,
> jp
>
> --
>
>
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
>
>
> Yahoo! Groups SponsorADVERTISEMENT
>
>
> ---------------------------------
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/Delphindo/
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
>
> ---------------------------------
> Do you Yahoo!?
> Yahoo! Mail Address AutoComplete - You start. We finish.
>
> [Non-text portions of this message have been removed]
>
>
>
>
>
>
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
