| Евгений |
| Отправлено: 09.11.2005, 14:51 |
|
Не зарегистрирован
|
| CODE |
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
TfrMemoView *mv;
mv = dynamic_cast<TfrMemoView*>(frCert-> FindObject("Memo1"));
mv->Font->Size = 22;
frPreview->Refresh();
}
|
Отчёт просматриваю через TfrPreview. Ничего не меняется.
Как изменить этот код, чтобы у Memo1 Font стал 22 размера ???
|
|
| GIZMO |
| Отправлено: 09.11.2005, 22:15 |
|
Машинист паровоза
Группа: Участник
Сообщений: 174
|
| QUOTE (Евгений @ 09/11/2005, 14:51) | | CODE |
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
TfrMemoView *mv;
mv = dynamic_cast<TfrMemoView*>(frCert-> FindObject("Memo1"));
mv->Font->Size = 22;
frPreview->Refresh();
}
|
Отчёт просматриваю через TfrPreview. Ничего не меняется.
Как изменить этот код, чтобы у Memo1 Font стал 22 размера ??? |
| CODE |
void __fastcall TMainForm::frReport1BeforePrint(TStringList *Memo,
TfrView *View)
{
TfrPictureView* vp;
TfrMemoView* mv;
TMapDocForm* ActiveDoc = dynamic_cast<TMapDocForm*>(ActiveMDIChild);
...
if (View->Name == "mvCondGroupLabel") {
mv = dynamic_cast<TfrMemoView*>(View);
if(cGroup) {
if(ActiveDoc->USE_PRINT_COLOR) {
mv->FrameTyp = 15;
mv->FillColor = cGroup->Color;
}
else
Memo->Strings[0] = cGroup->Label;
//mv->Visible = cGroup->Print;
}
return;
}
...
|
так добирался до свойств когда-то...
|
|
| Valdemar |
| Отправлено: 10.11.2005, 08:57 |
|
Мастер участка
Группа: Участник
Сообщений: 433
|
Код
| CODE | TfrMemoView *mv;
mv = dynamic_cast<TfrMemoView*>(frCert-> FindObject("Memo1"));
mv->Font->Size = 22;
|
работает, размер шрифта меняется. Если вывести отчет с помощью ShowReport(), то результат виден. |
|
| Евгений |
| Отправлено: 10.11.2005, 09:16 |
|
Не зарегистрирован
|
Спасибо за помощь. |
|
