Hallo,

ich erstelle zur Laufzeit eine StatusBar, außerdem will ich in die Statusbar eine zur Laufzeit erstelle Progressbar rein haben.
Wenn ich die Progressbar nicht in die Statusbar erstelle, dann funktioniert es, nur nicht, wenn die Progressbar in die Statusbar rein soll....

irgendwie will es nicht:

zusammenfalten · markieren

Delphi-Quellcode:

  // Statusbar erstellen
  STB_Edit[anzSQL]:=TStatusBar.Create(Sheet[anzSQL]);
  STB_Edit[anzSQL].Parent:=Sheet[anzSQL];
  with STB_Edit[anzSQL] do
  begin
    Align:=alBottom;
    Panels.Add;
    Panels[0].Text:='';
    Panels[0].Width:=200;
    Panels[0].Alignment:=taCenter;
    Panels.Add;
    Panels[1].Text:='';
    Panels[1].Width:=200;
    Panels.Add;
    Panels[2].Text:='';
  end;
  //ProgressBar in StatusBar erstellen
  STB_Edit[anzSQL].Perform(SB_GETRECT, 1, integer(@R));
  PROG_BAR[anzSQL]:=TProgressBar.Create(nil);
  PROG_BAR[anzSQL].Parent:=STB_Edit[anzSQL];
  PROG_BAR[anzSQL].BoundsRect:=r;
  with PROG_BAR[anzSQL] do
  begin
// backgroundColor:=clYellow;
    position:=0;
    Visible:=True;
  end;

Jemand ne Idee???

MfG
schuetze09

morgen,

im normalfall gehts so:

markieren

Delphi-Quellcode:

procedure TStringcode1.FormCreate(Sender: TObject);
begin
  Progressbar1.Parent := StatusBar1;
  Progressbar1.Top := 3;
  Progressbar1.Left := 1;
  Progressbar1.Height := StatusBar1.Height-4;
  Progressbar1.Width := 400;
end;

bei dir dürfte das dann so ausehen, bin mir aber grad nicht ganz sicher, wegen dem tiefen verständis deines codes:

markieren

Delphi-Quellcode:

 //ProgressBar in StatusBar erstellen
  PROG_BAR[anzSQL].Parent:=STB_Edit[anzSQL];
  PROG_BAR[anzSQL].Top := // deine brechnungs var
  PROG_BAR[anzSQL].Left := // deine brechnungs var
  PROG_BAR[anzSQL].Height := // deine brechnungs var
  PROG_BAR[anzSQL].Width := // deine brechnungs var
  with PROG_BAR[anzSQL] do
  begin
    { .... }
  end;

@Harry M.: Hallo, ja ok, dass geht. (-:

MfG
schuetze09

geht das auch etwas besser?
mir ist aufgefallen, das die größe, ect. nicht 100%-ig ist.

aus dem Grund dachte ich eigentlich, das meine Variante funktionieren müsste. Tut sie zumindest, wenn ich die Komponenten nicht zur Laufzeit erstelle.

mfg
schuetze09

Zitat von schuetze09:

mir ist aufgefallen, das die größe, ect. nicht 100%-ig ist.

Dann liegt es wohl an Deine Berechnungen für TOP, LEFT, HEIGHT, WIDTH. Versuch es mal mit Haltepunkten und Debuggen und schau ob die richtigen Werte in den Variablen stehen.

OK, jetzt geht es. Ich hatte noch im OnActivate eine Scalierung drin, die hatte die ganze Sache verzehrt...

MfG
schuetze09