D7 de çalışan kod d6 da çalışmıyor

[Armani]

Günaydın
bu kod D7 de çalışıyor
ama d6 da çalıştıramadım. Yardımcı olabilirseniz sevinirim

Kod: Tümünü seç

if column.fieldname = 'Height' THEN
if not column.Field.IsNull Then
if (column.field.AsFloat >Query1.fieldbyname ('Gen').AsFloat) then

Dbgrid1.Canvas.Brush.color := clred; 
dbgrid1.defaultdrawcolumncell (rect, datacol, column, state);

[Kuri_YJ]

Kodun hangi eventde olduğu ve Column'un tipini belirtirseniz daha iyi olur.

Yani Kod bloğunu (Event ile birlikte gönderirseniz) daha iyi olur.

Yoksa gönderdiğinizden pek bir şeyin çalışmaması mümkün değil gibi görünüyor.

Kolay Gelsin.

[Armani]

oneditchange kısmına yazıyorum. ama hata column kısmında veriyor.
amaç sadece o kısımın kırmızıya dönmesini sağlamak

[husonet]

Aldığınız Hata Mesajını yazarmısınız? Muhtemelen uses satırlarıyla ilgili bir problemdir. Hata Msj'ına bakmakta fayda var.

[Armani]

Kod: Tümünü seç

[Error] Unit1.pas(200): Undeclared identifier: 'column'
[Error] Unit1.pas(201): 'THEN' expected but identifier 'Field' found

[mussimsek]

sizi Arama'ya davet ediyorum. undeclared yazıp arattır, sonucu bulman 20 sn

Kolay gelsin.

[husonet]

oneditchange kısmına yazıyorum. ama hata column kısmında veriyor.
amaç sadece o kısımın kırmızıya dönmesini sağlamak

Evet şimdi farkına vardım DBGrid'in OnEditChange eventi yok zaten Column kısmında hata alman da normal bunu DBGrid'in DrawColumnCell kısmında yazmayı denersen kod'un çalışır.

Kolay Gelsin...

[Kuri_YJ]

Hehehehe derleyici gibi olmuşuz haaa,
Derleyici de Column'a Unknown Identifier diyor

Muhtemelen bahsettiğiniz event, D6'da yok veya farklı bir biçimde kullanılıyor.

D6'nın helpinden DBGrid'e bakın ve oradaki eventlere göz atın daha yardımcı olacaktır.

Kolay Gelsin.