![]() |
Re: Page Control, normales Design weg und ein Viereck hin
Zitat:
|
Re: Page Control, normales Design weg und ein Viereck hin
:(
|
Re: Page Control, normales Design weg und ein Viereck hin
Bei
![]() ![]() für nicht kommerzielle benutzung kostenlos! :) |
Re: Page Control, normales Design weg und ein Viereck hin
Zitat:
|
Re: Page Control, normales Design weg und ein Viereck hin
Zitat:
|
Re: Page Control, normales Design weg und ein Viereck hin
Zitat:
Zitat:
![]() |
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 ? |
Re: Page Control, normales Design weg und ein Viereck hin
Sry, aber:
Delphi-Quellcode:
Was muss ich tun, damit die Tabs so aussehen, damit so so aussehen, wie sie aussehen sollen ? Der rest ist schon flat.
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. |
Re: Page Control, normales Design weg und ein Viereck hin
Könnte man da nichts hinzufügen ? Es gibt ja
Delphi-Quellcode:
Und kann man da unter Style oder so etwas einbauen ?
property Flat: Boolean read FFlat write SetFlat;
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:40 Uhr. |
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