casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Immagine per stampante Trova rami simili


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

Come creare un soggetto, ma in modo che sia corretto posizionarlo su А4 indipendentemente dalle dimensioni dell'immagine.
L'immagine è un elenco di formati A4, ma in quale risoluzione non è noto.



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

In Borland C ++ Builder piace così
if (PrintDialog1-> Execute ()) {
unsigned int BitmapInfoSize, BitmapImageSize;
lungo DIBWidth, DIBHeight;
PChar BitmapImage;
Windows :: PBitmapInfo BitmapInfo;
Grafica :: TBitmap * Bitmap;

Printer () -> BeginDoc ();
Bitmap = new Graphics :: TBitmap ();
Bitmap-> Assegna (Image3-> Immagine-> 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;
cancella bitmap;

Printer () -> EndDoc ();
}

per modificare su Delph penso che il lavoro non farà.



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra





Memoria: 0.55 MB
Ora: 0.019 c
4-22476
regno
2001-11-02 19:42
2002.01.08
Aiuto, UpdateResource non funziona con i file BPL!


7-22449
Schummi
2001-09-15 07:45
2002.01.08
Preferiti di Windows


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid e tutti i suoi discendenti ...


3-21922
Stas
2001-11-29 12:50
2002.01.08
BDE


6-22287
Andrew
2001-08-08 10:35
2002.01.08
Qualcuno ha lavorato con WebSnap ????





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese Rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Inglese Francese tedesco italiano portoghese russo spagnolo