; toto je ukazka novych moznosti interpretru DDT, popis bude k dispozici pozdeji
; zmenu barev najdete v nize

DeclareRec('Program')
Designed('WinDUO')

Test:Word=20+ 4*3 / 2
Test2:Double=1234678.99
Test3:String='Text do záložky 1'
Test4:String='Text do záložky 2'
Test5:Boolean=False
ValidFin:String='0123456789.,'

SetDecimalSize('2');
DlgFollowMouse(True);
DefDialog('Testovací wokno',272,256)
DlgStatic(-1,'Políčko č. &1',16,28,96)
DlgEditDate(101,Test,128,24)
DlgStatic(-1,'Políčko č. &2',16,54,96)
DlgEdit(102,Test2,128,50,128,,20,es_Right,ValidFin)
DlgShade(-1,'',4,4,261,180)
DlgCover(199,4,8,80,253,100,False)
SetCover(0);
SetCover(1,'1')
DlgCheckBox(103,Test5,24,25,196,,'Přepínací políčko')
SetCover(2,'2')

ComboStr:String
ComboNum:Integer=0

DlgCombo(105,ComboStr,24,8,208,128,32,cbs_DropDownList,'Mimořádné přiznání','Řádné přiznání','Dodatečné přiznání');
DlgCombo(106,ComboNum,24,36,208,128,32,cbs_DropDownList,'Položka 1.','Položka 2.','Položka 3.','Položka 4.','Položka 5.');

SetCover(3,'3')
DlgBitmap(904,10,0);

SetCover(4,'4')
DlgStatic(-1,'Řádek č. 2',10,30,80);
DlgShade(-1,'',4,4,100,50)
DlgDivider(10,30,233,0);
DlgDivider(126,10,0,50,True);
DlgStatic(-1,'Řádek č. 1',10,10,80);

FileName('Test.WNS');

SetCover(0)
DlgButton(id_OK,'OK',15,189);
DlgButton(id_Cancel,'Zpět',188,189);
DlgOnlineHelp(101,'Tak to je nápověda k políčku s identifikací 101\ra toto je druhý řádek této nápovědy')

Result:Integer=DlgExecute()

;zmena barev
; parametr je cislo oznacujici barvu ve formatu RGB
; nejnizsi bajt obsahuje jas cervene barvy
; nejnizsi bajt obsahuje jas zelene barvy
; nejnizsi bajt obsahuje jas modre barvy
; kombinacemi techto moznosti muzete ziskat 16 mil. barev

PenColor=$FF00FD;
Y:Word=0;

Debug;

While(PenColor&$FF<>$FF)
  begin
    Pen(0,1);
    Line(0,Y,193,0);
    Inc(Y,1);
    Dec(PenColor,2);
  end;

PenColor=$FF0000

While(PenColor&$FF0000<>$0)
  begin
    Pen(0,1);
    Line(0,Y,193,0);
    Inc(Y,1);
    Inc(PenColor,$200);
  end;


Pen(0,1,$FF00FF);
Line(0,30,210,0);
Pen(0,1,$FFFF00);
Line(0,31,210,0);
Pen(0,1,$00FFFF);
Line(0,32,210,0);

FontSize(5)
TextColor($000000FF)
Text(0,0,TA_Left,'Políčko č.1: '+Test);
TextColor($0000FF00)
Text(0,7,TA_Left,'Políčko č.2: '+Str(Test2,0,2));
TextColor($00FF0000)
Text(0,14,TA_Left,'Políčko č.3: '+Test3);
TextColor($00FF00FF)
Text(0,21,TA_Left,'Políčko č.4: '+Test4);
;Text(0,28,TA_Left,'Výsledek dialogu '+Result);
TextColor($00C0C0C0)
Text(0,28,TA_Left,'Text před indexem');
FontSize(2.5)
Text(0,0,TA_Left|TA_Relative,'Index');
FontSize(5)
Text(0,0,TA_Left|TA_Relative,' a zase po indexu');

END