Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Page Control, normales Design weg und ein Viereck hin (https://www.delphipraxis.net/57646-page-control-normales-design-weg-und-ein-viereck-hin.html)

Nils_13 27. Nov 2005 15:28

Re: Page Control, normales Design weg und ein Viereck hin
 
Zitat:

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 28. Nov 2005 20:51

Re: Page Control, normales Design weg und ein Viereck hin
 
:(

DGL-luke 28. Nov 2005 22:00

Re: Page Control, normales Design weg und ein Viereck hin
 
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 29. Nov 2005 17:59

Re: Page Control, normales Design weg und ein Viereck hin
 
Zitat:

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 29. Nov 2005 18:18

Re: Page Control, normales Design weg und ein Viereck hin
 
Zitat:

Zitat von Nils_13
Zitat:

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 29. Nov 2005 18:21

Re: Page Control, normales Design weg und ein Viereck hin
 
Zitat:

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

Was ist daran nicht gut? Wenn du das willst:

Zitat:

Zitat von DGL-luke
[...] die von sich behaupten, dass sie wie in D2005 aussehen.

Sind die Jedis perfekt. Hier mal ein Screenshot.

Nils_13 29. Nov 2005 18:29

Re: Page Control, normales Design weg und ein Viereck hin
 
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 29. Nov 2005 21:21

Re: Page Control, normales Design weg und ein Viereck hin
 
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 30. Nov 2005 17:52

Re: Page Control, normales Design weg und ein Viereck hin
 
Könnte man da nichts hinzufügen ? Es gibt ja
Delphi-Quellcode:
property Flat: Boolean read FFlat write SetFlat;
Und kann man da unter Style oder so etwas einbauen ?


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:11 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz