www.pudn.com > @@VCLSkin24.rar > Unit2.dfm

object Form2: TForm2 
  Left = 279 
  Top = 201 
  Width = 385 
  Height = 217 
  Caption = 'Form2' 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  FormStyle = fsMDIChild 
  OldCreateOrder = False 
  Position = poDefault 
  Visible = True 
  OnActivate = FormActivate 
  OnClose = FormClose 
  OnCreate = FormCreate 
  OnDestroy = FormDestroy 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Memo1: TMemo 
    Left = 0 
    Top = 41 
    Width = 377 
    Height = 149 
    Align = alClient 
    Lines.Strings = ( 
      'unit Unit2;' 
      '' 
      'interface' 
      '' 
      'uses' 
       
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' + 
        's,' 
      '  Dialogs, StdCtrls, WinSkinForm, ExtCtrls;' 
      '' 
      'type' 
      '  TForm2 = class(TForm)' 
      '    WinSkinForm1: TWinSkinForm;' 
      '    Memo1: TMemo;' 
      '  private' 
      '    { Private declarations }' 
      '  public' 
      '    { Public declarations }' 
      '  end;' 
      '' 
      'var' 
      '  Form2: TForm2;' 
      '' 
      'implementation' 
      '' 
      'uses Unit1;' 
      '' 
      '{$R *.dfm}' 
      '' 
      'end.' 
      'unit Unit1;' 
      '' 
      'interface' 
      '' 
      'uses' 
       
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' + 
        's,' 
       
        '  Dialogs, StdCtrls, WinSkinform, Menus, WinSkinData, ExtCtrls, ' + 
        'ImgList,' 
      '  ComCtrls, ToolWin;' 
      '' 
      'type' 
      '  TForm1 = class(TForm)' 
      '    SkinData1: TSkinData;' 
      '    ControlBar1: TControlBar;' 
      '    Panel1: TPanel;' 
      '    ComboBox1: TComboBox;' 
      '    Button2: TButton;' 
      '    Button3: TButton;' 
      '    Button1: TButton;' 
      '    Button5: TButton;' 
      '    ImageList1: TImageList;' 
      '    MainMenu1: TMainMenu;' 
      '    File1: TMenuItem;' 
      '    FileNewItem: TMenuItem;' 
      '    FileOpenItem: TMenuItem;' 
      '    FileCloseItem: TMenuItem;' 
      '    FileSaveItem: TMenuItem;' 
      '    FileSaveAsItem: TMenuItem;' 
      '    N1: TMenuItem;' 
      '    FileExitItem: TMenuItem;' 
      '    Edit1: TMenuItem;' 
      '    CutItem: TMenuItem;' 
      '    CopyItem: TMenuItem;' 
      '    PasteItem: TMenuItem;' 
      '    Window1: TMenuItem;' 
      '    WindowCascadeItem: TMenuItem;' 
      '    WindowTileItem: TMenuItem;' 
      '    WindowTileItem2: TMenuItem;' 
      '    WindowMinimizeItem: TMenuItem;' 
      '    WindowArrangeItem: TMenuItem;' 
      '    Help1: TMenuItem;' 
      '    HelpAboutItem: TMenuItem;' 
      '    procedure Button4Click(Sender: TObject);' 
      '    procedure Exit1Click(Sender: TObject);' 
      '    procedure HElp1Click(Sender: TObject);' 
      '    procedure sdwq1Click(Sender: TObject);' 
      '    procedure FormCreate(Sender: TObject);' 
      '    procedure ComboBox1Click(Sender: TObject);' 
      '    procedure Button2Click(Sender: TObject);' 
      '    procedure Button3Click(Sender: TObject);' 
      '    procedure Go1Click(Sender: TObject);' 
      '    procedure Button1Click(Sender: TObject);' 
      '    procedure Button5Click(Sender: TObject);' 
      '  private' 
      '    { Private declarations }' 
      '    procedure ReadSkinfile( apath : string );' 
      '  public' 
      '    { Public declarations }' 
      '  end;' 
      '' 
      'var' 
      '  Form1: TForm1;' 
      '  i:integer;' 
      '' 
      'implementation' 
      '' 
      'uses Unit2;' 
      '' 
      '{$R *.dfm}' 
      'procedure TForm1.ReadSkinfile( apath : string );' 
      'var' 
      '  sts: Integer ;' 
      '  SR: TSearchRec;' 
      '' 
      '  procedure AddFile;' 
      '  begin' 
      '    combobox1.items.add(sr.name);' 
      '  end;' 
      '' 
      'begin' 
      '  sts := FindFirst( apath + '#39'*.skn'#39' , faAnyFile , SR );' 
      '  if sts = 0 then begin' 
      '      if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then begin' 
      '          if pos('#39'.'#39', SR.Name) <> 0 then' 
      '            Addfile;' 
      '      end;' 
      '      while FindNext( SR ) = 0 do begin' 
       
        '          if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then beg' + 
        'in' 
      '              //Put User Feedback here if desired' 
      '//              Application.ProcessMessages;' 
      '              if Pos('#39'.'#39', SR.Name) <> 0 then  Addfile;' 
      '          end;' 
      '      end;' 
      '  end ;' 
      '  FindClose( SR ) ;' 
      'end;' 
      '' 
      'procedure TForm1.Button4Click(Sender: TObject);' 
      'var form:Tform2;' 
      'begin' 
      '   inc(i);' 
      '   form:=Tform2.create(self);' 
      '   form.memo1.lines.insert(0,'#39'child '#39'+inttostr(i));' 
      '   form.caption:='#39'child '#39'+inttostr(i);' 
      '   form.show;' 
      'end;' 
      '' 
      'procedure TForm1.Exit1Click(Sender: TObject);' 
      'begin' 
      '    close;' 
      'end;' 
      '' 
      'procedure TForm1.HElp1Click(Sender: TObject);' 
      'begin' 
      '//   winskinform1.dolog('#39'**************'#39');' 
      'end;' 
      '' 
      'procedure TForm1.sdwq1Click(Sender: TObject);' 
      'begin' 
      '   caption:=caption+'#39' *'#39';' 
      'end;' 
      '' 
      'procedure TForm1.FormCreate(Sender: TObject);' 
      'begin' 
      '    readskinfile('#39'..\..\skins\'#39');' 
      '    skinaddlog(caption+'#39' OnCreate'#39');' 
      'end;' 
      '' 
      'procedure TForm1.ComboBox1Click(Sender: TObject);' 
      'begin' 
      '   SkinData1.skinfile:='#39'..\..\skins\'#39'+combobox1.text;' 
      'end;' 
      '' 
      'procedure TForm1.Button2Click(Sender: TObject);' 
      'begin' 
      '  close;' 
      'end;' 
      '' 
      'procedure TForm1.Button3Click(Sender: TObject);' 
      'begin' 
      '   skindata1.active:= not skindata1.active;' 
      '   if skindata1.active then button3.caption:='#39'Unskin'#39 
      '   else button3.caption:='#39'Skin'#39';' 
      '//   Button4Click(sender);' 
      'end;' 
      '' 
      'procedure TForm1.Go1Click(Sender: TObject);' 
      'begin' 
      '    Skinaddlog('#39'**********************************'#39');' 
      'end;' 
      '' 
      'procedure TForm1.Button1Click(Sender: TObject);' 
      'var' 
      '  MyItem: TMenuItem;' 
      '  i: Integer;' 
      'begin' 
      '{    MyItem:= TMenuItem.Create(Self);' 
      '    MyItem.Caption := '#39'New item '#39';' 
      '    MainMenu1.Items.Add(MyItem);}' 
      '    File1.caption:=file1.caption+'#39'*'#39';' 
      '//    Sendmessage(handle,CN_UPdateMainMenu,0,0);' 
      'end;' 
      '' 
      'procedure TForm1.Button5Click(Sender: TObject);' 
      'begin' 
      '    skinaddlog('#39'*******************'#39');' 
      'end;' 
      '' 
      'end.') 
    ScrollBars = ssBoth 
    TabOrder = 0 
  end 
  object Panel1: TPanel 
    Left = 0 
    Top = 0 
    Width = 377 
    Height = 41 
    Align = alTop 
    Caption = 'Panel1' 
    PopupMenu = PopupMenu1 
    TabOrder = 1 
    object Button1: TButton 
      Left = 40 
      Top = 8 
      Width = 75 
      Height = 25 
      Caption = 'Button1' 
      TabOrder = 0 
    end 
  end 
  object MainMenu1: TMainMenu 
    Left = 88 
    Top = 80 
    object Child1: TMenuItem 
      Caption = 'Child' 
      object List1: TMenuItem 
        Caption = 'List' 
      end 
      object Exit1: TMenuItem 
        Caption = 'Exit' 
      end 
    end 
    object View1: TMenuItem 
      Caption = 'View' 
    end 
    object Help1: TMenuItem 
      Caption = 'Help' 
    end 
  end 
  object PopupMenu1: TPopupMenu 
    OwnerDraw = True 
    Left = 184 
    Top = 88 
    object N1111111111: TMenuItem 
      Caption = '111111111' 
    end 
    object N22221: TMenuItem 
      Caption = '2222' 
    end 
    object N33331: TMenuItem 
      Caption = '3333' 
    end 
    object N444441: TMenuItem 
      Caption = '44444' 
    end 
    object N5555551: TMenuItem 
      Caption = '555555' 
      object aaaaaaaa1: TMenuItem 
        Caption = 'aaaaaaaa' 
      end 
      object bbbbbbbb1: TMenuItem 
        Caption = 'bbbbbbbb' 
      end 
      object ccccccccc1: TMenuItem 
        Caption = 'ccccccccc' 
      end 
      object ddddddddd1: TMenuItem 
        Caption = 'ddddddddd' 
        object ooooooooo1: TMenuItem 
          Caption = 'qqqqqqqqqq' 
        end 
        object ppppppppppppp1: TMenuItem 
          Caption = 'ppppppppppppp' 
        end 
        object ooooooooo2: TMenuItem 
          Caption = 'ooooooooo' 
        end 
      end 
      object eeeeeee1: TMenuItem 
        Caption = 'eeeeeee' 
      end 
      object fffffffff1: TMenuItem 
        Caption = 'fffffffff' 
      end 
    end 
    object N666661: TMenuItem 
      Caption = '66666' 
    end 
    object N777771: TMenuItem 
      Caption = '77777' 
    end 
    object N888881: TMenuItem 
      Caption = '88888' 
    end 
  end 
end