home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / kallist.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  2.0 KB  |  67 lines
  1. UNIT KalList;
  2. {$X+,F+,O+,D-,L-,R-,B-}
  3. INTERFACE
  4.  
  5. USES Dos, Objects, KalDef;
  6.  
  7. CONST
  8.  
  9.   KalHistID = 0; { ID für PFileDialog - History - Liste              }
  10.  
  11. TYPE
  12.  
  13.   { Eine Liste, die die geladenen Kalender verwaltet. Diese brauchen }
  14.   { daher nur einmal geladen zu werden und stehen dann allen Fenstern}
  15.   { zur Verfügung                                                    }
  16.   { Der zuletzt geladene Kalender wird stets in der Variablen        }
  17.   { HAUPTKALENDER vermerkt                                           }
  18.  
  19.   PKList = ^KList;
  20.   KList = OBJECT(TCollection)
  21.     Hauptkalender: PKalender;
  22.     CONSTRUCTOR INIT;
  23.     CONSTRUCTOR Load(VAR S: TStream);
  24.     PROCEDURE PutItem(VAR S: TStream; Item: POINTER); VIRTUAL;
  25.     FUNCTION GetItem(VAR S: TStream): POINTER; VIRTUAL;
  26.  
  27.     PROCEDURE Fuege_Kalender_an(AKalender: PKalender);
  28.     PROCEDURE Entferne_Kalender(AKalender: PKalender);
  29.  
  30.     { Gibt NIL zurück, wenn K. nicht gefunden                        }
  31.     FUNCTION KalenderExists(Name: PathStr): PKalender;
  32.  
  33.   END;
  34.  
  35.   { Erfragt einen Dateinamen und lädt das Kaldendarium               }
  36.   PROCEDURE LadeKalender;
  37.  
  38.   { Lädt die angegebene Datei und gibt Zeiger auf Kalender zurück -  }
  39.   { oder NIL, wenn ein Fehler auftrat                                }
  40.   FUNCTION LoadKal(Name: PathStr): PKalender;
  41.  
  42.   { Entfernt Kalender und schließt alle dazugehörigen Fenster        }
  43.   PROCEDURE EntferneKalender;
  44.  
  45.   { Gibt einen Zeiger auf eine TStringCollection zurück, die die Na- }
  46.   { men aller geladenen Kalendarien enthält, oder NIL                }
  47.   FUNCTION MakeKalenderListe: PStringCollection;
  48.  
  49.   { Gibt einen Zeiger auf den ausgewählten Kalender zurück - oder NIL}
  50.   FUNCTION SelectKal: PKalender;
  51.  
  52.  
  53. CONST
  54.   RKalList: TStreamRec = (
  55.     ObjType: 10000;
  56.     VmtLink: Ofs(TypeOf(KList)^);
  57.     Load   : @KList.Load;
  58.     Store  : @KList.Store);
  59.  
  60.  
  61. VAR KalenderListe: PKlist;
  62.  
  63. IMPLEMENTATION
  64.  
  65. USES Views, Drivers, App, Memory, Dialogs, KalComs, StdDlg, MsgBox, KalDos,
  66.      G_Kal, F_Kal, J_Kal, H_Kal, M_Kal;
  67.