1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| AnsiString str = QRDBText6->DataSet->FieldByName(QRDBText6->DataField)->AsString; //-- Récupère la valeur du DBText --//
//-- Premier Memo -//
LOGFONT lgfont;
QRMemo1->Font->Size = 10;
QRMemo1->Font->Name = "Times New Roman";
if(GetObject(QRMemo1->Font->Handle, sizeof(LOGFONT), &lgfont))
{
lgfont.lfHeight = 12;
lgfont.lfEscapement = 900;
lgfont.lfOrientation = 900;
lgfont.lfWeight = FW_BOLD;
StrPCopy(lgfont.lfFaceName, "Times New Roman");
lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
QRMemo1->Font->Handle = CreateFontIndirect(&lgfont);
SetGraphicsMode(QRMemo1->Handle, GM_ADVANCED);
QRMemo1->Lines->Text= str;
} |
Partager