skintestunit.pas

skin components for design of your applicastions

procedure TForm1.SXSkinButton64MouseEnter(Sender: TObject);
begin
 TControl(Sender).BringToFront;
end;

procedure TForm1.SXSkinButton6Click(Sender: TObject);
begin
 ComboBox2.ItemIndex:=ComboBox2.ItemIndex+1;
 ComboBox2Change(nil);
end;

procedure TForm1.UpdateEventCaption(Sender:TObject;SXLabel:TSXSkinLabel);
var R:String;
begin
 if IgnoreEvents and (SXLabel=SXSkinLabel68) then exit;
 R:='... '+inttostr(random(10000));
 if Sender=SXSkinButton75 then
  SXLabel.Caption:='from Standard Button'+R else
 if Sender=SXSkinButton76 then
  SXLabel.Caption:='from Round Button'+R else
 if Sender=SXSkinLabel77 then
  SXLabel.Caption:='from Label'+R else
 if Sender=SXSkinImage29 then
  SXLabel.Caption:='from Image'+R else
 if Sender=SXSkinEdit12 then
  SXLabel.Caption:='from Edit'+R else
 if Sender=SXSkinCheckBox41 then
  SXLabel.Caption:='from CheckBox'+R else
 if Sender=SXSkinRadioButton74 then
  SXLabel.Caption:='from RadioButton1'+R else
 if Sender=SXSkinRadioButton75 then
  SXLabel.Caption:='from RadioButton2'+R else
 if Sender=SXSkinGroupBox12 then
  SXLabel.Caption:='from Simple GroupBox'+R else
 if Sender=SXSkinGroupBox13 then
  SXLabel.Caption:='from GroupBox with CheckBox'+R else
 if Sender=SXSkinGroupBox14 then
  SXLabel.Caption:='from GroupBox with RadioButton'+R else
 if Sender=SXSkinSpinEdit6 then
  SXLabel.Caption:='from SpinEdit'+R; 
 SXLabel.Left:=392;
 SXLabel.Visible:=True;
end;

procedure TForm1.SXSkinButton75Click(Sender: TObject);
begin
 UpdateEventCaption(Sender,SXSkinLabel74);
end;

procedure TForm1.SXSkinButton75DblClick(Sender: TObject);
begin
 UpdateEventCaption(Sender,SXSkinLabel76);
end;

procedure TForm1.SXSkinButton75MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 UpdateEventCaption(Sender,SXSkinLabel70);
end;

procedure TForm1.SXSkinButton75MouseEnter(Sender: TObject);
begin
 UpdateEventCaption(Sender,SXSkinLabel63);
end;

procedure TForm1.SXSkinButton75MouseLeave(Sender: TObject);
begin
 UpdateEventCaption(Sender,SXSkinLabel66);
end;

procedure TForm1.SXSkinButton75MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 UpdateEventCaption(Sender,SXSkinLabel68);
end;

procedure TForm1.SXSkinButton75MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 UpdateEventCaption(Sender,SXSkinLabel72);
end;

procedure TForm1.SXSkinButton7Click(Sender: TObject);
begin
 ComboBox1.ItemIndex:=ComboBox1.ItemIndex-1;
 ComboBox1Change(nil);
end;

procedure TForm1.SXSkinButton82Click(Sender: TObject);
begin
 if SXSkinSpinEdit5.Enabled then
  begin
   SXSkinButton82.Caption:='Enable';
   SXSkinSpinEdit5.Enabled:=False;
  end else
   begin
    SXSkinButton82.Caption:='Disable';
    SXSkinSpinEdit5.Enabled:=True;
   end;
end;

procedure TForm1.SXSkinButton8Click(Sender: TObject);
begin
 ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;
 ComboBox1Change(nil);
end;

procedure TForm1.SXSkinButton9Click(Sender: TObject);
begin
 ComboBox2.ItemIndex:=ComboBox2.ItemIndex-1;
 ComboBox2Change(nil);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc(TickCount);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var A:Integer;
 Image:TSXSkinStyleImageElement;
begin
 if SXSkinCheckBox40.Checked then
  begin
   A:=SXSkinLibrary1.Styles.GetIndexByName('Background');
   if (A>=0) and (SXSkinLibrary1.Styles[A] is TSXSkinGeneralStyle) then
    if TSXSkinGeneralStyle(SXSkinLibrary1.Styles[A]).Elements[0] is TSXSkinStyleImageElement then
     begin
      Image:=TSXSkinStyleImageElement(TSXSkinGeneralStyle(SXSkinLibrary1.Styles[A]).Elements[0]);
      Inc(Image.OffsetY);
      InvalidateRect(SXSkinImage2.Handle,nil,False);
     end;
  end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 if SXSkinNotebook1.ActivePage=EventsCheckPage then
  begin
   IgnoreEvents:=True;
   SXSkinLabel63.Left:=SXSkinLabel63.Left+1;
   SXSkinLabel66.Left:=SXSkinLabel66.Left+1;
   SXSkinLabel68.Left:=SXSkinLabel68.Left+1;
   SXSkinLabel70.Left:=SXSkinLabel70.Left+1;
   SXSkinLabel72.Left:=SXSkinLabel72.Left+1;
   SXSkinLabel74.Left:=SXSkinLabel74.Left+1;
   SXSkinLabel76.Left:=SXSkinLabel76.Left+1;
   SXSkinLabel85.Left:=SXSkinLabel85.Left+1;
   Application.ProcessMessages;
   IgnoreEvents:=False;
  end;
end;

procedure TForm1.ResetTestEffectStyles;

 procedure SetStyle(StyleName:String;StyleIndex:Integer);
 var Style:TSXSkinButtonStyle;
         A:Integer;
 begin
  A:=SXSkinLibrary1.Styles.GetIndexByName(StyleName);
  if (A>=0) and (SXSkinLibrary1.Styles[A] is TSXSkinButtonStyle) then
   begin
    Style:=TSXSkinButtonStyle(SXSkinLibrary1.Styles[A]);
    //HIn
    //Old
    if SXSkinRadioButton6.Checked then
     Style.HInButtonEffect.OldType:=tetNone else
    if SXSkinRadioButton7.Checked then
     Style.HInButtonEffect.OldType:=tetBlend else
    if SXSkinRadioButton8.Checked then
     Style.HInButtonEffect.OldType:=tetClear else
    if SXSkinRadioButton9.Checked then
     Style.HInButtonEffect.OldType:=tetFade else
    if SXSkinRadioButton10.Checked then
     Style.HInButtonEffect.OldType:=tetOverDraw else
    if SXSkinRadioButton15.Checked then
     Style.HInButtonEffect.OldType:=tetSlide;
    //
    if SXSkinRadioButton16.Checked then
     Style.HInButtonEffect.OldDirection:=tedLeft else
    if SXSkinRadioButton17.Checked then
     Style.HInButtonEffect.OldDirection:=tedRight else
    if SXSkinRadioButton18.Checked then
     Style.HInButtonEffect.OldDirection:=tedTop else
    if SXSkinRadioButton19.Checked then
     Style.HInButtonEffect.OldDirection:=tedBottom else
    if SXSkinRadioButton20.Checked then
     Style.HInButtonEffect.OldDirection:=tedLeftTop else
    if SXSkinRadioButton21.Checked then
     Style.HInButtonEffect.OldDirection:=tedLeftBottom else
    if SXSkinRadioButton22.Checked then
     Style.HInButtonEffect.OldDirection:=tedRightTop else
    if SXSkinRadioButton23.Checked then
     Style.HInButtonEffect.OldDirection:=tedRightBottom else
    if SXSkinRadioButton24.Checked then
     Style.HInButtonEffect.OldDirection:=tedLeftRight else
    if SXSkinRadioButton25.Checked then
     Style.HInButtonEffect.OldDirection:=tedTopBottom;
    //
    Style.HInButtonEffect.OldDirOut:=SXSkinCheckBox18.Checked;
    Style.HInButtonEffect.OldInverted:=SXSkinCheckBox19.Checked;
    //New
    if SXSkinRadioButton26.Checked then
     Style.HInButtonEffect.NewType:=tetNone else
    if SXSkinRadioButton27.Checked then
     Style.HInButtonEffect.NewType:=tetBlend else
    if SXSkinRadioButton28.Checked then
     Style.HInButtonEffect.NewType:=tetClear else
    if SXSkinRadioButton29.Checked then
     Style.HInButtonEffect.NewType:=tetFade else
    if SXSkinRadioButton30.Checked then
     Style.HInButtonEffect.NewType:=tetOverDraw else
    if SXSkinRadioButton31.Checked then
     Style.HInButtonEffect.NewType:=tetSlide;
    //
    if SXSkinRadioButton37.Checked then
     Style.HInButtonEffect.NewDirection:=tedLeft else
    if SXSkinRadioButton38.Checked then
     Style.HInButtonEffect.NewDirection:=tedRight else
    if SXSkinRadioButton39.Checked then
     Style.HInButtonEffect.NewDirection:=tedTop else
    if SXSkinRadioButton40.Checked then
     Style.HInButtonEffect.NewDirection:=tedBottom else
    if SXSkinRadioButton41.Checked then
     Style.HInButtonEffect.NewDirection:=tedLeftTop else
    if SXSkinRadioButton36.Checked then
     Style.HInButtonEffect.NewDirection:=tedLeftBottom else
    if SXSkinRadioButton35.Checked then
     Style.HInButtonEffect.NewDirection:=tedRightTop else
    if SXSkinRadioButton34.Checked then
     Style.HInButtonEffect.NewDirection:=tedRightBottom else
    if SXSkinRadioButton33.Checked then
     Style.HInButtonEffect.NewDirection:=tedLeftRight else
    if SXSkinRadioButton32.Checked then
     Style.HInButtonEffect.NewDirection:=tedTopBottom;
    //
    Style.HInButtonEffect.NewDirOut:=SXSkinCheckBox21.Checked;
    Style.HInButtonEffect.NewInverted:=SXSkinCheckBox22.Checked;
    //General
    Style.HInButtonEffect.DrawCaption:=SXSkinCheckBox20.Checked;
    Style.HInButtonEffect.StepsNum:=StrToIntDef(SXSkinSpinEdit15.Text,0);
    Style.HInButtonEffect.Offset:=StrToIntDef(SXSkinSpinEdit16.Text,0);
    if SXSkinCheckBox23.Checked then
     begin
      Style.HInGlyphEffect.OldType:=tetNone;
      Style.HInGlyphEffect.NewType:=tetNone;
     end else Style.HInGlyphEffect:=Style.HInButtonEffect;
    //
    //HOut
    //Old
    if SXSkinRadioButton42.Checked then
     Style.HOutButtonEffect.OldType:=tetNone else
    if SXSkinRadioButton43.Checked then
     Style.HOutButtonEffect.OldType:=tetBlend else
    if SXSkinRadioButton44.Checked then
     Style.HOutButtonEffect.OldType:=tetClear else
    if SXSkinRadioButton45.Checked then
     Style.HOutButtonEffect.OldType:=tetFade else
    if SXSkinRadioButton46.Checked then
     Style.HOutButtonEffect.OldType:=tetOverDraw else
    if SXSkinRadioButton47.Checked then
     Style.HOutButtonEffect.OldType:=tetSlide;
    //
    if SXSkinRadioButton53.Checked then
     Style.HOutButtonEffect.OldDirection:=tedLeft else
    if SXSkinRadioButton54.Checked then
     Style.HOutButtonEffect.OldDirection:=tedRight else
    if SXSkinRadioButton55.Checked then
     Style.HOutButtonEffect.OldDirection:=tedTop else
    if SXSkinRadioButton56.Checked then
     Style.HOutButtonEffect.OldDirection:=tedBottom else
    if SXSkinRadioButton57.Checked then
     Style.HOutButtonEffect.OldDirection:=tedLeftTop else
    if SXSkinRadioButton52.Checked then
     Style.HOutButtonEffect.OldDirection:=tedLeftBottom else
    if SXSkinRadioButton51.Checked then
     Style.HOutButtonEffect.OldDirection:=tedRightTop else
    if SXSkinRadioButton50.Checked then
     Style.HOutButtonEffect.OldDirection:=tedRightBottom else
    if SXSkinRadioButton49.Checked then
     Style.HOutButtonEffect.OldDirection:=tedLeftRight else
    if SXSkinRadioButton48.Checked then
     Style.HOutButtonEffect.OldDirection:=tedTopBottom;
    //
    Style.HOutButtonEffect.OldDirOut:=SXSkinCheckBox24.Checked;
    Style.HOutButtonEffect.OldInverted:=SXSkinCheckBox25.Checked;
    //New
    if SXSkinRadioButton58.Checked then
     Style.HOutButtonEffect.NewType:=tetNone else
    if SXSkinRadioButton59.Checked then
     Style.HOutButtonEffect.NewType:=tetBlend else
    if SXSkinRadioButton60.Checked then
     Style.HOutButtonEffect.NewType:=tetClear else
    if SXSkinRadioButton61.Checked then
     Style.HOutButtonEffect.NewType:=tetFade else
    if SXSkinRadioButton62.Checked then
     Style.HOutButtonEffect.NewType:=tetOverDraw else
    if SXSkinRadioButton63.Checked then
     Style.HOutButtonEffect.NewType:=tetSlide;
    //
    if SXSkinRadioButton69.Checked then
     Style.HOutButtonEffect.NewDirection:=tedLeft else
    if SXSkinRadioButton70.Checked then
     Style.HOutButtonEffect.NewDirection:=tedRight else
    if SXSkinRadioButton71.Checked then
     Style.HOutButtonEffect.NewDirection:=tedTop else
    if SXSkinRadioButton72.Checked then
     Style.HOutButtonEffect.NewDirection:=tedBottom else
    if SXSkinRadioButton73.Checked then
     Style.HOutButtonEffect.NewDirection:=tedLeftTop else
    if SXSkinRadioButton68.Checked then
     Style.HOutButtonEffect.NewDirection:=tedLeftBottom else
    if SXSkinRadioButton67.Checked then
     Style.HOutButtonEffect.NewDirection:=tedRightTop else
    if SXSkinRadioButton66.Checked then
     Style.HOutButtonEffect.NewDirection:=tedRightBottom else
    if SXSkinRadioButton65.Checked then
     Style.HOutButtonEffect.NewDirection:=tedLeftRight else
    if SXSkinRadioButton64.Checked then
     Style.HOutButtonEffect.NewDirection:=tedTopBottom;
    //
    Style.HOutButtonEffect.NewDirOut:=SXSkinCheckBox27.Checked;
    Style.HOutButtonEffect.NewInverted:=SXSkinCheckBox28.Checked;
    //General
    Style.HOutButtonEffect.DrawCaption:=SXSkinCheckBox26.Checked;
    Style.HOutButtonEffect.StepsNum:=StrToIntDef(SXSkinSpinEdit17.Text,0);
    Style.HOutButtonEffect.Offset:=StrToIntDef(SXSkinSpinEdit18.Text,0);
    if SXSkinCheckBox29.Checked then
     begin
      Style.HOutGlyphEffect.OldType:=tetNone;
      Style.HOutGlyphEffect.NewType:=tetNone;
     end else Style.HOutGlyphEffect:=Style.HOutButtonEffect;
    //
    //
    case StyleIndex of
     1: begin
         Style.HInButtonEffect.NewType:=tetClear;
         Style.HInGlyphEffect.NewType:=tetClear;
         Style.HOutButtonEffect.NewType:=tetClear;
         Style.HOutGlyphEffect.NewType:=tetClear;
        end;
     2: begin
         Style.HInButtonEffect.OldType:=tetClear;
         Style.HInGlyphEffect.OldType:=tetClear;
         Style.HOutButtonEffect.OldType:=tetClear;
         Style.HOutGlyphEffect.OldType:=tetClear;
        end;
    end;
   end;
 end;

begin
 SetStyle('_Button_TestEffect1',1);
 SetStyle('_Button_TestEffect2',2);
 SetStyle('_Button_TestEffect3',3);
end;

end.