home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / appgen / appgen.dat next >
Encoding:
INI File  |  1993-03-01  |  1.9 KB  |  64 lines
  1. [Kopf]
  2. (* ====================================================== *)
  3. (*  Programm..:                                           *)
  4. (*  Autor.....:                                           *)  
  5. (*  Zweck.....:                                           *)  
  6. (* ------------------------------------------------------ *)
  7. (* Erstellt mit APPGEN v1.0 (C) 1993 Peter Fliesges & DMV *)
  8. (* ====================================================== *)
  9.  
  10. {$A+,B-,D+,F-,G-,I+,L+,N-,R-,S+,V+,W+,X+} {Compilerschalter}
  11. {$M 8192,8192}
  12.  
  13.  
  14. [CONSTRUCTOR Init]
  15.   tWindow.Init(aParent, aTitle); (* Zuerst urspr. Methode *)
  16.  
  17.   (* Fensterstil *)
  18.   Attr.X := 20;  Attr.Y := 20;
  19.   Attr.W := 500; Attr.H := 330;
  20.   Attr.Style := Attr.Style OR ws_Caption OR ws_SysMenu
  21.                            OR ws_MinimizeBox OR ws_VScroll
  22.                            OR ws_HScroll;
  23.   (*
  24.     New(LB1, InitResource(@Self, id_LB1));    {- ListBox  -}
  25.     New(CB1, InitResource(@Self, id_CB1));    {- ComboBox -}
  26.     New(ED1, InitResource(@Self, id_ED1));    {- Editor   -}
  27.   *)
  28.  
  29. [DESTRUCTOR Done]
  30.  
  31.   tWindow.Done;          (* Zuletzt ursprⁿngliche Methode *)
  32. [FUNCTION GetClassName]
  33.   GetClassName := 'TurboWindow';
  34. [PROCEDURE GetWindowClass]
  35.   tWindow.GetWindowClass(aWndClass); (* Zuerst urspr.Meth.*)
  36.   aWndClass.hIcon := LoadIcon(hInstance, 'MyIcon');
  37.   aWndClass.Style := aWndClass.Style OR cs_DblClks;;
  38.   {sonst klappt der Doppelklick nicht}
  39.   Attr.Menu := LoadMenu(hInstance,'MenuName');
  40. [PROCEDURE SetUpWindow]
  41.   tWindow.SetUpWindow;    (* Zuerst ursprⁿngliche Methode *)
  42.   (*
  43.     BN := New(PButton, Init(@Self, id_BN, 'Ok',
  44.                             10, 10, 60, 30, True));
  45.   *)
  46.  
  47. [PROCEDURE WMKeyDown]
  48.  
  49.   CASE Msg.wParam OF
  50.  
  51.     vk_Left   : (* Cursor Left  *) ;
  52.  
  53.     vk_Right  : (* Cursor Right *) ;
  54.  
  55.     vk_Up     : (* Cursor Up    *) ;
  56.  
  57.     vk_Down   : (* Cursor Down  *) ;
  58.  
  59.     vk_Tab    : (* Tabulator    *) ;
  60.  
  61.   END;  (* CASE *)
  62.  
  63. []
  64.