unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls;type  TForm1 = class(TForm)    TrackBar1: TTrackBar;    procedure FormPaint(Sender: TObject);    procedure ListBox1Click(Sender: TObject);    procedure TrackBar1Change(Sender: TObject);    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI;procedure TForm1.FormCreate(Sender: TObject);begin  TrackBar1.ShowSelRange := False;  TrackBar1.Height := 20;  TrackBar1.Min := 0;  TrackBar1.Max := 100;  TrackBar1.Position := TrackBar1.Max;end;procedure TForm1.FormPaint(Sender: TObject);const  PtArr: array[0..2] of TGPPoint = ((X:90;Y:80), (X:240;Y:30), (X:240;Y:80));var  g: TGPGraphics;  p: TGPPen;begin  g := TGPGraphics.Create(Canvas.Handle);  p := TGPPen.Create(aclSeaGreen, 28);  p.SetMiterLimit(TrackBar1.Position / 10);  g.DrawPolygon(p, PGPPoint(@PtArr), Length(PtArr));  p.Free;  g.Free;end;procedure TForm1.ListBox1Click(Sender: TObject);begin  Repaint;end;procedure TForm1.TrackBar1Change(Sender: TObject);begin  Repaint;end;end.

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 138  ClientWidth = 266  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  Position = poDesktopCenter  OnCreate = FormCreate  OnPaint = FormPaint  PixelsPerInch = 96  TextHeight = 13  object TrackBar1: TTrackBar    Left = 2    Top = 112    Width = 261    Height = 45    TabOrder = 0    OnChange = TrackBar1Change  endend