mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-07-11 22:03:01 -06:00
.uppdev
git-svn-id: svn://ultimatepp.org/upp/trunk@6579 f0d560ea-af0d-0410-9eb7-867de7ffcac7
This commit is contained in:
parent
9b59276d7e
commit
69f7c9f016
2 changed files with 18 additions and 3 deletions
|
|
@ -5,14 +5,15 @@ using namespace Upp;
|
|||
GUI_APP_MAIN
|
||||
{
|
||||
Report r;
|
||||
r.Header("[A2> Page $$P");
|
||||
r.Header("[A2< Header Page $$P");
|
||||
r.Footer("[A2> Footer Page $$P");
|
||||
r << "This is some [* QTF text";
|
||||
r << t_("顯示[* QTF 文字");
|
||||
r << "&&Let's report some table:";
|
||||
r << t_("輸出表格式報表:");
|
||||
String tab;
|
||||
tab << "{{1:1:1:1:1:1:2 A:: B:: C:: D:: E:: F:: G (wider)";
|
||||
for(int row = 0; row < 20; row++)
|
||||
for(int row = 0; row < 200; row++)
|
||||
for(int column = 0; column < 7; column++)
|
||||
tab << ":: " << row << ":" << column << t_("測試");
|
||||
r << tab;
|
||||
|
|
|
|||
|
|
@ -2,10 +2,24 @@
|
|||
|
||||
using namespace Upp;
|
||||
|
||||
void Background(Report *r)
|
||||
{
|
||||
LOG("Background");
|
||||
DDUMP(r->GetPages().GetCount());
|
||||
Draw& w = *r;
|
||||
Size sz = r->GetSize();
|
||||
Image m = CtrlImg::exclamation();
|
||||
Size isz = m.GetSize();
|
||||
for(int x = -isz.cx / 2; x < sz.cx; x += isz.cx)
|
||||
for(int y = -isz.cy / 2; y < sz.cy; y += isz.cy)
|
||||
w.DrawImage(x, y, m);
|
||||
}
|
||||
|
||||
GUI_APP_MAIN
|
||||
{
|
||||
Report r;
|
||||
r << "@@iml:400*400`CtrlImg:exclamation`";
|
||||
r.OnPage(callback1(Background, &r)).Header("THIS IS HEADER!");
|
||||
r << LoadFile(GetHomeDirFile("smlouva.qtf"));
|
||||
|
||||
Perform(r);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue