Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Картинку на принтер Знайти схожі гілки


hunter   (2001-12-17 13:17) [0]

Як здійснити сабж, але так щоб правильно її помістити на А4 в незалежності від розміру картинки.
Картинка є-лист формати А4, але в який дозвіл не відомо.



Sergey_n   (2001-12-18 00:06) [1]

У Borland C ++ Builder на кшталт так
if (PrintDialog1-> Execute ()) {
unsigned int BitmapInfoSize, BitmapImageSize;
long DIBWidth, DIBHeight;
PChar BitmapImage;
Windows :: PBitmapInfo BitmapInfo;
Graphics :: TBitmap * Bitmap;

Printer () -> BeginDoc ();
Bitmap = new Graphics :: TBitmap ();
Bitmap-> Assign (Image3-> Picture-> Bitmap);
GetDIBSizes (Bitmap-> Handle, BitmapInfoSize, BitmapImageSize);
BitmapInfo = (PBitmapInfo) new char [BitmapInfoSize];
BitmapImage = (PChar) new char [BitmapImageSize];
GetDIB (Bitmap-> Handle, 0, BitmapInfo, BitmapImage);
DIBWidth = BitmapInfo-> bmiHeader.biWidth;
DIBHeight = BitmapInfo-> bmiHeader.biHeight;
StretchDIBits (Printer () -> Canvas-> Handle,
0, 0, DIBWidth, DIBHeight,
0, 0, DIBWidth, DIBHeight,
BitmapImage, BitmapInfo,
DIB_RGB_COLORS, SRCCOPY);
delete [] BitmapImage;
delete [] BitmapInfo;
delete Bitmap;

Printer () -> EndDoc ();
}

переробити на Delph думаю труднощів не складе.



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.037 c
1-22201
T2
2001-12-16 07:13
2002.01.08
Sound Spectr


3-21933
бідність
2001-11-26 12:19
2002.01.08
Підкажіть найпростіший спосіб реєстрації BDE


1-22084
Mikhalyov Dmitry
2001-12-19 14:53
2002.01.08
Блокування події


4-22469
Zibaro
2001-11-01 19:38
2002.01.08
Картинка в popup меню (як з кнопки


3-21918
SVS
2001-12-04 13:11
2002.01.08
заповнення OleContainer з BlobField





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська