Hi,

wie mach ich das. OwnerDraw und PageControlDrawTab. Aber was dann, ich hab hier schon gesucht aber nichts passendes gefunden ? Ein anderes Problem ist ganz einfach neue Tabs per MenüItem klick hinzuzufügen und das wird dann noch komplizierter.

Zum 2. Problem:
Zitat Delphi Hilfe:
NewTabSheet = TTabSheet.Create(PageControl1);
NewTabSheet.PageControl := PageControl1;
Zitat Ende

Zum 1. Problem
keine Ahnung

zusammenfalten · markieren

Delphi-Quellcode:

var
  aRect, bRect: TRect

{ ... }

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
const
  _clTabColors : array [0..1] of TColor = (clGray,clGray);
  _sTabCaptions : array [0..3] of string = ('tab1','tab2', 'tab3', 'tab4');
begin
  aRect := PageControl1.TabRect(PageControl1.ActivePageIndex);
  bRect := PageControl1.TabRect(PageControl1.ActivePageIndex);
  Control.Canvas.Brush.Color := _clTabColors[TabIndex];
  Control.Canvas.Rectangle(0, 0, 60, 20);
  Control.Canvas.FillRect(bRect);
  Control.Canvas.FillRect(aRect);
  Control.Canvas.TextOut(aRect.Left+5,Rect.Top+3,_sTabCaptions[TabIndex]);
end;

Das Problem ist, das in _sTabCaptions dann immer alles definiert werden muss, deshalb geht die eben vorgeschlagene Methode wahrscheinlich nicht.
Im Attachment seht ihr zwei Tabs, wie sie aussehen sollen.

Keiner eine Idee ?
Weiß keiner von euch, wie man Tabs wie in d2005 darstellt ?

Zitat von Nils_13:

Keiner eine Idee ?
Weiß keiner von euch, wie man Tabs wie in d2005 darstellt ?

warum immer das rad neu erfinden? sowas gibt's zuhauf schon fertig. zum beispiel bei den jedi-vcl...

aenogym

Zitat von Aenogym:

Zitat von Nils_13:

Keiner eine Idee ?
Weiß keiner von euch, wie man Tabs wie in d2005 darstellt ?

warum immer das rad neu erfinden? sowas gibt's zuhauf schon fertig. zum beispiel bei den jedi-vcl...

aenogym

Jedi find ich nicht so gut, wo gibts das noch ?

Torry vllt.

Zitat von Spider:

Torry vllt.

Hm da ist nichts.

Welches Package ist es denn bei jvcl ?
Ist es die JvTabBar-Unit ? Wenn ja, wie bau ich sie in mein Programm ein ?

Installier doch die Jedis (mit dem Installer), aber nur die packages, die du willst.