home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / kalcoms.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-28  |  2.5 KB  |  56 lines
  1. UNIT KalComs;
  2. {$D-}
  3. INTERFACE
  4.  
  5. USES Objects, Views;
  6.  
  7. CONST
  8.  
  9.   DcmUeber           = 100;     { Öffnet Copyright-Fenster                   }
  10.   DcmLadeKalender    = 101;     { Lädt Kalenderdefinition                    }
  11.   DcmEntferneKalender= 102;     { Entfernt Kalender aus Liste                }
  12.   DcmZeigeKalender   = 103;     { Zeigt Monatskalender an                    }
  13.   DcmKalInfo         = 104;     { Zeigt Kalender-Informationen an            }
  14.   DcmCalcKal         = 105;     { Öffnet Fenster für Kalenderarithmetik      }
  15.   DcmEditKalDate     = 106;     { Neues Datum einstellen                     }
  16.   DcmSaveDeskTop     = 107;     { Veranlaßt das Speichern der Oberfläche     }
  17.   DcmRetrieveDeskTop = 108;     { Stellt die Oberfläche wieder her           }
  18.  
  19.   GcmCalcDateChanged = 1000;    { Wird von den Kalender-Objekten ausgesandt, }
  20.                                 { wenn das Startdatum eines Abstands-Anzeige-}
  21.                                 { geändert wurde                             }
  22.                                 { Event.InfoPtr enthält Absender(KalenderPtr)}
  23.  
  24.   GcmChangeCalcDate  = 1001;    { Der "Datum übernehmen"-Button des Fensters }
  25.                                 { für Berechnungen sendet diesen Befehl aus  }
  26.  
  27.   GcmKalDateChanged  = 1002;    { Wird von den Kalender-Objekten ausgesandt, }
  28.                                 { wenn das eingestellte Datum geändert wurde }
  29.                                 { Event.InfoPtr enthält Absender(KalenderPtr)}
  30.  
  31.   GcmKalDeleted      = 1003;    { Wird von KalList ausgesandt, wenn ein Ka-  }
  32.                                 { lender aus der Lsite entfernt wurde        }
  33.                                 { Event.InfoPtr enthält den Kalender         }
  34.  
  35.   GcmKalFtsChanged   = 1004;    { Wird von dieser Unit nicht genutzt.        }
  36.                                 { Ist vorgesehen für den Fall, daß Sie es zu-}
  37.                                 { lassen, die Feiertage zu editieren.        }
  38.                                 { In dem Fall wird die Darstellung auf dem   }
  39.                                 { Bildschirm erneuert                        }
  40.                                 { InfoPtr enthält den geänderten Kalender    }
  41.  
  42. { Konstanten für Enable/DisableCommands }
  43.  
  44.   KalCommands   : TCommandSet = [DcmEntferneKalender, DcmZeigeKalender,
  45.                                  DcmKalInfo, DcmCalcKal];
  46.   KalWinCommands: TCommandSet = [DcmEditKalDate];
  47.  
  48.  
  49.  
  50.   { Vom Programm unterstütze Kalendarien }
  51.   SupportedKals = ['G','F','J','H','M','N'];
  52.  
  53.  
  54. IMPLEMENTATION
  55. END.
  56.