← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/forms/demo/sliderall.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/forms/demo/sliderall.pp
 
1
{ This demo shows the different types of sliders }
 
2
 
 
3
program sliderall;
 
4
 
 
5
uses xforms;
 
6
 
 
7
var
 
8
form : PFL_FORM;
 
9
exitobj : PFL_OBJECT;
 
10
 
 
11
procedure create_form_form;
 
12
var
 
13
  obj : PFL_OBJECT;
 
14
begin
 
15
  form := fl_bgn_form(FL_NO_BOX,780,320);
 
16
  obj := fl_add_box(FL_UP_BOX,0,0,780,320,'');
 
17
    fl_set_object_color(obj,FL_PALEGREEN,FL_COL1);
 
18
  obj := fl_add_box(FL_SHADOW_BOX,20,30,360,270,'SLIDER');
 
19
    fl_set_object_color(obj,FL_SLATEBLUE,47);
 
20
    fl_set_object_lalign(obj,FL_ALIGN_TOP);
 
21
    fl_set_object_lstyle(obj,FL_BOLD_STYLE);
 
22
  obj := fl_add_box(FL_SHADOW_BOX,390,30,370,270,'VALSLIDER');
 
23
    fl_set_object_color(obj,FL_SLATEBLUE,FL_COL1);
 
24
    fl_set_object_lalign(obj,FL_ALIGN_TOP);
 
25
    fl_set_object_lstyle(obj,FL_BOLD_STYLE);
 
26
  obj := fl_add_slider(FL_VERT_SLIDER,30,50,40,220,'vert');
 
27
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
28
  obj := fl_add_slider(FL_VERT_FILL_SLIDER,80,50,40,220,'vert_fill');
 
29
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
30
  obj := fl_add_slider(FL_HOR_SLIDER,180,50,190,40,'hor');
 
31
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
32
  obj := fl_add_slider(FL_HOR_FILL_SLIDER,180,110,190,40,'hor_fill');
 
33
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
34
  obj := fl_add_valslider(FL_VERT_NICE_SLIDER,610,50,30,220,'vert_nice');
 
35
    fl_set_object_boxtype(obj,FL_FLAT_BOX);
 
36
    fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
 
37
  obj := fl_add_valslider(FL_VERT_FILL_SLIDER,660,50,40,220,'vert_fill');
 
38
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
39
 
 
40
  obj := fl_add_valslider(FL_HOR_SLIDER,400,50,190,40,'hor');
 
41
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
42
  obj := fl_add_valslider(FL_HOR_FILL_SLIDER,400,110,190,40,'hor_fill');
 
43
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
44
  obj := fl_add_valslider(FL_HOR_BROWSER_SLIDER,400,220,190,25,'hor_browser');
 
45
  obj := fl_add_button(FL_NORMAL_BUTTON,450,260,100,30,'Exit');
 
46
    fl_set_object_color(obj,FL_INDIANRED,FL_RED);
 
47
  exitobj:=obj;
 
48
  obj := fl_add_slider(FL_VERT_NICE_SLIDER,130,50,30,220,'vert_nice');
 
49
    fl_set_object_boxtype(obj,FL_FLAT_BOX);
 
50
    fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
 
51
  obj := fl_add_slider(FL_HOR_NICE_SLIDER,180,170,190,30,'hor_nice');
 
52
    fl_set_object_boxtype(obj,FL_FLAT_BOX);
 
53
    fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
 
54
  obj := fl_add_slider(FL_HOR_BROWSER_SLIDER,180,220,190,25,'hor_browser');
 
55
  obj := fl_add_valslider(FL_HOR_NICE_SLIDER,400,170,190,30,'hor_nice');
 
56
    fl_set_object_boxtype(obj,FL_FLAT_BOX);
 
57
    fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
 
58
  obj := fl_add_valslider(FL_VERT_SLIDER,710,50,40,220,'vert');
 
59
    fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
 
60
  fl_end_form;
 
61
end;
 
62
 
 
63
 
 
64
var obj : PFL_OBJECT;
 
65
 
 
66
begin
 
67
  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
 
68
  create_form_form;
 
69
 
 
70
  fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,'All Sliders');
 
71
  repeat
 
72
   obj := fl_do_forms;
 
73
  until  (obj = exitobj);
 
74
  fl_hide_form(form);
 
75
end.