iconify.pp 886 B

12345678910111213141516171819202122232425262728293031323334353637
  1. Program iconify;
  2. Uses x,forms;
  3. {$i crab.xpm}
  4. function create_form_form : PFL_FORM;
  5. var
  6. obj : PFL_OBJECT;
  7. form : PFL_FORM;
  8. begin
  9. new(form);
  10. form := fl_bgn_form(FL_NO_BOX,151,111);
  11. obj := fl_add_pixmapbutton(FL_NORMAL_BUTTON,0,0,151,111,
  12. 'Iconify Me\nvia Window Manager');
  13. fl_set_object_lalign(obj, FL_ALIGN_BOTTOM or FL_ALIGN_INSIDE);
  14. fl_set_object_lstyle(obj,FL_BOLD_STYLE);
  15. fl_set_pixmapbutton_data(obj, crab45);
  16. fl_end_form;
  17. create_form_form:=form;
  18. end;
  19. Var form0 : PFL_FORM;
  20. mask,p : TPixmap;
  21. H,W : word;
  22. begin
  23. fl_initialize(@argc, argv, 'FormDemo', nil, 0);
  24. form0 := create_form_form;
  25. p := fl_read_pixmapfile(fl_root, 'crab.xpm', Pword(@w), pword(@h), PPixmap(@mask), nil, nil, 0);
  26. fl_set_form_icon(form0, p, mask);
  27. fl_show_form(form0,FL_PLACE_CENTER,FL_FULLBORDER, 'IconTest');
  28. fl_do_forms();
  29. end.