德爾福：問題與GDI +＆梯度框架/矩形

Question

Delphi XE2。有一個表格&。

窗體和框架是doublebuffered。 GlassFrame已啓用。

我畫框的背景，並嘗試繪製一個右對齊的矩形，但有錯誤。尤其是我在調整大小時出現了錯誤。

矩形不希望從透明度正常繪製到不透明的黑色。

uses ...GDIPAPI, GDIPOBJ... 
type 
    TFrame2 = class(TFrame) 
    procedure PaintWindow(DC: HDC); override; 

    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

implementation 
{$R *.dfm} 

procedure TFrame2.PaintWindow(DC: HDC); 
var 
    R: TGPRect; 
    pen: TGPPen; 
    Graphics: TGPGraphics; 
    linGrBrush: TGPLinearGradientBrush; 
begin 
    R.X := 0; 
    R.Y := 0; 
    R.Width := self.Width; 
    R.Height := self.Height; 

    Graphics := TGPGraphics.Create(DC); 

    linGrBrush := TGPLinearGradientBrush.Create(R, MakeColor(255, 120, 248, 253), 
    MakeColor(255, 200, 216, 250), LinearGradientModeVertical); 

    Graphics.FillRectangle(linGrBrush, 0, 0, R.Width, R.Height); 
    linGrBrush.Free; 

    linGrBrush := TGPLinearGradientBrush.Create(MakePoint(0, 0), 
MakePoint(189, 2), MakeColor(0, 0, 0, 0), MakeColor(255, 0, 0, 0)); 

    Graphics.FillRectangle(linGrBrush, R.Width - 189, 79, 189, 2); 

    linGrBrush.Free; 
    Graphics.Free; 
end; 

請幫我從透明度通常繪製漸變框架上的一個矩形不透明黑色。

Answer 1

更改如下所示的代碼將繪製從透明到黑色不透明的右對齊細線。

linGrBrush := TGPLinearGradientBrush.Create( 
    MakePoint(R.Width-189,0), MakePoint(R.Width,2), 
    MakeColor(0, 0, 0, 0), 
    MakeColor(255, 0, 0, 0)); 
Pen := TGPPen.Create(linGrBrush,3); 
Graphics.DrawLine(Pen,R.Width-189,79,R.Width,79); 
InvalidateRect(Handle,Rect(0,0,R.Width,R.Height),False); 

更新，使用InvalidateRect整個區域迫使幀的總重繪。 否則重畫可能會以奇怪的方式剪裁。 這將解決你的顏色變化效果。

但是GlassFrame缺陷是用下面的最後兩張圖片來說明的。 TFrame的外部框架在頂部和頂部不正確可見。

當GlassFrame被啓用（左）顯示TFRAME的功能障礙。 正確的圖片顯示一個完整的黑色框架（儘管在這張圖片中右側被壓縮裁剪），GlassFrame被禁用。

更新2：

啓用SheetOfGlass，一切似乎確定。

更新3：

的GlassFrame頂部屬性設置爲40，並造成周圍的框架奇怪的邊界效應。將其設置爲0可解決此問題。