Reportbuilder Image Komponente

[AgentAS]

Hallo,

also die Bilder sind alle gleich. Hier erstmal der Code.

Delphi-Quellcode:

var
  frmFotoanlage: TfrmFotoanlage;
  Gi : integer;

implementation

{$R *.dfm}


procedure TfrmFotoanlage.FileListBoxClick(Sender: TObject);
begin
  Image.Picture.LoadFromFile(FileListBox.FileName);
end;

procedure TfrmFotoanlage.FileListBoxDblClick(Sender: TObject);
begin
  ListBox.AddItem(FileListBox.FileName,FileListBox);
end;

procedure TfrmFotoanlage.CBVorschauClick(Sender: TObject);
begin
  if CBVorschau.Checked then
  begin
    GroupBoxVorschau.Visible := True;
  end
  else
  begin
    GroupBoxVorschau.Visible := False;
  end;
end;

procedure TfrmFotoanlage.FormCreate(Sender: TObject);
begin

  frmFotoanlage.Caption := 'Fotoanlagen Ver. 1.0 --' + DateToStr(Date);

  EditText.Text := '';
  EditGANr.Text := '';

end;

procedure TfrmFotoanlage.FormShow(Sender: TObject);
begin
   EditGANr.SetFocus;
end;

procedure TfrmFotoanlage.btnDruckenClick(Sender: TObject);
begin

  if CBDruckvorschau.Checked then
  begin
    Fotoanlage.Print;
  end
  else
  begin
    Fotoanlage.DeviceType := dtScreen;
    Fotoanlage.Print;
  end;

end;

procedure TfrmFotoanlage.FotoanlagePreviewFormCreate(Sender: TObject);
begin
  Fotoanlage.PreviewForm.WindowState := wsMaximized;
end;

procedure TfrmFotoanlage.FotoanlageBeforePrint(Sender: TObject);
var i : integer;
    hPfad, hschluessel : string;
begin

  if CBMitKopf.Checked then
  begin
    ppRegionKopf.Visible := True;
  end
  else
  begin
    ppRegionKopf.Visible := False;
  end;

  if EditGANr.Text <> '' then
  begin
    ppLblGANr.Caption := 'Fotoanlage zur GutachtenNr. ' + EditGANr.Text;
  end
  else
  begin
    ppLblGANr.Caption := '';
  end;

  for Gi := 0 to ListBox.Items.Count - 1 do
  begin
    hPfad := Trim(ListBox.Items.Strings[Gi]);
    hSchluessel := QuotedStr('1');

    ADOFotoInsert.Close;
    ADOFotoInsert.SQL.Clear;

    ADOFotoInsert.SQL.Add('INSERT INTO tblFOTO(schluessel, pfad)');
    ADOFotoInsert.SQL.Add('             VALUES('+ hschluessel + ', ' + QuotedStr(hPfad) + ')');

    ADOFotoInsert.ExecSQL;
  end;

  PfadSELECT;

  while not ADOFotoSELECT.Eof do
  begin
    ppImageDetail.Picture.LoadFromFile(Trim(ADOFotoSELECT.FieldByName('pfad').AsString));
    ADOFotoSELECT.Next;
  end;

end;

procedure TfrmFotoanlage.mnuLoeschenClick(Sender: TObject);
begin
  ListBox.Items.Delete(ListBox.ItemIndex);
end;

procedure TfrmFotoanlage.PfadSELECT;
begin
  ADOFotoSELECT.Close;
  ADOFotoSELECT.SQL.Clear;

  ADOFotoSELECT.SQL.Add('SELECT * FROM tblFOTO');

  ADOFotoSELECT.Open;
end;

procedure TfrmFotoanlage.FotoDELETE;
begin
  ADOFotoDELETE.Close;
  ADOFotoDELETE.SQL.Clear;

  ADOFotoDELETE.SQL.Add('DELETE FROM tblFOTO');

  ADOFotoDELETE.ExecSQL;
end;

procedure TfrmFotoanlage.FotoanlagePreviewFormClose(Sender: TObject);
begin
  // Löscht Datenbank nach Druck
  FotoDELETE;
end;

procedure TfrmFotoanlage.pplblBildNrPrint(Sender: TObject);
begin
  pplblBildNr.Caption := 'Bild-Nr. ' + IntToStr(Gi);
end;

Gruss AS