Лена*
Зарегистрирован: 14.08.2006 Сообщения: 16
|
Добавлено: Чт Июн 28, 2007 11:49 am Заголовок сообщения: |
|
|
Может этот фрагмент будет полезен:
//C++ Builder 6 SP4
void __fastcall TForm2::sButton2Click(TObject *Sender)
{
XPrintMap->MapUnit = miUnitCentimeter;
XPrintMap->ExportMap(WideString("clipboard"), miFormatBMP);
TClipboard *pCB = Clipboard();
if (pCB->HasFormat(CF_BITMAP))
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
try
{
pBitmap->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
Printer()->BeginDoc();
Printer()->Canvas->StretchDraw(Rect(200,200,XPrintMap->Width + 1800,XPrintMap->Height + 1800), pBitmap);
Printer()->Canvas->Font->Name = "Arial Cyr";
Printer()->Canvas->Font->Size = 10;
AnsiString Way = AnsiString ( "Фрагмент карты шириной " ) + AnsiString ((int)Form2->XPrintMap->Zoom ) + AnsiString ( " метров:" );
Printer()->Canvas->TextOut(200,100,Way);
Printer()->EndDoc();
}
catch (...)
{
sShowMessage("Не удалось распечать фрагмент карты");
}
delete pBitmap;
}
} |
|