Suche gutes TabControl

[EugenE]

Hey,

ich wollte fragen ob jemand eine Lazarus-Fähige TabControl Komponente kennt, die sollte das können:

- bei jedem Tab Events hinzufügen (onClick etc)
- einen close button im tab

optional:

- nen guten style ^^

falls es sowas nicht gibt, würde ich sowas versuchen zu machen ^^

Habe auch gelesen das JEDI VCL eine Komponente namens TJvTabBar hat(hatte?), diese wurde damals auf lazarus portiert ( http://www.lazarus.freepascal.org/index ... pic&p=6073" onclick="window.open(this.href);return false; ) doch die webseite gibts nich mehr , im jedi vcl paket ist diese komponente nicht dabei

[pluto]

Ich habe ein Close button gesehen bei einer Klasse. Schau dir doch mal folgende an:
TabControl
PageControl
NoteBook
da war aufjedenfall ein Close Button dabei. Wo genau kann ich leider im Moment auch nicht sagen.

[theo]

doch die webseite gibts nich mehr , im jedi vcl paket ist diese komponente nicht dabei

Die Delphi Sourcen sind schon noch da:
http://jvcl.svn.sourceforge.net/viewvc/ ... iew=markup" onclick="window.open(this.href);return false;

[EugenE]

Der Close Button ist nicht unter Windows dabei auf wenn dieser auf True gestellt ist

@theo: Danke mal sehn ob man es mit paar codezeilen auf lazarus fähig machen kann ^^

[pluto]

Dann ist das wohl noch ein BUG. Ich habe auch nur eine Eigenschaft gesehen.
Ich frage mich ob in ein PageControll einfach nur Panels verwaltet werde.

[EugenE]

Habe die meisten Fehler in den JVCL Units für JvTabBar beseitigen können aber bei diesem habe ich keinen plan

Code: Alles auswählen

JvThemes.pas(767,1) Fatal: Syntax error, "identifier" expected but "PROCEDURE" found

Code: Alles auswählen

type
  {$IFDEF COMPILER7_UP}
   {$IFDEF VCL}
  TThemeStyle = TControlStyle;
   {$ENDIF VCL}
   {$IFDEF VisualCLX}
  TThemeStyle = set of (csNeedsBorderPaint, csParentBackground);
   {$ENDIF VisualCLX}
  {$ELSE}
  TThemeStyle = set of (csNeedsBorderPaint, csParentBackground);
  {$ENDIF COMPILER7_UP}
 
{
  Instead of the ControlStyle property you should use the following functions:
 
    ControlStyle := ControlStyle + [csXxx]; -> IncludeThemeStyle(Self, [csXxx]);
    ControlStyle := ControlStyle - [csXxx]; -> ExcludeThemeStyle(Self, [csXxx]);
    if csXxx in ControlStyle then           -> if csXxx in GetThemeStyle(Self) then
}
procedure IncludeThemeStyle(Control: TControl; Style: TThemeStyle); //hier ist der fehler
procedure ExcludeThemeStyle(Control: TControl; Style: TThemeStyle);
function GetThemeStyle(Control: TControl): TThemeStyle;

Offtopic:
Btw, habe grade das gefunden http://wiki.lazarus.freepascal.org/TJvNavigationPane" onclick="window.open(this.href);return false; vllt wird das ja auch mal released denke mal die Komponente braucht auch die JvThemes^^

[pluto]

In dein Code Beispiel kann ich kein Fehler so finden. Aber diese Fehler Meldung kommt nach meiner Erfahrung z.b. wenn du ein End Vergessen hast irgendwo oder implementation oder sowas vergessen. Da der Fehler ja am Anfang
kommt. Steht da auch irgendwo das Wort unit ?