Gehirnakrobatik rund um TPageControl

[charlytango]

Seit etlichen Jahren benutze ich durchaus zur Zufriedenstellung TDINotebook als Navigations und Ordnungsoberfläche für meine Applikationen.
Das Teil ist von TExtendedNotebook abgeleitet (das wiederum TPagecontrol als Vorfahren hat), hat einige Macken aber auch viel Brauchbares.

Was aber irgendwie aus der Zeit gefallen zu sein scheint ist, dass direkt auf den Tabreitern kein "x" (bzw eine entsprechende Grafik) aufscheint mit dem man den entsprechenden Reiter schließen kann.

Ich hätte gerne neben den in TDINotebook verfügbaren Funktionen zumindest ein X bzw noch besser eine hübsche austauschbare Grafik mit einem Hover Effekt (man wird ja noch träumen dürfen) auf den Tabs.

Weil meine Fähigkeiten dafür scheinbar nicht ausreichen habe ich das Thema einigen KIs vorgeworfen (Grok, Perplexity, Claude) die mir sehr beeindruckende Codes geliefert haben indem sie auch TDINotebook erweitert haben. (also so 1500 Zeilen oder so).
Wirklich hervorragend strukturiert und auch mit entsprechenden Erklärungen.

nur....

Der Code funktioniert nicht --> das soll hier keine KI Diskussion werden.

Im Gegenteil, ich will im nahenden "Urlaub" eure brachliegenden Gehirne anzapfen, möglicherweise könnt ihr mir ja weiter helfen. Alles was dabei heraus kommt soll natürlich auch euch zur Verfügung stehen.

Scheinbar ist es nicht allzu leicht denn sonst gäbe es das schon, als Beispiel ist eine Szene aus Firefox angehängt

[af0815]

Hat nicht Lazarus selbst sowas in den Quellen, wenn ich mir den Sourceeditor ansehe!?
Sowas meinst du.

Wenn die TDINotebook gefällt, warum wechseln ? Oder brauchst du TDINotebook erweitert?

[charlytango]

Hat nicht Lazarus selbst sowas in den Quellen, wenn ich mir den Sourceeditor ansehe!?
Sowas meinst du.

Nein nicht wirklich. TPagecontrol/TExtendedNotebook kann zwar links auf dem Tabreiter ein Image einblenden, rechts auf dem Tab ein X zum Schließen gibt es nicht (zumindest kenn ich keine Komponente die das kann)
Die Browser scheinen übrigens mit gleichen Tabgrößen zu tricksen, offensichtlich ist es dann einfacher rechts im Tab etwas einzufügen.

Oder brauchst du TDINotebook erweitert?

Yep

Edit: Bin aber auch schon mit einem einfachen Beispiel zufrieden ggg

[Sieben]

Option nboShowCloseButtons bei TPageControl...?

[charlytango]

Option nboShowCloseButtons bei TPageControl...?

scheinbar nein -- unter Windows keine Änderung.

nboShowCloseButtons
Enables close buttons on each tab control page. Requires support in the native tab control for a given platform.

[af0815]

Schaut danach aus, das das von einer Betriebsystemkomponente abgeleitet ist. Jetzt ist die Frage kann die das ? Wenn nicht, dann schaut's öde aus.
Mal wieder in den Code der LCL schauen, wie das dort funktioniert.

[Sieben]

Dann hier mal ein Thread und eine Komponente, die dir vielleicht ein paar Start- oder Anhaltspunkte zum 'Selberzeichnen' liefern. Wie TCustomGrid den SortArrow auf seine Header zeichnet wäre evt auch noch ein geeigneter Anlaufpunkt.

[wp_xyz]

Die Komponente ATTabs im ATFlatControls kann das auf jeden Fall (vom OPM installierbar). Allerdings würde ich ein paar Stunden brauchen, die richtige Farbeinstellung zu finden, unter den vielen, vielen Properties, denn die Default-Parameter sind nichts nach meinem Geschmack. (https://wiki.freepascal.org/ATTabs)

Eine andere Möglichkeit wäre JvTabBar aus dem JVCL-Paket (auch im OPM: Entweder installierst du dir alles, was aber ein ziemlich Dinosaurier ist, oder du wählst im OPM nur die Packages JvCoreLazD, JvStdCtrlsLazD und JvPageCompsLazD an (ich hoffe ich habe nichts vergessen...)).

[wp_xyz]

[ sorry, versehentlicher Doppel-Post ]

[charlytango]

Ich weiss nicht ob ATTabs so ganz mein Fall ist

Eine andere Möglichkeit wäre JvTabBar aus dem JVCL-Paket

Aber JvTabBar mit der Demo JvTabBar_Pagelist ist schon eine charmante Sache, besonders wenn ein bestimmter User da auch gleich die Bildschirmskalierung eingebaut hat

Im Moment ist dann halt eine PageList und eine TabBar zu synchronisieren und dann mit den Fähigkeiten von TDINotebook zu ergänzen.
Wobei mir die Idee mit den TabBarPaintern zur Farbgebung schon sehr gefällt. So etwas würde ich mir übergreifend für alle Lazarus-Controls wünschen (frommer Wunsch)

[charlytango]

Also, ich hab mal die Demo hergenommen und habe versucht per Code einen Tab anzulegen (was gelungen ist) und in die korrespondierende Seite der zugeordneten TjvPagelist eine TForm "einzukleben" oder "einzudocken" oder auch anders zuzuordnen (woran ich kläglich gescheitert bin)

Die Logik scheint irgendwie ziemlich anders zu sein als bei TPageControl.

@af0815
Stand der Versuche liegt bei falls sich jemand darüber her machen mag;-)

[wp_xyz]

Nachdem ich den Punkt am Ende von " aForm.Parent := JvTabBar1.PageList.;" entfernt habe, läuft es...

Wenn dir die TJvPageList unheimlich ist: du kannst auch ein ganz normales Notebook als Seitencontainer nehmen. Du musst dann nur ein paar Event-Handler schreiben, um das Notebook synschron zu halten, z.B. wenn ein anderes Tab ausgewählt wird, musst man das auch im Notebook machen, usw. Bei der Pagelist ist sowas schon eingebaut.

[fliegermichl]

Man kann auch bissi basteln. (Habe ich im internationalen Forum gefunden und etwas ergänzt - FormCreate)

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
  LCLIntf, LCLType, StdCtrls;

type
  {$IFDEF WINDOWS}
  { TPageControl }
  TPageControl = class(ComCtrls.TPageControl)
  private
    const btnSize = 10;

  protected
    procedure MouseDown(Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer); override;
    procedure PaintWindow(DC: HDC); override;
  end;
  {$ENDIF}

  { TForm1 }
  TForm1 = class(TForm)
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    bmp : TBitMap;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{$IFDEF WINDOWS}
procedure TPageControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var R : TRect;
begin
  inherited MouseDown(Button, Shift, X, Y);
  if Button = mbLeft then
  begin
    R := TabRect(ActivePageIndex);
    if PtInRect(Classes.Rect(R.Right - btnSize - 4, R.Top + 2,
                             R.Right - 4, R.Top + btnSize + 2),
                Classes.Point(X, Y))
    then ActivePage.Free;
  end;
end;

procedure TPageControl.PaintWindow(DC: HDC);
var
  i : integer;
  R : TRect;
  bm : TBitmap;
begin
  inherited PaintWindow(DC);

  bm := TBitmap.Create;
  try
    bm.SetSize(16, 16);
    Images.GetBitmap(0, bm);

    for i := 0 to Pred(PageCount) do
    begin
      R := TabRect(i);
      // Код привязан к размеру ImageList-а = 16
      StretchBlt(DC, R.Right - btnSize - 4, R.Top + 2,
                 btnSize, btnSize, bm.Canvas.Handle, 0, 0, 16, 16, cmSrcCopy);
    end;
  finally
    bm.Free;
  end;
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const BtnSize = 16;
begin
  ImageList1 := TImageList.Create(Application);
  bmp := TBitmap.Create;
  bmp.Width := BtnSize;
  bmp.Height := BtnSize;
  bmp.Canvas.Brush.Color := clWhite;
  bmp.Canvas.Pen.Color := clWhite;
  bmp.Canvas.Rectangle(0, 0, BtnSize, BtnSize);
  bmp.Canvas.Pen.Color := clRed;
  bmp.Canvas.MoveTo(2, 2);
  bmp.Canvas.LineTo(BtnSize-2, BtnSize-2);
  bmp.Canvas.MoveTo(BtnSize-2, 2);
  bmp.Canvas.LineTo(2, BtnSize-2);
  ImageList1.Add(bmp, nil);
  PageControl1 := TPageControl.Create(Application);
  PageControl1.Parent := self;
  PageControl1.Align := alClient;
  TabSheet1 := PageControl1.AddTabSheet; TabSheet1.Caption := 'Seite 1   ';
  TabSheet2 := PageControl1.AddTabSheet; TabSheet2.Caption := 'TabSheet 2   ';
  TabSheet3 := PageControl1.AddTabSheet; TabSheet3.Caption := 'TabSheet 3   ';
  PageControl1.Images := ImageList1;
end;

{$ENDIF}

end.

Das sieht dann so aus:

screenshot.png (6.76 KiB) 688 mal betrachtet

[charlytango]

erstmal danke - klappt.

um das Notebook synschron zu halten,...... Bei der Pagelist ist sowas schon eingebaut.

Genau das wäre ja fein -- aber du hast recht, etwas unheimlich ist es schon, wieso ist der Parent die Liste und nicht die einzelne Seite?
Woher weiß die Liste auf welche Seite die TForm eingehängt werden soll?

[wp_xyz]

erstmal danke - klappt.

um das Notebook synschron zu halten,...... Bei der Pagelist ist sowas schon eingebaut.

Genau das wäre ja fein -- aber du hast recht, etwas unheimlich ist es schon, wieso ist der Parent die Liste und nicht die einzelne Seite?
Woher weiß die Liste auf welche Seite die TForm eingehängt werden soll?

Das wird irgendwie intern so umgelenkt, dass die akutelle Seite zum Parent der von dir erzeugten Form wird. Wenn du das nicht willst, kannst du auch eine beliebige Seite direkt angeben:

Code: Alles auswählen

  aForm.Parent := TJvPageList(JvTabBar1.PageList).Pages[1];

Der Typecast ist nötig, weil TJvTabBar die PageList lediglich als TCustomControl deklariert. Das wiederum ist eine Folge davon, dass man jede beliebige "Seiten"-Komponente für die Pages verwenden kann, sie muss nur die Routinen des IPageList-Interface implementieren. Es gibt noch ein zweites Beispiel mit einer TJvNotebookPageList, die sich vom normalen TNotebook der LCL ableitet.

Ganz schön geschickt gemacht, das ganze...