Mouse Tıklandığı zaman DBGrid boyanması
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Mouse Tıklandığı zaman DBGrid boyanması
Arkadaşlar, uzun zamandır yapamıyorum. Bir DBGrid var.İstiyorum ki, mouse tıklandığı zaman sol düğme basılı olduğu müddetçe DBGrid hücreleri koşullara göre farklı renklerle boyansın. Düğmeyi bıraktığım anda yeniden eski normal haline dönsün.Koşulun fazla önemi yok.Mesela eğer Field tipi stringse mavı , integersa yeşil,DateTimesa sarı boyansın.Şimdiden teşekkür ederim.
İstikrar sürsün, Türkiye'm büyüsün inşallah.
Re: Mouse Tıklandığı zaman DBGrid boyanması
grid'in mousedown olayında basılı:=true gibi bir değişken ataması yapı mouseup dada tam tersi...sonra gridin ondrawcolumncell olayına
Sitede koşula göre renklendirme kodları zaten mevcut.....
Kod: Tümünü seç
if basili then
begin
......................// Burası renklendirme kodları
end;
Re: Mouse Tıklandığı zaman DBGrid boyanması
Tamam, teşekkür ederim. Demek böyleymiş.
İstikrar sürsün, Türkiye'm büyüsün inşallah.
Re: Mouse Tıklandığı zaman DBGrid boyanması
Böyle bir çözümüm var benim alın bakem : )
Kod: Tümünü seç
procedure TForm1.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
CELLTEXT: STRing;
begin
if gdSelected in State then Exit;
CELLTEXT := DBGrid4.DataSource.DataSet.FieldByName('ODENDISI').AsString;// ödeme sütun başlığı
if CELLTEXT ='ODENDI' then // ödendi ise yeşil yap
begin
DBGrid4.Canvas.Brush.Color := cllime;
DBGrid4.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
if CELLTEXT ='ODENMEDI' then // DBGRID içindeki text eğer ödenmedi ise Sarı yap
begin
DBGrid4.Canvas.Brush.Color := clyellow;
DBGrid4.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
if CELLTEXT ='' then // DB grid içi boş ise KIRMIZI OLSUN İYİMİ
begin
DBGrid4.Canvas.Brush.Color := clRed;
DBGrid4.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
Re: Mouse Tıklandığı zaman DBGrid boyanması
neden tıklandığında gösterilmesi istenebilir ki? tıklamadan direkt göstersin.
Re: Mouse Tıklandığı zaman DBGrid boyanması
Teşekkürler
İstikrar sürsün, Türkiye'm büyüsün inşallah.