procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const PreviousColumnIndex : integer = -1;
{$J-}
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
except
end;
Column.title.Font.Style :=
Column.title.Font.Style + [fsBold];
PreviousColumnIndex := Column.Index;
if (Pos(Column.Field.FieldName, Sort) = 1)
and (Pos(' DESC', Sort)= 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
end;
end;
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=. . .
Column.title.Font.Style :=. . .
PreviousColumnIndex:=. . .
Sort:=. . .
IniFile.WriteInteger('-----0-DBGrid1-----','2-0',DBGrid1.Columns.Items[0].Width);
DBGrid1.Columns.Items[0].Width:=IniFile.ReadInteger('-----0-DBGrid1-----','2-0',DBGrid1.Columns.Items[0].Width);
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.