Iz linka koji mi je Milos poslao(hvala puno) otkucao sam sledeci kod
Code:
procedure TfrmClanovi.DBGrid1TitleClick(Column: TColumn);
{$J+}
const
PreviousColomnIndex:integer=-1;
{$J-}
var
Sort:String;
begin
Sort:=Column.Field.FieldName;
if DBGrid1.DataSource.DataSet is TCustomSQLDataSet then
with TCustomSQLDataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColomnIndex].Title.Font.Style:=DBGrid1.Columns[PreviousColomnIndex].Title.Font.Style-[fsBold];
except
end;
Column.Title.Font.Style:=Column.Title.Font.Style+[fsBold];
PreviousColomnIndex:=Column.Index;
if (Pos(Column.Field.FieldName,Sort)=1)and (Pos('Desc',Sort)=0) then
Sort:=Column.Field.FullName+'Desc'
else
Sort:=Column.Field.FieldName+'Asc';
end;
end;
Problem je u tome sto kod nista ne radi!Znam da sam negde pogresio ali ne znam gde,pa najljubaznije molim da mi neko pomogne?
I jos nesto da pitam {$J+} sta znaci?
Mislim da se {$}oznacavaju naredbe koje se direktno kompajleru prosledjuju...ali ne znam sta ova znaci?
Don't worry be happy