1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure THF_VFAMI.Bildausswechseln1Click(Sender: TObject);
// Bild vom Server in Datenbank laden *************************************************************** 20.05.03
// Bildname anzeigen ******************************************************************************** 20.05.03
var
  PFAD: string;
begin
  // Bild vom Server laden und in DB ablegen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  DM_PERS.T_SYS.Locate('KURZ', 'impuls', []);
  PFAD := DM_PERS.T_SYS.FieldByName('PFAD_BILDER').AsString;
  BILD_DIALOG.InitialDir := PFAD;
  if not DM_PERS.T_HYST.Active then exit;
  if BILD_DIALOG.Execute then
  begin
    BILD.Picture.LoadFromFile(BILD_DIALOG.Filename);
    DM_PERS.T_HYST.Edit;
    (DM_PERS.T_HYST.FieldbyName('BILD') as TBlobfield).LoadFromFile(BILD_DIALOG.Filename);
    DM_PERS.T_HYST.FieldByName('BILD_FILENAME').AsString := ExtractFileName(PFAD + BILD_DIALOG.FileName);
  end;
  // Anzeige des JPEG-Filenamens unter dem Bild ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  DM_PERS.T_HYST.Post;
  DM_PERS.T_HYST.Refresh;
end;                    

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:

procedure TDM_PERS.T_HYSTAfterScroll(DataSet: TDataSet);
// Steuerung der STK Farbe und der Berechtigung der Hauptpanels ************************************* 21.05.03
begin
  with HF_VFAMI do
  try
    if PC_DETAIL.ActivePage = TabSheet4 then
    begin
      if DBEdit19.Text = '' then
      begin
        DBEdit23.Enabled := False;
        DBEdit23.Color := clBtnFace;
      end
      else
      begin
        DBEdit23.Enabled := True;
        DBEdit23.Color := clYellow;
      end;
    end;
  except
  end;
  if T_HYST.FieldByName('ZIV_1').AsBoolean = True then
  begin
    HF_VFAMI.GB_HAUPTINFORMATION_PERSON.Enabled := False;
    HF_VFAMI.Panel13.Enabled := False;
  end
  else
  begin
    ZUGANG_ABS(DataSet);
  end;
  HF_VFAMI.BILD.Picture := nil;
  HF_VFAMI.LL.Picture := nil;
  HF_VFAMI.ZEUG.Picture := nil;
  If DM_PERS.T_MBU2.Active = False then DM_PERS.T_MBU2.Active := True;    
  DM_PERS.T_MBU2.Refresh;
end;                    

1:
2:
3:
4:
5:
6:

procedure THF_VFAMI.BILDClick(Sender: TObject);
begin
  // Bild in Anzeige Laden +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  BILDNR := 1;
  HF_VFAMI.LoadJPGFromBinary((DM_PERS.T_HYST.FieldbyName('BILD') as TBlobfield));
end;                    

1:
2:

// Bei einem Netzwerkserver:
YourPicture.LoadFromFile('\\bla\bla.jpg');