1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

procedure TDM_PERS.T_HYSTAfterScroll(DataSet: TDataSet);
// Steuerung der STK Farbe und der Berechtigung der Hauptpanels ******* 21.05.03
begin
  If (HF_VFAMI.RG_PRAES.ItemIndex = 0) OR (HF_VFAMI.RG_PRAES.ItemIndex = 1)Then
    Begin
      // PageControl2 wechseln (analog wie GB_DETAIL_PERSONAL) +++++++++++++++++
      If T_HYST.FieldByName('FEST_ANGESTELLT').AsBoolean = True Then
        Begin
          HF_VFAMI.TabSheet5.Visible := False;
          HF_VFAMI.TabSheet6.Visible := False;
          HF_VFAMI.TabSheet7.Visible := False;
          HF_VFAMI.TabSheet8.Visible := False;
          HF_VFAMI.TabSheet9.Visible := False;
        End
      Else
        Begin
          HF_VFAMI.TabSheet5.Visible := True;
          HF_VFAMI.TabSheet6.Visible := True;
          HF_VFAMI.TabSheet7.Visible := True;
          HF_VFAMI.TabSheet8.Visible := True;
          HF_VFAMI.TabSheet9.Visible := True;
        End;
      // Stempelkartennummer Farbe wechseln ++++++++++++++++++++++++++++++++++++
      If T_PERS.FieldByName('Geschlecht').AsString = 'M' Then
        Begin
          HF_VFAMI.DBEdit10.Font.Color := clNavy;
        End
      Else
        Begin
          HF_VFAMI.DBEdit10.Font.Color := clRed;
        End;
      // Button Bild holen +++++++++++++++++++++++++++++++++++++++++++++++++++++
      If T_HYST.FieldByName('BILD_FILENAME').AsString = '' Then
        Begin
          HF_VFAMI.SB_BILD_HOLEN.Visible := True;
        End
      Else
        Begin
          HF_VFAMI.SB_BILD_HOLEN.Visible := False;
        End;
      // Anzeige des JPEG-Filenamens unter dem Bild ++++++++++++++++++++++++++++
      HF_VFAMI.Edit9.Text := T_HYST.FieldByName('BILD_FILENAME').AsString;
  End;
  With HF_VFAMI Do
    Try
      If PageControl2.ActivePage = TabSheet4 Then
        Begin
          If DBEdit19.Text = '' Then
            Begin
              DBEdit23.Visible := False;
              DBEdit20.Visible := False;
              Label20.Visible  := False;
            End
          Else
            Begin
              DBEdit23.Visible := True;
              DBEdit20.Visible := True;
              Label20.Visible  := True;
            End;
        End;
    Except
    End;
  // Bild in Anzeige Laden +++++++++++++++++++++++++++++++++++++++++++++++++++++
  HF_VFAMI.LoadJPGFromBinary((T_HYST.FieldbyName('BILD')as TBlobfield));
end;