{slide=Fächer farbig markieren}

Wie kann man in einem Report die Fächer unterschiedlich farbig markieren?

• Zunächst erstellt man wie gewohnt ein Formular, in dem z. B. im Subreport “Klassenlehrer_mit_Faechern die Fächer aufgerufen werden. (im Bsp: DataField “FachKrz”).
• Im Reiter “Berechnungen” schaltet man über das Menü auf “Ansicht > Verwendete Module” und wählt unter “Deklarationen” den Eintrag “Constants”. (Achtung: Es muss das Blatt “Hauptbericht” ausgewählt sein!)
• Unter dem Eintrag “const” definiert man nun die gewünschten Farben. Im folgenden sind alle in LuPO verwendeten Fächerfarben defininert:
  clDeutsch = 14281213;
  clSprachen = 12836349;
  clKuMu = 10865916;
  clLi = 8764154;
  clGW = 14610922;
  clRU = 12379351;
  clM = 15849925;
  clNW = 14922893;
  clSp = 16777215;
  clVX = 14211288;
  clPX = 12566463;    
  Wenn man den Farbcode einer Farbe herausfinden möchte, kann man die Freeware ColorPicker verwenden: Man zieht aus dem Programm den Cursor über die gewünschte Bildschirmfarbe und kann den 8-stelligen Code im Porgrammfenster ablesen.
• Über “Ansicht > Ereignisse” kann man nun (im Subreport) das Datenfeld auswählen und im Ereignis “OnGetText” den passenden Code eingeben:
  vor “begin” einfügen:
  var
  Fach:string;
  nach “begin” einfügen:
  Fach:=Text;
  If (Fach = ‘D’)
          then DTB_Fach.Color := clDeutsch
  Else If (Fach = ‘E5’) or (Fach = ‘F6’) OR (Fach = ‘F0’) OR (Fach = ‘L6’) OR (Fach = ‘L0’) OR (Fach = ‘S0’) OR (Fach = ‘C0’)  
          then DTB_Fach.Color := clSprachen
  Else If (Fach = ‘KU’) or (Fach = ‘MU’)
          then DTB_Fach.Color := clKuMu
  Else If (Fach = ‘LI’)
          then DTB_Fach.Color := clLi
  Else If (Fach = ‘EK’) OR (Fach = ‘PÄ’) OR (Fach = ‘PA’) OR (Fach = ‘GE’) OR (Fach = ‘SW’) OR (Fach = ‘PL’) OR (Fach = ‘GEZ’) OR (Fach = ‘SWZ’)
          then DTB_Fach.Color := clGW
  Else If (Fach = ‘KR’) or (Fach = ‘ER’)
          then DTB_Fach.Color := clRU
  Else If Fach = ‘M’
          then DTB_Fach.Color := clAqua
  Else If (Fach = ‘BI’) or (Fach = ‘PH’) or (Fach = ‘CH’) OR (Fach = ‘IF’)   
          then DTB_Fach.Color := clNW
  Else If Fach = ‘SP’
          then DTB_Fach.Color := clSp
  Else If (Fach = ‘VXD’) OR (Fach = ‘VXE’) OR (Fach = ‘VXM’)  
          then DTB_Fach.Color := clVX
  Else If (Fach = ‘PXB’) OR (Fach = ‘PXK’) OR (Fach = ‘PXE’)
          then DTB_Fach.Color := clPX
  Else DTB_Fach.Color := clWindow;
  Falls die Farbe noch nicht angezeigt wird, muss evtl. bei den Eigenschaften des Datenfeldes unter “Appearance” die Eigenschaft “Transparent” deaktiviert werden.
• Wer möchte, dass der Benutzer vor dem Druck wählen kann, ob Farben verwendet werden sollen, ergänzt den Report folgendermaßen:
  • globale Variable “Farbe:integer;” definieren (unter “Ansicht > Verwendete Module”: Variables
  • Im Ereignis “ReportBeforePrint” die Abfrage “Farbe:=SelectOption(‘Mit Farbe ausgeben?’, ‘nein|ja’, ‘|’);” einfügen.
  • vor dem oben beschriebenen Code des Datenfeldes (also vorFach:=Text;) einfügen
    if Farbe=1 then
     begin
    und danach
    end;

{/slide}