Текущий архив: 2002.10.28;
Скачать: CL | DM;
Вниз
разрешение принтера Найти похожие ветки
← →
CkuB © (2002-08-19 00:07) [0]Почему разрещение принтера определяется только первый раз?
При изменении разрешения в настройках принтера возвращаемое
разрешение остается прежним. Если закрыть, а затем открыть
программу, разрешение определяется правильно (первый раз).
procedure TForm1.Button1Click(Sender: TObject);
var
PixelsX:integer;
PixelsY:integer;
begin
PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
Label1.Caption:=IntToStr(PixelsX)+"x"+IntToStr(PixelsY);
end;
← →
Ученик © (2002-08-19 00:14) [1]Printer.Refresh;
← →
CkuB © (2002-08-20 23:55) [2]2 ученик
Не работает.
← →
Ученик © (2002-08-21 00:23) [3]Не знаю, насколько это подходит
Printer.PrinterIndex := -1; { сброс на принтер по умолчанию }
PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
Label1.Caption:=IntToStr(PixelsX)+"x"+IntToStr(PixelsY);
← →
CkuB © (2002-08-21 21:25) [4]2 Ученик.
Работает. Спасибо.
Страницы: 1 вся ветка
Текущий архив: 2002.10.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
