Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Nov 2018
Hi zusammen
Nachdem ich die Wertzuweisungen an Left & Co wieder zurückgestellt habe (inkusive des Bereichs 0 bis 4) sieht das ganze so aus:
procedure TRSPdfFrame.PdfViewCreate;
var i, iCount, iLeft, iHeight,
iTop, iWidth : Integer;
begin
if FPdfList.Count = 0 then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Nov 2018
Hi zusammen
Nachdem ich die Wertzuweisungen an Left & Co wieder zurückgestellt habe (inkusive des Bereichs 0 bis 4) sieht das ganze so aus:
procedure TRSPdfFrame.PdfViewCreate;
var i, iCount, iLeft, iHeight,
iTop, iWidth : Integer;
begin
if FPdfList.Count = 0 then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Nov 2018
Hi zusammen
Ich hab nun Delphi.Nariums Vorschlag mal umgesetzt. Allerdings habe ich lange nach einer Möglichkeit gesucht, die VertScrollbars standartmässig anzuzeigen - das hier hat mir dann wohl geholfen (Beitrag 3):
procedure TRSPdfFrame.PdfViewCreate;
var i, iCount, iLeft, iHeight,
iTop, iWidth : Integer;
begin
if FPdfList.Count = 0 then
begin
iCount := 5; // Statt...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
14. Nov 2018
Hi Delphi.Narium
Vielen Dank für dein Beispiel! Ich hab das allerdings etwas anders umgesetzt. Auf der Mainform hab ich einen Buton platziert:
procedure THomeOfficerMainForm.BitBtn1Click(Sender: TObject);
begin
RSPdfContentFrame1.RSPdfFrame1.PdfViewCreate;
Edit1.Text := 'Es wurden ' + IntToStr(Self.RSPdfContentFrame1.RSPdfFrame1.PdfList.Count);
end;
Auslöser ist schlussendlich das...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
13. Nov 2018
Hi Delphi.Narium
Anfänglich rief ich die PdfCreate-Proedur aus dem Constructor des Frames auf - mit dem Resultat, das sämtlche Elemente übereinander erstellt wurden. Ist ja auch kein Wunder - zu dem Zeitpunkt gibts noch keine Form und eine Höhe eines Elements dieser Form schon gar nicht.
Ein Create oder sonst was(Activate, Show) kennt der Frame auch nicht. Wann also sollen diese...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
13. Nov 2018
Hi zusammen
Ich werde später darauf zugreifen müssen - Okay, da täte es auch das Tag-Property.
Das heisst, dass es die Kontrolle auch dann braucht, wenn die Form nur in einer einzigen Gösse angezeigt wird.
Wie ist das denn mit dem Resize? Da ist mal der Basisframe - aber braucht der ein Resize? Der wird ja nie angezeigt.
Auf der Form habe ich gerade mal eine Frameinstanz - wäre...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
13. Nov 2018
Hi Schokohase
Danke für deine schnelle Antwort!
Tja, das ist doch schon sehr speziell - wenigstens für mich im Moment:
So der Dateiinhalt, und so der aktuelle Code:
procedure TRSPdfFrame.ScrollBox1Resize(Sender: TObject);
begin
// FReportlist.Add('ScrollBox1Resiz')
FReportlist.Add('ScrollBox1Resiz ENTER');
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
13. Nov 2018
Hi zusammen
In einer Scrollbox möchte ich mehrere Instanzen eines TCustumControl-Nachfahhren platzieren. Dieses versuchen ich in einer Testanwendung so:
procedure TRSPdfFrame.PdfViewCreate;
var i: integer;
begin
for i := 0 to 4 do
begin
FPDFView := TPdfView.Create(Self);