home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Freeware / Programare / alite / Demo / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2004-04-08  |  4.7 KB  |  164 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, sPanel, sButtonControl, sCustomButton, StdCtrls,
  8.   sCheckedControl, sCheckbox, ShellApi, sSkinManager, sSkinProvider,
  9.   sScrollBar, ExtDlgs, sEdit, Menus, sCustomLabel;
  10.  
  11. type
  12.   TForm1 = class(TForm)
  13.     sPanel3: TsPanel;
  14.     sPanel2: TsPanel;
  15.     sButton9: TsButton;
  16.     sButton1: TsButton;
  17.     sButton2: TsButton;
  18.     sButton3: TsButton;
  19.     sButton5: TsButton;
  20.     sButton6: TsButton;
  21.     sButton4: TsButton;
  22.     sSkinManager1: TsSkinManager;
  23.     sPanel1: TsPanel;
  24.     sPanel4: TsPanel;
  25.     ComboBox1: TComboBox;
  26.     Label1: TLabel;
  27.     OpenPictureDialog1: TOpenPictureDialog;
  28.     sEdit1: TsEdit;
  29.     MainMenu1: TMainMenu;
  30.     MenuItem11: TMenuItem;
  31.     MenuItem21: TMenuItem;
  32.     MenuItem31: TMenuItem;
  33.     MenuItem111: TMenuItem;
  34.     MenuItem121: TMenuItem;
  35.     MenuItem131: TMenuItem;
  36.     MenuItem141: TMenuItem;
  37.     MenuItem151: TMenuItem;
  38.     MenuItem161: TMenuItem;
  39.     MenuItem1511: TMenuItem;
  40.     MenuItem1521: TMenuItem;
  41.     MenuItem1531: TMenuItem;
  42.     MenuItem1541: TMenuItem;
  43.     MenuItem1551: TMenuItem;
  44.     sScrollBar1: TsScrollBar;
  45.     sSkinProvider1: TsSkinProvider;
  46.     sCheckBox18: TsCheckBox;
  47.     sPanel5: TsPanel;
  48.     sPanel6: TsPanel;
  49.     ComboBox2: TComboBox;
  50.     procedure sPanel2MouseDown(Sender: TObject; Button: TMouseButton;
  51.       Shift: TShiftState; X, Y: Integer);
  52.     procedure sButton4Click(Sender: TObject);
  53.     procedure sButton6Click(Sender: TObject);
  54.     procedure sButton5Click(Sender: TObject);
  55.     procedure FormCreate(Sender: TObject);
  56.     procedure ComboBox1Change(Sender: TObject);
  57.     procedure sButton9Click(Sender: TObject);
  58.     procedure sCheckBox18Change(Sender: TObject);
  59.     procedure FormShow(Sender: TObject);
  60.     procedure ComboBox2Change(Sender: TObject);
  61.     procedure sCheckBox1Change(Sender: TObject);
  62.     procedure OpenPictureDialog1SelectionChange(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.     { Public declarations }
  67.   end;
  68.  
  69. var
  70.   Form1: TForm1;
  71.  
  72. implementation
  73.  
  74. uses
  75.   sSkinProps;
  76.  
  77. {$R *.DFM}
  78.  
  79. procedure TForm1.sPanel2MouseDown(Sender: TObject; Button: TMouseButton;
  80.   Shift: TShiftState; X, Y: Integer);
  81. begin
  82.   if (Button = mbLeft) then begin
  83.     ReleaseCapture;
  84.     sPanel2.Perform(WM_SYSCOMMAND, $F012, 0);
  85.   end
  86.   else inherited;
  87. end;
  88.  
  89. procedure TForm1.sButton4Click(Sender: TObject);
  90. begin
  91.   Close;
  92. end;
  93.  
  94. procedure TForm1.sButton6Click(Sender: TObject);
  95. begin
  96.   ShellExecute(Application.Handle, 'open', PChar('http://www.alphaskins.com'), nil, nil, SW_SHOWNORMAL);
  97. end;
  98.  
  99. procedure TForm1.sButton5Click(Sender: TObject);
  100. begin
  101.   ShellExecute(Application.Handle, 'open', PChar('mailto: acontrols@alphaskins.com'), nil, nil, SW_SHOWNORMAL);
  102. end;
  103.  
  104. procedure TForm1.FormCreate(Sender: TObject);
  105. begin
  106.   sSkinManager1.SkinName := sSkinManager1.GetSkinNames(ComboBox1.Items);
  107. end;
  108.  
  109. procedure TForm1.ComboBox1Change(Sender: TObject);
  110. begin
  111.   if ComboBox1.ItemIndex > -1 then sSkinManager1.SkinName := ComboBox1.Text;
  112. end;
  113.  
  114. procedure TForm1.sButton9Click(Sender: TObject);
  115. begin
  116.   if OpenPictureDialog1.Execute then begin
  117.     // SkinSections and PropNames are defined in sSkinProps.pas unit
  118.     sSkinManager1.ChangeImageInSkin(NormalForm, PatternFile, OpenPictureDialog1.FileName);
  119.     sSkinManager1.ChangeImageInSkin(NormalForm, HotPatternFile, OpenPictureDialog1.FileName);
  120.     // Update of all controls
  121.     sSkinManager1.UpdateSkin;
  122.   end;
  123. end;
  124.  
  125. procedure TForm1.sCheckBox18Change(Sender: TObject);
  126. begin
  127.   sSkinProvider1.ShowAppIcon := sCheckBox18.Checked;
  128. end;
  129.  
  130. procedure TForm1.FormShow(Sender: TObject);
  131. begin
  132.   ComboBOx2.ItemIndex := 1;
  133. end;
  134.  
  135. procedure TForm1.ComboBox2Change(Sender: TObject);
  136. begin
  137.   case ComboBox2.ItemIndex of
  138.     0 : sSkinProvider1.CaptionAlignment := taLeftJustify;
  139.     1 : sSkinProvider1.CaptionAlignment := taCenter;
  140.     2 : sSkinProvider1.CaptionAlignment := taRightJustify;
  141.   end;
  142.  
  143. end;
  144.  
  145. procedure TForm1.sCheckBox1Change(Sender: TObject);
  146. begin
  147. //  sSkinManager1.Active := sCheckBox1.Checked;
  148. end;
  149.  
  150. procedure TForm1.OpenPictureDialog1SelectionChange(Sender: TObject);
  151. begin
  152.   if (pos('.BMP', UpperCase(OpenPictureDialog1.FileName)) > 0) or
  153.        (pos('.JPG', UpperCase(OpenPictureDialog1.FileName)) > 0) or
  154.          (pos('.BMP', UpperCase(OpenPictureDialog1.FileName)) > 0) then begin
  155.     // SkinSections and PropNames are defined in sSkinProps.pas unit
  156.     sSkinManager1.ChangeImageInSkin(NormalForm, PatternFile, OpenPictureDialog1.FileName);
  157.     sSkinManager1.ChangeImageInSkin(NormalForm, HotPatternFile, OpenPictureDialog1.FileName);
  158.     // Update of all controls
  159.     sSkinManager1.UpdateSkin;
  160.   end;
  161. end;
  162.  
  163. end.
  164.