home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PSGUI130.ZIP / TESTPGUI.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1993-01-01  |  5.3 KB  |  201 lines
  1. Program TestPGUI;
  2.  
  3. {$M 8192,0,655360}
  4. {$F+}
  5. Uses CRT,PGUI,Graph,KeyDef,Strings;
  6.  
  7. Function DetectSVGA:Integer;
  8. Begin
  9.   DetectSVGA:=3;
  10. End;
  11.  
  12. Var
  13.   NewBGIM  :BGIMouseShapePtr;
  14.   Main,
  15.   W        :GraphicWindow;
  16.   C        :Char;
  17.  
  18.   EndVal,
  19.   NewVal,
  20.   Dummy,
  21.   X,Y      :Word;
  22.   MB       :Byte;
  23.   Held,
  24.   Doubled,
  25.   Special  :Boolean;
  26.   Key      :Char;
  27.   Check    :Char;
  28.   Strg     :String;
  29.  
  30.   gd,gm    :Integer;
  31.  
  32. Begin
  33.   InitVGA('D:\TP\BGI');
  34. {  gd:=InstallUserDriver('SVGA16',@DetectSVGA);}  {Super VGA Driver Required}
  35.   If GraphResult<>grOk Then
  36.   Begin
  37.     WriteLn('Error');
  38.     Halt;
  39.   End;
  40.   gd:=Detect;
  41.   gm:=0;
  42.   InitGraph(gd,gm,'D:\TP\SVGA');
  43.   Main.Open(200,200,400,440,Blue,Black,3,EmptyFill,Black,False);
  44.   Main.NewHeading('Main Window',CentreText,White,InterleaveFill,Green);
  45.  
  46.   W.Open(50,50,190,150,Red,Black,2,EmptyFill,Black,True);
  47.   W.NewHeading('Zoom',CentreText,Yellow,CloseDotFill,LightGray);
  48.   W.CloseIcon(True);
  49.   W.HeadingIcon(True);
  50.   W.VertSlideBar(0,3,1,7);
  51.   W.HorzSlideBar(0,3,1,7);
  52.   W.HorzSlideIcon(True);
  53.   W.VertSlideIcon(True);
  54.   Mouse.Init(True);
  55.   InstallBGIMouse(NIL);
  56.   New(NewBGIM);
  57.   NewBGIM^.Picture:=IconBGIMouseCursorC;
  58.   NewBGIM^.Mask:=IconBGIMouseMaskC;
  59.   NewBGIM^.XHot:=-15;
  60.   NewBGIM^.YHot:=-15;
  61.   Mouse.SetShape(NewBGIM);
  62.   Mouse.Show;
  63. {  CommentWindow(150,200,'The Pure Power GUI, Revision 1.30');}
  64.  
  65.   SetFillStyle(SolidFill,1);
  66.   Mouse.Hide;
  67.   W.Lock;
  68.   Bar(30,30,100,70);
  69.   W.UnLock;
  70.  
  71.   Main.Lock;
  72.  
  73.   SetFillStyle(SolidFill,1);
  74.   Bar(30,50,50,70);
  75.   SetFillStyle(SolidFill,5);
  76.   Bar(70,50,90,70);
  77.   SetFillStyle(SolidFill,9);
  78.   Bar(110,50,130,70);
  79.   SetFillStyle(SolidFill,13);
  80.   Bar(150,50,170,70);
  81.  
  82.   SetFillStyle(SolidFill,2);
  83.   Bar(30,90,50,110);
  84.   SetFillStyle(SolidFill,6);
  85.   Bar(70,90,90,110);
  86.   SetFillStyle(SolidFill,10);
  87.   Bar(110,90,130,110);
  88.   SetFillStyle(SolidFill,14);
  89.   Bar(150,90,170,110);
  90.  
  91.   SetFillStyle(SolidFill,3);
  92.   Bar(30,130,50,150);
  93.   SetFillStyle(SolidFill,7);
  94.   Bar(70,130,90,150);
  95.   SetFillStyle(SolidFill,11);
  96.   Bar(110,130,130,150);
  97.   SetFillStyle(SolidFill,1);
  98.   Bar(150,130,170,150);
  99.  
  100.   SetFillStyle(SolidFill,4);
  101.   Bar(30,170,50,190);
  102.   SetFillStyle(SolidFill,8);
  103.   Bar(70,170,90,190);
  104.   SetFillStyle(SolidFill,12);
  105.   Bar(110,170,130,190);
  106.   SetFillStyle(SolidFill,2);
  107.   Bar(150,170,170,190);
  108.  
  109.   Main.UnLock;
  110.  
  111.   Mouse.Show;
  112.  
  113.   Repeat
  114.     W.Buttons.WaitForClick(X,Y,MB,Held,Doubled,Special,Key);
  115.  
  116.     If (Special=SpecialCode(Key_Ctrl, Key_F5)) And
  117.        (Key=KeyCode(Key_Ctrl, Key_F5)) And Held Then W.Drag;
  118.  
  119.     If (Special=SpecialCode(Mouse_Only, Mouse_SlideButtonHorz)) And
  120.        (Key=KeyCode(Mouse_Only, Mouse_SlideButtonHorz)) And
  121.        Held Then W.DragHorzSlideButton;
  122.  
  123.     If (Special=SpecialCode(Mouse_Only, Mouse_SlideButtonVert)) And
  124.        (Key=KeyCode(Mouse_Only, Mouse_SlideButtonVert)) And
  125.        Held Then W.DragVertSlideButton;
  126.  
  127.     If (Special=SpecialCode(Key_None, Key_Left)) And
  128.        (Key=KeyCode(Key_None, Key_Left)) And
  129.        (W.HSlideBarCurPos>0) Then W.UpdateHorzSlideBar(W.HSlideBarCurPos-1);
  130.  
  131.     If (Special=SpecialCode(Key_None, Key_Right)) And
  132.        (Key=KeyCode(Key_None, Key_Right)) And
  133.        (W.HSlideBarCurPos<3) Then W.UpdateHorzSlideBar(W.HSlideBarCurPos+1);
  134.  
  135.     If (Special=SpecialCode(Key_None, Key_Up)) And
  136.        (Key=KeyCode(Key_None, Key_Up)) And
  137.        (W.VSlideBarCurPos>0) Then W.UpdateVertSlideBar(W.VSlideBarCurPos-1);
  138.  
  139.     If (Special=SpecialCode(Key_None, Key_Down)) And
  140.        (Key=KeyCode(Key_None, Key_Down)) And
  141.        (W.VSlideBarCurPos<3) Then W.UpdateVertSlideBar(W.VSlideBarCurPos+1);
  142.  
  143.     If (Key=KeyCode(Mouse_Only, Mouse_SlideBarHorz)) And
  144.        (Special=SpecialCode(Mouse_Only, Mouse_SlideBarHorz)) Then
  145.     Begin
  146.       W.HorzSlideBarPos(NewVal,Dummy,EndVal,Dummy);
  147.       W.UpdateHorzSlideBar(
  148.                            AdjustMeter(NewVal,EndVal,X,0,3)
  149.                           );
  150.     End;
  151.  
  152.     If (Key=KeyCode(Mouse_Only, Mouse_SlideBarVert)) And
  153.        (Special=SpecialCode(Mouse_Only, Mouse_SlideBarVert)) Then
  154.     Begin
  155.       W.VertSlideBarPos(Dummy,NewVal,Dummy,EndVal);
  156.       W.UpdateVertSlideBar(
  157.                            AdjustMeter(NewVal,EndVal,Y,0,3)
  158.                           );
  159.     End;
  160.  
  161.     Case W.HSlideBarCurPos Of
  162.       0:Case W.VSlideBarCurPos Of
  163.           0:SetFillStyle(SolidFill,1);
  164.           1:SetFillStyle(SolidFill,2);
  165.           2:SetFillStyle(SolidFill,3);
  166.           3:SetFillStyle(SolidFill,4);
  167.         End;
  168.       1:Case W.VSlideBarCurPos Of
  169.           0:SetFillStyle(SolidFill,5);
  170.           1:SetFillStyle(SolidFill,6);
  171.           2:SetFillStyle(SolidFill,7);
  172.           3:SetFillStyle(SolidFill,8);
  173.         End;
  174.       2:Case W.VSlideBarCurPos Of
  175.           0:SetFillStyle(SolidFill,9);
  176.           1:SetFillStyle(SolidFill,10);
  177.           2:SetFillStyle(SolidFill,11);
  178.           3:SetFillStyle(SolidFill,12);
  179.         End;
  180.       3:Case W.VSlideBarCurPos Of
  181.           0:SetFillStyle(SolidFill,13);
  182.           1:SetFillStyle(SolidFill,14);
  183.           2:SetFillStyle(SolidFill,1);
  184.           3:SetFillStyle(SolidFill,2);
  185.         End;
  186.     End;
  187.     Mouse.Hide;
  188.     W.Lock;
  189.     Bar(30,30,100,70);
  190.     W.UnLock;
  191.     Mouse.Show;
  192.   Until W.Buttons.Number=W.CloseButtonNum;
  193.  
  194. {  Strg:='';
  195.   SetColor(White);
  196.   EditString(60,76,14,False,Strg);}
  197.   W.Close;
  198.   Main.Close;
  199.   CloseGraph;
  200. End.
  201.