Citat:
Kako se u quick reportu napravi vertikalan tekst tj. kako da promjenim orjentaciju? Znači, ne da slova idu s lijeva na desno već npr. odozdo prema gore (ili obrnuto)?
Otprilike ovako:
(postaviti na report neki TQRLabel objekat, recimo QRLabel1)
--- H ---
Code:
// ...
__fastcall TNekiReportForm(TComponent* Owner);
__fastcall ~TNekiReportForm();
TLogFont Log;
HFONT HFnt;
// ...
-- CPP ---
Code:
__fastcall TNekiReportForm::TNekiReportForm(TComponent* Owner)
: TForm(Owner)
{
// pokupi trenutne osobine objekta
GetObject ( QRLabel1->Font->Handle, sizeof( Log ), &Log );
// podesi ugao, i sl...
Log.lfEscapement = 270*10;
Log.lfOutPrecision = OUT_TT_ONLY_PRECIS;
// ... ovde mozda jos ponesto, ko ce ga znati ...
HFnt = CreateFontIndirect ( &Log );
// ovde proveriti povratnu vrednost HFnt, u duhu WInAPI-ja, da ne bi bilo kasnije problema ...
// pridruzi nove osobine
QRLabel1->Font->Handle = HFnt;
}
__fastcall TNekiReportForm::~TNekiReportForm()
{
DeleteObject (HFnt);
}
// OnPrint dogadjaj objekta
void __fastcall TNekiReportForm::QRLabel1Print(TObject *sender,
AnsiString &Value)
{
static int brojac = 0;
Value = brojac++;
}
Citat:
I drugo.. trebam u izvještaju napraviti nekakav citat koji je dio rečenice. Međutim, citat je dio koji je formatiran s italic stilom dok ostatak rečenice je normalan. Ideje?
Ideje... kreiraj RTF zapis i ucitaj u T(DB)RichEdit kontrolu u QuickReport.
Ili, kreiraj dinamicki potreban broj TQR(DB)Labela i sastavljaj string sa stringom, pocetak sledeceg na kraj prethodnog, uz potrebnu promenu stila (italic).
P.S.
Evo, ovde je neko Delphi resenje, isti princip:
http://www.experts-exchange.co.../Pascal/Delphi/Q_23587790.html
Pominje se i neki problem s stampom, kao i zaobilazno resenje. Pokusaj.
[Ovu poruku je menjao X Files dana 06.10.2009. u 22:26 GMT+1]