Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- objects
- add(2):Main
- begin
- rgba 0.000 0.502 0.502 1.000
- size 0.000 0.000 688.000 498.000
- bool 1 1 1 1 0 0
- texture ui_panel
- end
- 3
- add(2):Panel1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.009 0.012 0.372 0.488
- bool 1 1 0 0 0 0
- texture ui_panel
- end
- 10
- add(4):Label1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.053 0.164 0.103
- bool 1 1 0 0 0 0
- text Text
- font Arial1
- centered 0
- end
- add(5):Edit1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.270 0.053 0.676 0.103
- bool 1 1 0 0 0 0
- texture ui_edit
- text Text value
- font Arial1
- maxlength 64
- centered 0
- end
- add(4):Label2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.206 0.164 0.103
- bool 1 1 0 0 0 0
- text Label2
- font Arial1
- centered 0
- end
- add(4):Label3
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.358 0.164 0.107
- bool 1 1 0 0 0 0
- text Label3
- font Arial1
- centered 0
- end
- add(4):Label4
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.514 0.164 0.103
- bool 1 1 0 0 0 0
- text Label4
- font Arial1
- centered 0
- end
- add(5):Edit2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.270 0.206 0.676 0.103
- bool 1 1 0 0 0 0
- texture ui_edit
- text Edit2
- font Arial1
- maxlength 64
- centered 0
- end
- add(5):Edit3
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.270 0.358 0.676 0.107
- bool 1 1 0 0 0 0
- texture ui_edit
- text Edit3
- font Arial1
- maxlength 64
- centered 0
- end
- add(5):Edit4
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.270 0.510 0.676 0.107
- bool 1 1 0 0 0 0
- texture ui_edit
- text Last value
- font Arial1
- maxlength 64
- centered 0
- end
- add(3):Button1
- begin
- rgba 0.502 1.000 1.000 1.000
- size 0.055 0.844 0.406 0.107
- bool 1 1 0 0 0 0
- texture ui_button
- text Action 1
- font Arial1
- end
- add(3):Button2
- begin
- rgba 1.000 1.000 0.502 0.530
- size 0.512 0.844 0.434 0.107
- bool 1 1 0 0 0 0
- texture ui_button
- text Do something
- font Arial1
- end
- add(2):Panel2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.390 0.012 0.602 0.976
- bool 1 1 0 0 0 0
- texture ui_panel
- end
- 5
- add(6):List1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.580 0.076 0.386 0.424
- bool 1 1 0 0 0 0
- texture ui_list
- font Arial1
- itemindex 0
- centered 0
- strings
- n:=n-32;
- tx:=(n mod 16)*sx*d1+d1;
- ty:=(n div 16)*sy*d1;
- glTexCoord2f(tx,ty);
- glVertex2f(x1,y1);
- glTexCoord2f(tx,ty+(sy-1)*d1);
- glVertex2i(x1,y1+sy-1);
- glTexCoord2f(tx+cw*d1,ty+(sy-1)*d1);
- glVertex2i(x1+cw,y1+sy-1);
- glTexCoord2f(tx+cw*d1,ty);
- glVertex2i(x1+cw,y1);inc(x1,cw);
- ¤end¤
- end
- add(2):Panel1
- begin
- rgba 0.890 0.894 0.949 1.000
- size 0.031 0.539 0.935 0.438
- bool 1 1 0 0 0 0
- texture ui_panel
- end
- 12
- add(3):Button1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 14.000 13.000 105.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text First
- font Arial1
- end
- add(3):Button2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 131.000 13.000 111.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button2
- font Arial1
- end
- add(3):Button3
- begin
- rgba 1.000 1.000 1.000 1.000
- size 255.000 13.000 118.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button3
- font Arial1
- end
- add(3):Button4
- begin
- rgba 0.643 0.875 0.725 1.000
- size 14.000 62.000 105.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button4
- font Arial1
- end
- add(3):Button5
- begin
- rgba 1.000 1.000 1.000 1.000
- size 131.000 62.000 111.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button5
- font Arial1
- end
- add(3):Button6
- begin
- rgba 0.471 0.490 0.745 0.430
- size 255.000 62.000 118.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button6
- font Arial1
- end
- add(3):Button7
- begin
- rgba 1.000 1.000 1.000 1.000
- size 14.000 112.000 105.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button7
- font Arial1
- end
- add(3):Button8
- begin
- rgba 1.000 1.000 1.000 1.000
- size 131.000 112.000 111.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button8
- font Arial1
- end
- add(3):Button9
- begin
- rgba 1.000 1.000 1.000 1.000
- size 255.000 112.000 118.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button9
- font Arial1
- end
- add(3):Button10
- begin
- rgba 1.000 1.000 1.000 1.000
- size 14.000 162.000 105.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button10
- font Arial1
- end
- add(3):Button11
- begin
- rgba 1.000 1.000 1.000 0.190
- size 131.000 162.000 111.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Button11
- font Arial1
- end
- add(3):Button12
- begin
- rgba 1.000 1.000 1.000 1.000
- size 255.000 162.000 118.000 32.000
- bool 1 1 1 1 0 0
- texture ui_button
- text Last
- font Arial1
- end
- add(4):Label1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.031 0.025 0.519 0.041
- bool 1 1 0 0 0 0
- text Memo
- font Arial1
- centered 1
- end
- add(8):Memo1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.031 0.078 0.519 0.422
- bool 1 1 0 0 0 0
- texture ui_list
- font Arial1
- wrap 1
- strings
- procedure TGLFont.Draw(x, y:
- single; s: string; maxW: integ
- er);
- var i,cw,n,x1,y1,wLimit: intege
- r; d1,tx,ty: single;
- begin
- s:=UTF8toSys(s); wLimit:=0;
- d1:=1/TexSize; x1:=round(x);
- y1:=round(y);
- glBegin(GL_QUADS);
- for i:=1 to length(s) do begin
- n:=byte(s[i]); cw:=charW[n
- ];
- if maxW>0 then begin
- wLimit:=wLimit+cw;
- if wLimit>maxW then bre
- ak;
- end;
- n:=n-32; tx:=(n mod 16)*s
- x*d1+d1; ty:=(n div 16)*sy*d1;
- glTexCoord2f(tx,ty); glVert
- ex2f(x1,y1);
- glTexCoord2f(tx,ty+(sy-1)*
- d1); glVertex2i(x1,y1+sy-1);
- glTexCoord2f(tx+cw*d1,ty
- +(sy-1)*d1); glVertex2i(x1+cw,
- y1+sy-1);
- glTexCoord2f(tx+cw*d1,ty)
- ; glVertex2i(x1+cw,y1);
- x1:=x1+cw;
- end;
- glEnd;
- end;
- ¤end¤
- end
- add(4):Label2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.580 0.025 0.386 0.041
- bool 1 1 0 0 0 0
- text List
- font Arial1
- centered 1
- end
- add(2):Panel3
- begin
- rgba 1.000 1.000 1.000 0.720
- size 0.009 0.512 0.372 0.476
- bool 1 1 0 0 0 0
- texture ui_panel
- end
- 4
- add(10):CheckBox1
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.051 0.328 0.084
- bool 1 1 0 0 0 0
- texture ui_checkbox
- text Option 1
- font Arial1
- checked 1
- group 0
- end
- add(10):CheckBox2
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.181 0.328 0.084
- bool 1 1 0 0 0 0
- texture ui_checkbox
- text Option 2
- font Arial1
- checked 0
- group 0
- end
- add(9):ScrollBar1
- begin
- rgba 1.000 1.000 1.000 0.810
- size 0.457 0.051 0.488 0.084
- bool 1 1 0 0 0 0
- max 100
- position 0
- end
- add(10):CheckBox3
- begin
- rgba 1.000 1.000 1.000 1.000
- size 0.055 0.316 0.328 0.080
- bool 1 1 0 0 0 0
- texture ui_checkbox
- text Option 3
- font Arial1
- checked 0
- group 0
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement