Здравствуйте! такой вопрос...В DbgridEh отображается база аксесс. В одном из столбцов процедура замены символов
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | procedure TForm1 . DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer ; Column: TColumnEh;
State: TGridDrawState);
begin
if column . FieldName = 'Unit' then
with dbgrideh1 . Canvas do
begin
fillrect(rect);
if adoquery1 . FieldByName( 'Unit' ).AsString = 'считыватель 2-2' then
begin
textout(rect . Left + 39 - dbgrideh1 . Canvas . TextWidth( 'заезд' ),
rect . Top + 2 , 'заезд' );
end
else
textout(rect . Left + 39 - dbgrideh1 . Canvas . TextWidth( 'выезд' ),
rect . Top + 2 , 'выезд' );
end ;
end ;
|
На экране все норм, но когда вывожу на печать, то печатается "считыватель"...как можно сделать, чтобы печаталось все таки "заезд"...?