Google Chrome style tabs on glass w Delphi

Nie chcesz pełnego szklanego okna, ale będziesz musiał narysować zakładki samodzielnie, ponieważ nie ma kontroli, której jestem świadomy, która da ci dokładny wygląd, którego szukasz. Jeśli używasz właściwości GlassFrame bieżącego formularza, włącz go i ustaw górę na wysokość, którą chcesz dla kart, upuść paintbox na tym obszarze i użyj wywołań GDI+, aby ręcznie narysować karty. Dobra biblioteka, która powinna działać w tym celu, jest dostępna w EDN ( http://cc.embarcadero.com/Download.aspx?id=26950). bez użycia GDI+ będziesz mógł rysować na pudełku, ale czarny stanie się przezroczysty. Dzięki GDI+ możesz dowolnie rysować na szkle w dowolnym kolorze. Na przykład:

Źródło:

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GdiPlusHelpers, GdiPlus, StdCtrls, ExtCtrls;

type
  TForm6 = class(TForm)
    pb1: TPaintBox;
    procedure pb1Paint(Sender: TObject);
  private
    { Private declarations }
   public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.pb1Paint(Sender: TObject);
var
  Graphics : IGPGraphics;
  Brush: IGPSolidBrush;
  FontFamily: IGPFontFamily;
  Font: IGPFont;
  Point: TGPPointF;
  Pen: IGPPen;
begin
  Graphics := Pb1.ToGPGraphics;
  Brush := TGPSolidBrush.Create(TGPColor.Create(255, 0, 0, 0));
  FontFamily := TGPFontFamily.Create('Consolas');
  Font := TGPFont.Create(FontFamily, 12, FontStyleRegular, UnitPoint);
  Point.Initialize(1, 0);
  Graphics.TextRenderingHint := TextRenderingHintAntiAlias;
  Graphics.DrawString('GDI+ Black Text', Font, Point, Brush);
  Pen := TGPPen.Create(TGPColor.Create(255, 0, 0, 0));
  Graphics.DrawLine(Pen, 0, 0, 200, 100);
end;

end.

Forma:

object Form6: TForm6
  Left = 0
  Top = 0
  Caption = 'Form6'
  ClientHeight = 282
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  GlassFrame.Enabled = True
  GlassFrame.Top = 22
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pb1: TPaintBox
    Left = 0
    Top = 0
    Width = 313
    Height = 105
    OnPaint = pb1Paint
  end
end

Edytuj Zaktualizowano do anty-aliasu tekst, aby wyglądał lepiej.