← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/forms/demo/flclock.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/forms/demo/flclock.pp
1
 
{ Form definition file generated with fdesign. }
2
 
program flclock;
3
 
 
4
 
uses forms;
5
 
 
6
 
var
7
 
 fclock : PFL_FORM;
8
 
 
9
 
procedure exit_cb (ob : PFL_OBJECT; q : longint);export;
10
 
begin
11
 
   halt(0);
12
 
end;
13
 
 
14
 
procedure create_form_clock;
15
 
var
16
 
  obj : PFL_OBJECT;
17
 
 
18
 
begin
19
 
  if (fclock<>nil) then exit;
20
 
 
21
 
  fclock := fl_bgn_form(FL_NO_BOX,500,350);
22
 
  obj := fl_add_box(FL_UP_BOX,0,0,500,350,'');
23
 
 
24
 
  obj := fl_add_clock(FL_DIGITAL_CLOCK,190,20,140,30,'');
25
 
  fl_set_object_boxtype(obj,FL_ROUNDED_BOX);
26
 
  fl_set_object_color(obj,FL_COL1,FL_BLACK);
27
 
  fl_set_object_lsize(obj,FL_MEDIUM_SIZE);
28
 
  fl_set_object_lstyle(obj,FL_BOLD_STYLE);
29
 
 
30
 
  obj := fl_add_clock(FL_ANALOG_CLOCK,30,70,220,200,'');
31
 
  fl_set_object_boxtype(obj,FL_UP_BOX);
32
 
 
33
 
  obj := fl_add_clock(FL_ANALOG_CLOCK,260,70,220,200,'');
34
 
  fl_set_object_boxtype(obj,FL_OVAL_BOX);
35
 
  obj := fl_add_button(FL_NORMAL_BUTTON,380,300,100,30,'Exit');
36
 
  fl_set_object_callback(obj, PFL_CALLBACKPTR(@exit_cb), 0);
37
 
  fl_end_form;
38
 
end;
39
 
 
40
 
begin
41
 
    fl_initialize(@argc, argv, 'FormDemo', nil, 0);
42
 
 
43
 
    create_form_clock();
44
 
    fl_set_form_dblbuffer(fclock, 1);
45
 
    fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks');
46
 
    fl_do_forms();
47
 
end.