home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS2.0 / DiskIcon.p < prev    next >
Encoding:
Text File  |  1994-08-25  |  3.0 KB  |  99 lines
  1. { Programm:  DiskIcon
  2.   ~~~~~~~~
  3.   Sprache:   MaxonPASCAL 3 / KP 2.12 / OS 2.0-Includes
  4.   ~~~~~~~~
  5.   Sinn:      Speichern von WBProjektIcon
  6.   ~~~~~      Wird das Icon (im RAM) angeklickt wird das DefaultTool
  7.              WBStartup von mir angesprochen...
  8.  
  9.   Autor:     PackMAN
  10.   ~~~~~~     c/o Falk Zühlsdorff
  11.              Lindenberg 66
  12.              D-98693 Ilmenau/Thüringen
  13.  
  14.   ©:         FREEWARE, der Autor wird in .dok / Infofenster des nicht-
  15.   ~~                   kommerziellen Programmes erwähnt. 
  16.  
  17.   Kommentar: Version für MAXON
  18.   ~~~~~~~~~~ ab OS2                                                    }
  19.  
  20. PROGRAM diskicon;
  21. USES EXEC;
  22. {$INCL 'workbench/startup.h','icon.lib'}
  23. TYPE    ifeld=array[1..48] of long;
  24. VAR dobj      : p_DiskObject;
  25.     success   : boolean;
  26.     name      : string;
  27.     Gad       : Gadget;
  28.     MyImage   : Image;
  29.     idat      : ^ifeld;
  30.  
  31. BEGIN
  32.  IconBase:=OpenLibrary('icon.library',37);
  33.  IF IconBase=NIL THEN exit;
  34.  idat:=ptr(alloc_mem(sizeof(ifeld),2)); {Chip}
  35.    idat^:=ifeld(
  36.  %000000000000000000000000000000,
  37.  %000001111111111111111111111110,
  38.  %000110100000000000000000000010,
  39.  %011000100000000000000000000010,
  40.  %100000100000000000000000000010,
  41.  %111111100000000000000000000010,
  42.  %100000000000000000000000000010,
  43.  %100000000000000000000000000010,
  44.  %101111101111100100010111110010,
  45.  %100010000100000010100001000010,
  46.  %100010000110000001000001000010,
  47.  %100010000100000010100001000010,
  48.  %100010000111100100010001000010,
  49.  %100000000000000000000000000010,
  50.  %100000000000000000000000000010,
  51.  %100000000000000000000000000010,
  52.  %100000000000000000000000000010,
  53.  %100000000000000000000000000010,
  54.  %100000000000000000000000000010,
  55.  %100000000000000000000000000010,
  56.  %100000000000000000000000000010,
  57.  %100000000000000000000000000010,
  58.  %111111111111111111111111111110,
  59.  %000000000000000000000000000000,
  60.  
  61.  %000000000000000000000000000000,
  62.  %000000000000000000000000000000,
  63.  %000001011111111111111111111100,
  64.  %000111011111111111111111111100,
  65.  %001111011111111111111111111100,
  66.  %000000011111111111111111111100,
  67.  %001111111111111111111111111100,
  68.  %001111111111111111111111111100,
  69.  %001111111111111111111111111100,
  70.  %001111111111111111111111111100,
  71.  %001111111111111111111111111100,
  72.  %001111111111111111111111111100,
  73.  %001111111111111111111111111100,
  74.  %001111111111111111111111111100,
  75.  %001111111111111111111111111100,
  76.  %001111111111111111111111111100,
  77.  %001111111111111111111111111100,
  78.  %001111111111111111111111111100,
  79.  %001111111111111111111111111100,
  80.  %001111111111111111111111111100,
  81.  %001111111111111111111111111100,
  82.  %001111111111111111111111111100,
  83.  %000000000000000000000000000000,
  84.  %000000000000000000000000000000);
  85.  
  86.  MyImage:=image(0,0,32,24,2,idat,3,0,nil);
  87.  
  88.  Gad:=Gadget(NIL,0,0,32,25,GADGIMAGE,GADGIMMEDIATE+
  89.              RELVERIFY,BOOLGADGET,^MyImage,NIL,NIL,0,NIl,0,NIL);
  90.  
  91.  dobj:=GetDefDiskObject(WBPROJECT);
  92.  dobj^.do_DefaultTool:='MaxonPASCAL3:Demos-OS2.0/WBstartup';
  93.  dobj^.do_Gadget:=Gad;
  94.  name:='ram:test';
  95.  success:=PutDiskObject(^name,dobj); {wenn success=true Icon gespeichert}
  96.  FreeDiskObject(dobj);
  97. END.
  98.  
  99.