⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 skintestunit.pas

📁 skin components for design of your applicastions
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    SXSkinLabel67: TSXSkinLabel;
    SXSkinLabel68: TSXSkinLabel;
    SXSkinLabel69: TSXSkinLabel;
    SXSkinLabel70: TSXSkinLabel;
    SXSkinLabel71: TSXSkinLabel;
    SXSkinLabel72: TSXSkinLabel;
    SXSkinLabel73: TSXSkinLabel;
    SXSkinLabel74: TSXSkinLabel;
    SXSkinLabel75: TSXSkinLabel;
    SXSkinLabel76: TSXSkinLabel;
    Timer3: TTimer;
    SXSkinButton75: TSXSkinButton;
    SXSkinButton76: TSXSkinButton;
    SXSkinLabel77: TSXSkinLabel;
    SXSkinLabel78: TSXSkinLabel;
    SXSkinImage17: TSXSkinImage;
    SXSkinLabel79: TSXSkinLabel;
    SXSkinImage18: TSXSkinImage;
    SXSkinLabel80: TSXSkinLabel;
    SXSkinImage19: TSXSkinImage;
    SXSkinLabel81: TSXSkinLabel;
    SXSkinImage20: TSXSkinImage;
    SXSkinLabel82: TSXSkinLabel;
    SXSkinImage23: TSXSkinImage;
    SXSkinLabel83: TSXSkinLabel;
    SXSkinImage24: TSXSkinImage;
    SXSkinImage25: TSXSkinImage;
    SXSkinImage26: TSXSkinImage;
    SXSkinImage27: TSXSkinImage;
    SXSkinImage28: TSXSkinImage;
    SXSkinImage29: TSXSkinImage;
    SXSkinEdit12: TSXSkinEdit;
    SXSkinLabel84: TSXSkinLabel;
    SXSkinLabel85: TSXSkinLabel;
    PopupMenu2: TPopupMenu;
    EnableThisCheckBoxUsewithCaution1: TMenuItem;
    SXSkinCheckBox41: TSXSkinCheckBox;
    SXSkinRadioButton74: TSXSkinRadioButton;
    SXSkinRadioButton75: TSXSkinRadioButton;
    SXSkinGroupBox12: TSXSkinGroupBox;
    SXSkinGroupBox13: TSXSkinGroupBox;
    SXSkinGroupBox14: TSXSkinGroupBox;
    SXSkinLabel86: TSXSkinLabel;
    SXSkinLabel87: TSXSkinLabel;
    SXSkinLabel88: TSXSkinLabel;
    SXSkinForm1: TSXSkinForm;
    SelectiveStylesPage: TSXSkinNotebookPage;
    SXSkinImage30: TSXSkinImage;
    SXSkinImage31: TSXSkinImage;
    SXSkinImage32: TSXSkinImage;
    SXSkinImage33: TSXSkinImage;
    SXSkinImage34: TSXSkinImage;
    SXSkinImage35: TSXSkinImage;
    SXSkinImage36: TSXSkinImage;
    SXSkinImage37: TSXSkinImage;
    SXSkinImage38: TSXSkinImage;
    SXSkinImage39: TSXSkinImage;
    SXSkinImage41: TSXSkinImage;
    SXSkinImage40: TSXSkinImage;
    SXSkinLabel89: TSXSkinLabel;
    SXSkinLabel90: TSXSkinLabel;
    SXSkinLabel91: TSXSkinLabel;
    SXSkinLabel92: TSXSkinLabel;
    SXSkinLabel93: TSXSkinLabel;
    SXSkinLabel94: TSXSkinLabel;
    SXSkinLabel95: TSXSkinLabel;
    SXSkinLabel96: TSXSkinLabel;
    SXSkinLabel97: TSXSkinLabel;
    SXSkinLabel98: TSXSkinLabel;
    SXSkinLabel99: TSXSkinLabel;
    SXSkinLabel100: TSXSkinLabel;
    SXSkinLabel101: TSXSkinLabel;
    SXSkinLabel102: TSXSkinLabel;
    SXSkinLabel103: TSXSkinLabel;
    SXSkinLabel104: TSXSkinLabel;
    SXSkinImage42: TSXSkinImage;
    AllInOnePage: TSXSkinNotebookPage;
    SXSkinImage43: TSXSkinImage;
    SXSkinLabel105: TSXSkinLabel;
    SXSkinButton77: TSXSkinButton;
    SXSkinGroupBox15: TSXSkinGroupBox;
    SXSkinRadioButton76: TSXSkinRadioButton;
    SXSkinRadioButton77: TSXSkinRadioButton;
    SXSkinRadioButton78: TSXSkinRadioButton;
    SXSkinGroupBox16: TSXSkinGroupBox;
    SXSkinGroupBox17: TSXSkinGroupBox;
    SXSkinGroupBox18: TSXSkinGroupBox;
    SXSkinEdit14: TSXSkinEdit;
    SXSkinEdit15: TSXSkinEdit;
    SXSkinGroupBox19: TSXSkinGroupBox;
    SXSkinCheckBox42: TSXSkinCheckBox;
    SXSkinCheckBox43: TSXSkinCheckBox;
    SXSkinCheckBox44: TSXSkinCheckBox;
    SXSkinCheckBox45: TSXSkinCheckBox;
    SXSkinLabel106: TSXSkinLabel;
    SXSkinLabel107: TSXSkinLabel;
    SXSkinButton78: TSXSkinButton;
    SXSkinButton79: TSXSkinButton;
    SXSkinButton80: TSXSkinButton;
    SXSkinButton81: TSXSkinButton;
    SXSkinGroupBox20: TSXSkinGroupBox;
    SXSkinPanel33: TSXSkinPanel;
    SXSkinRadioButton79: TSXSkinRadioButton;
    SXSkinRadioButton80: TSXSkinRadioButton;
    SXSkinLabel108: TSXSkinLabel;
    SXSkinRadioButton81: TSXSkinRadioButton;
    SXSkinRadioButton82: TSXSkinRadioButton;
    SXSkinRadioButton83: TSXSkinRadioButton;
    SXSkinPanel34: TSXSkinPanel;
    SXSkinLabel109: TSXSkinLabel;
    SXSkinRadioButton84: TSXSkinRadioButton;
    SXSkinRadioButton85: TSXSkinRadioButton;
    SXSkinRadioButton86: TSXSkinRadioButton;
    SXSkinRadioButton87: TSXSkinRadioButton;
    SXSkinRadioButton88: TSXSkinRadioButton;
    SXSkinPanel35: TSXSkinPanel;
    SXSkinLabel110: TSXSkinLabel;
    SXSkinCheckBox46: TSXSkinCheckBox;
    SXSkinCheckBox47: TSXSkinCheckBox;
    SXSkinCheckBox48: TSXSkinCheckBox;
    SXSkinCheckBox49: TSXSkinCheckBox;
    SXSkinLabel111: TSXSkinLabel;
    UpDownPage: TSXSkinNotebookPage;
    SXSkinUpDown3: TSXSkinUpDown;
    SXSkinUpDown1: TSXSkinUpDown;
    SXSkinLabel112: TSXSkinLabel;
    SXSkinUpDown4: TSXSkinUpDown;
    SXSkinEdit16: TSXSkinEdit;
    SXSkinUpDown5: TSXSkinUpDown;
    SXSkinUpDown6: TSXSkinUpDown;
    SXSkinUpDown7: TSXSkinUpDown;
    SXSkinUpDown8: TSXSkinUpDown;
    SXSkinUpDown9: TSXSkinUpDown;
    SXSkinUpDown10: TSXSkinUpDown;
    SXSkinUpDown11: TSXSkinUpDown;
    SXSkinLabel113: TSXSkinLabel;
    SXSkinLabel114: TSXSkinLabel;
    SXSkinUpDown12: TSXSkinUpDown;
    SXSkinUpDown13: TSXSkinUpDown;
    SXSkinUpDown14: TSXSkinUpDown;
    SXSkinUpDown15: TSXSkinUpDown;
    SXSkinUpDown16: TSXSkinUpDown;
    SXSkinUpDown17: TSXSkinUpDown;
    SXSkinUpDown18: TSXSkinUpDown;
    SXSkinLabel115: TSXSkinLabel;
    SXSkinUpDown19: TSXSkinUpDown;
    SXSkinEdit17: TSXSkinEdit;
    SXSkinUpDown20: TSXSkinUpDown;
    SXSkinUpDown21: TSXSkinUpDown;
    SXSkinUpDown22: TSXSkinUpDown;
    SXSkinUpDown23: TSXSkinUpDown;
    SXSkinUpDown24: TSXSkinUpDown;
    SXSkinUpDown25: TSXSkinUpDown;
    SXSkinUpDown26: TSXSkinUpDown;
    SXSkinLabel116: TSXSkinLabel;
    SXSkinLabel117: TSXSkinLabel;
    SXSkinUpDown27: TSXSkinUpDown;
    SXSkinUpDown28: TSXSkinUpDown;
    SXSkinUpDown29: TSXSkinUpDown;
    SXSkinUpDown30: TSXSkinUpDown;
    SXSkinUpDown31: TSXSkinUpDown;
    SXSkinSpinEdit1: TSXSkinSpinEdit;
    SXSkinSpinEdit5: TSXSkinSpinEdit;
    SXSkinSpinEdit6: TSXSkinSpinEdit;
    Timer4: TTimer;
    SXSkinButton82: TSXSkinButton;
    SXSkinSpinEdit2: TSXSkinSpinEdit;
    SXSkinSpinEdit3: TSXSkinSpinEdit;
    SXSkinSpinEdit4: TSXSkinSpinEdit;
    SXSkinLabel118: TSXSkinLabel;
    SXSkinSpinEdit7: TSXSkinSpinEdit;
    SXSkinLabel119: TSXSkinLabel;
    SXSkinLabel120: TSXSkinLabel;
    SXSkinLabel121: TSXSkinLabel;
    SXSkinSpinEdit8: TSXSkinSpinEdit;
    SXSkinLabel122: TSXSkinLabel;
    SXSkinLabel123: TSXSkinLabel;
    SXSkinSpinEdit9: TSXSkinSpinEdit;
    SXSkinSpinEdit10: TSXSkinSpinEdit;
    SXSkinUpDown2: TSXSkinUpDown;
    SXSkinSpinEdit11: TSXSkinSpinEdit;
    SXSkinSpinEdit12: TSXSkinSpinEdit;
    SXSkinSpinEdit13: TSXSkinSpinEdit;
    SXSkinSpinEdit14: TSXSkinSpinEdit;
    SXSkinSpinEdit15: TSXSkinSpinEdit;
    SXSkinSpinEdit16: TSXSkinSpinEdit;
    SXSkinSpinEdit17: TSXSkinSpinEdit;
    SXSkinSpinEdit18: TSXSkinSpinEdit;
    SXSkinSpinEdit19: TSXSkinSpinEdit;
    procedure SXSkinCheckBox46UserModified(Sender: TObject);
    procedure SXSkinRadioButton84UserModified(Sender: TObject);
    procedure SXSkinRadioButton79UserModified(Sender: TObject);
    procedure SXSkinButton64MouseEnter(Sender: TObject);
    procedure EnableThisCheckBoxUsewithCaution1Click(Sender: TObject);
    procedure SXSkinEdit12UserModified(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure SXSkinButton75DblClick(Sender: TObject);
    procedure SXSkinButton75Click(Sender: TObject);
    procedure SXSkinButton75MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SXSkinButton75MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SXSkinButton75MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SXSkinButton75MouseLeave(Sender: TObject);
    procedure SXSkinButton75MouseEnter(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure SXSkinPaintBox3FastPaint(Rect: TRect; Rgn: HRGN;
      Bitmap: TBitmap32; X, Y: Integer);
    procedure PaintBoxPageResize(Sender: TObject);
    procedure SXSkinPaintBox2Paint(Bitmap: TBitmap32; DstRect: TRect);
    procedure SXSkinButton63Click(Sender: TObject);
    procedure SXSkinPaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SXSkinPaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SXSkinPaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SXSkinPaintBox1Resize(Sender: TObject);
    procedure SXSkinLabel52Click(Sender: TObject);
    procedure SXSkinLabel49Click(Sender: TObject);
    procedure SXSkinCheckBox3Resize(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SXSkinButton62Click(Sender: TObject);
    procedure SXSkinButton61Click(Sender: TObject);
    procedure SXSkinRadioButton6UserModified(Sender: TObject);
    procedure SXSkinButton20Click(Sender: TObject);
    procedure SXSkinCheckBox3UserModified(Sender: TObject);
    procedure SXSkinGroupBox10UserEnterFinished(Sender: TObject);
    procedure SXSkinGroupBox9UserEnterFinished(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SXSkinButton9Click(Sender: TObject);
    procedure SXSkinButton8Click(Sender: TObject);
    procedure SXSkinButton7Click(Sender: TObject);
    procedure SXSkinButton6Click(Sender: TObject);
    procedure SXSkinGroupBox1Change(Sender: TObject);
    procedure SXSkinCheckBox5Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SXSkinUpDown1Click(Sender: TObject; UpButton: Boolean);
    procedure SXSkinUpDown17Click(Sender: TObject; UpButton: Boolean);
    procedure SXSkinButton82Click(Sender: TObject);
    procedure SXSkinSpinEdit19UserModified(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SkinNames:TStringList;
    SkinPaths:TStringList;
    TickCount:Integer;
    BrushDown:Boolean;
    LastBrushX:Integer;
    LastBrushY:Integer;
    BrushCounter:Integer;
    IgnoreEvents:Boolean;
    procedure ResetTestEffectStyles;
    procedure ClearPaintBox;
    procedure PaintBrushDot;
    procedure UpdateEventCaption(Sender:TObject;SXLabel:TSXSkinLabel);
  end;

var
  Form1: TForm1;

implementation

uses SXSkinUtils, SXBitmap32Utils;

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
var S:String;
 Skin:TSXStoredSkin;
begin
 SXSkinButton7.Enabled:=ComboBox1.ItemIndex>0;
 SXSkinButton8.Enabled:=ComboBox1.ItemIndex<ComboBox1.Items.Count-1;
 SXSkinLibrary1.Active:=False;
 if ComboBox1.ItemIndex<0 then exit;
 S:=SkinPaths[ComboBox1.ItemIndex];

 if (S<>'') and (S[1]=':') then
  begin
   Skin:=GetStoredSkinByZIPName(Copy(S,2,MaxInt));
   SXSkinLibrary1.StoredSkin:=Skin;
  end else SXSkinLibrary1.SkinFile:=S;

 SXSkinLibrary1.Active:=True;
 ResetTestEffectStyles;
 SXSkinCheckBox3Resize(nil);
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
 SXSkinButton9.Enabled:=ComboBox2.ItemIndex>0;
 SXSkinButton6.Enabled:=ComboBox2.ItemIndex<ComboBox2.Items.Count-1;
 case ComboBox2.ItemIndex of
   0: SXSkinNotebook1.ActivePage:=AboutPage;
   1: SXSkinNotebook1.ActivePage:=AllInOnePage;
   2: SXSkinNotebook1.ActivePage:=PaintBoxPage;
   3: SXSkinNotebook1.ActivePage:=MousePage;
   4: SXSkinNotebook1.ActivePage:=LabelPage;
   5: SXSkinNotebook1.ActivePage:=CheckBoxPage;
   6: SXSkinNotebook1.ActivePage:=RadioButtonPage;
   7: SXSkinNotebook1.ActivePage:=ButtonPage;
   8: SXSkinNotebook1.ActivePage:=UpDownPage;
   9: SXSkinNotebook1.ActivePage:=ImagePage;
  10: SXSkinNotebook1.ActivePage:=GroupBoxPage;
  11: SXSkinNotebook1.ActivePage:=EditPage;
  12: SXSkinNotebook1.ActivePage:=SlideTransformPage;
  13: SXSkinNotebook1.ActivePage:=OverDrawTransformPage;
  14: SXSkinNotebook1.ActivePage:=CustomEffectPage;
  15: SXSkinNotebook1.ActivePage:=EventsCheckPage;
  16: SXSkinNotebook1.ActivePage:=SelectiveStylesPage;
 end;
 PaintBoxPageResize(nil);
end;

procedure TForm1.EnableThisCheckBoxUsewithCaution1Click(Sender: TObject);
begin
 SXSkinCheckBox3.Enabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var SR:TSearchRec;
   A,B:Integer;
     L:TStringList;
    SL:TStringList;
    S1:String;
  Skin:TSXStoredSkin;
begin
 randomize;
 SkinNames:=TStringList.Create;
 SkinPaths:=TStringList.Create;
 S1:=WithlastSlash(ExtractFilePath(Application.ExeName))+'Skins\';
 SXSkinLibrary1.SkinDir:=WithlastSlash(ExtractFilePath(Application.ExeName))+'Skins';
 if FileExists(SXSkinLibrary1.SkinDir+'\App_Skins.zip') then
  SXSkinLibrary1.SkinFile2:=SXSkinLibrary1.SkinDir+'\App_Skins.zip' else 
 if FileExists(SXSkinLibrary1.SkinDir+'\App_Skins\skin.sxs') then
  SXSkinLibrary1.SkinFile2:=SXSkinLibrary1.SkinDir+'\App_Skins\skin.sxs' else
 if FileExists(SXSkinLibrary1.SkinDir+'\App_Skins\skin.ini') then
  SXSkinLibrary1.SkinFile2:=SXSkinLibrary1.SkinDir+'\App_Skins\skin.ini' else
   SXSkinLibrary1.SkinFile2:='';
 L:=TStringList.Create;
 try
  SL:=TStringList.Create;
  try
   for A:=0 to StoredSkinCount-1 do
    begin
     Skin:=GetStoredSkinByIndex(A);
     LoadStringsFromZIPSkinStream(Skin.Stream,SL);
     if SL.Values['SkinName']<>'' then
      begin
       SkinNames.Add(SL.Values['SkinName']+' (internal)');
       SkinPaths.Add(':'+Skin.FileName);
      end;
    end;
  finally
   SL.Free;
  end;
  //
  A:=0;
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -