Page Control, normales Design weg und ein Viereck hin

[Nils_13]

Zitat von Spider:

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

Geht leider nicht. Ich brauch das ganze für Delphi 7, das ist aber irgendwie nicht in der Setup, ich kanns nur in Delphi 5 installieren, aber das bringt mir nichts.

[Nils_13]

[DGL-luke]

Bei www.tmssoftware.com gibts tabsheet-controls(http://www.tmssoftware.com/apc.htm), die von sich behaupten, dass sie wie in D2005 aussehen.

für nicht kommerzielle benutzung kostenlos!

[Nils_13]

Zitat von DGL-luke:

Bei www.tmssoftware.com gibts tabsheet-controls(http://www.tmssoftware.com/apc.htm), die von sich behaupten, dass sie wie in D2005 aussehen.

für nicht kommerzielle benutzung kostenlos!

Schade das sie nicht frei ist *scheiße*.

[phXql]

Zitat von Nils_13:

Zitat von DGL-luke:

Bei www.tmssoftware.com gibts tabsheet-controls(http://www.tmssoftware.com/apc.htm), die von sich behaupten, dass sie wie in D2005 aussehen.

für nicht kommerzielle benutzung kostenlos!

Schade das sie nicht frei ist *scheiße*.

willst du deine anwendung verkaufen? falls nicht, dann kannst du sie doch hernehmen...

[Matze]

Zitat von Nils_13:

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

Was ist daran nicht gut? Wenn du das willst:

Zitat von DGL-luke:

[...] die von sich behaupten, dass sie wie in D2005 aussehen.

Sind die Jedis perfekt. Hier mal ein Screenshot.

[Nils_13]

Jedi legt gleich die ganze IDE lahm, weil es verdammt viel zu laden gibt und wie gesagt, ich kann es bei Delphi 7 nicht installieren

Wie könnte ich es denn selber programmieren ?

[Nils_13]

Sry, aber:

Delphi-Quellcode:

unit FlatPageControl1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;

type
  TFlatPageControl1 = class(TPageControl)
  private
    FFlat: Boolean;
    procedure SetFlat(const Value: Boolean);
  protected
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
  public
    constructor Create(Owner: TComponent); override;
  published
    property Flat: Boolean read FFlat write SetFlat;
  end;

procedure Register;

implementation


procedure Register;
begin
  RegisterComponents('Zusätzlich', [TFlatPageControl1]);
end;


constructor TFlatPageControl1.Create(Owner: TComponent);
begin
  inherited;
  FFlat := False;
end;


procedure TFlatPageControl1.SetFlat(const Value: Boolean);
begin
  if FFlat <> Value then
  begin
    FFlat := Value;
    Repaint;
  end;
end;


procedure TFlatPageControl1.WMPaint(var Msg: TWMPaint);
var
  R: TRect;
begin
  inherited;
  if FFlat and (Style = tsTabs) and (TabPosition = tpTop) then
  begin
    R := ClientRect;
    R.Top := DisplayRect.Top - 4;
    Canvas.Pen.Color := clBtnFace;
    Canvas.Pen.Width := 3;
    Canvas.PolyLine([Point(R.Left - 1, R.Top), Point(R.Left - 1, R.Bottom)]);
    Canvas.Pen.Width := 2;
    Canvas.PolyLine([Point(R.Left, R.Bottom - 1), Point(R.Right - 1, R.Bottom - 1),
                                    Point(R.Right - 1, R.Top)]);
  end;
end;

end.

Was muss ich tun, damit die Tabs so aussehen, damit so so aussehen, wie sie aussehen sollen ? Der rest ist schon flat.

[Nils_13]

Könnte man da nichts hinzufügen ? Es gibt ja
property Flat: Boolean read FFlat write SetFlat; Und kann man da unter Style oder so etwas einbauen ?