Marco Web Center
[an error occurred while processing this directive]

Home: Code Repository: Delphi 2009 Handbook

Project: ButtonsDemo.dproj

Project Structure
ButtonsDemo.dpr
program ButtonsDemo;

uses
  Forms,
  ButtonsDemo_MainForm in 'ButtonsDemo_MainForm.pas' {FormButtonsDemo};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormButtonsDemo, FormButtonsDemo);
  Application.Run;
end.
ButtonsDemo_MainForm.pas
unit ButtonsDemo_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ImgList;

type
  TFormButtonsDemo = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    one1: TMenuItem;
    two1: TMenuItem;
    three1: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormButtonsDemo: TFormButtonsDemo;

implementation

{$R *.dfm}

end.
ButtonsDemo_MainForm.pas.dfm
object FormButtonsDemo: TFormButtonsDemo
  Left = 0
  Top = 0
  Caption = 'ButtonsDemo'
  ClientHeight = 358
  ClientWidth = 399
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 40
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Button1'
    ImageIndex = 0
    Images = ImageList1
    PressedImageIndex = 1
    TabOrder = 0
  end
  object Button2: TButton
    Left = 136
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Button2'
    ImageIndex = 1
    Images = ImageList1
    PressedImageIndex = 2
    TabOrder = 1
  end
  object Button3: TButton
    Left = 232
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Button3'
    DropDownMenu = PopupMenu1
    Style = bsSplitButton
    TabOrder = 2
  end
  object Button4: TButton
    Left = 40
    Top = 88
    Width = 201
    Height = 57
    Caption = 'Button4'
    CommandLinkHint = 'This is a command link hint'
    Style = bsCommandLink
    TabOrder = 3
  end
  object Button5: TButton
    Left = 40
    Top = 160
    Width = 201
    Height = 57
    Caption = 'Button5'
    CommandLinkHint = 'Another hint'
    ImageIndex = 1
    Images = ImageList1
    Style = bsCommandLink
    TabOrder = 4
  end
  object Button6: TButton
    Left = 36
    Top = 234
    Width = 205
    Height = 47
    Caption = 'Button6'
    ElevationRequired = True
    Style = bsCommandLink
    TabOrder = 5
  end
  object ImageList1: TImageList
    Left = 304
    Top = 208
    Bitmap = {
      494C010103000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000009996970000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000929290008F8E8D008D8C8B000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000A6A3A400E2E1
      E100B5B3B300B0AEAF002F2E2E00DEDEDE00E6E5E500E8E7E700DBDADA009996
      9700000000000000000000000000000000000000000000000000000000000000
      000094939200F8F8F800D4D3D100CDCCCB008A8A890088888700878685000000
      000000000000000000000000000000000000A4787400FECC9A00FECC9A00FECC
      9A00FECC9A00FECC9A00FECC9A00FECC9A00FECC9A00FECC9A00FECC9A00FECC
      9A00FECC9A00FECC9A00F8C79800A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000A6A3A400E9E9E900DDDC
      DC00B5B3B300B5B3B3001C1C1C00000000005F5E5E00D6D6D600D6D6D600D6D6
      D600D7D7D700CDCCCC0099969700000000000000000000000000000000009897
      9600FFFFFF00FFFFFF00D4D3D100D7D6D400DBDADA00078307001C8F1C005882
      5700818180007F7F7E000000000000000000A4787400A97E7700FBD1A800FBD1
      A800FBD1A800FBD1A800FBD1A800FBD1A800FBD1A800FBD1A800FBD1A800FBD1
      A800FBD1A800FBD1A800A97E7700A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000B2AFB000DDDCDC00DDDCDC009D9A
      9B00A09D9E00999697006B696A001C1C1C000000000000000000000000005050
      5000D6D6D600D6D6D6009996970000000000000000000000000099989700FFFF
      FF00FFFFFF00FFFFFF00D4D3D100D8D7D500DCDBDA000582050038A2380066BF
      6700EDECEB00F0EFEF008A8A890000000000A4787400F6D9BB00B48A8100F6D9
      BB00F6D9BB00F6D9BB00F6D9BB00F6D9BB00F6D9BB00F6D9BB00F6D9BB00F6D9
      BB00F6D9BB00A97E7900F6D9BB00A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000C7C6C600D6D6D6009C999A00F9F8
      F800EEEDED00C1BFBF00B5B3B300B5B3B300B5B3B300ADAAAA008A7F81000000
      000000000000747272009D9A9B0000000000000000009B9A9900FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00D4D3D100D8D7D500DCDBDA00058205001F931F0047AB
      4700ECEBEB00EFEEEE00D1D1D00000000000A4787400F2E0CD00E8D3C200F2E0
      CD00F2E0CD00F2E0CD00F2E0CD00F2E0CD00F2E0CD00F2E0CD00F2E0CD00F2E0
      CD00E8D3C200EDD9C700F2E0CD00A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000C7C6C6009C999A00F9F8F800F9F8
      F800F7F6F600F3F2F200EEEEEE00EAEAEA00E2E2E200BBB9BA00B5B3B300B5B3
      B300A09D9E00B3B1B100AEACAC000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00D2D1CF00D7D6D400DBDADA0005820500058205001C8F
      1C00EAE9E800EBEAEA00CFCECD0000000000A4787400F1E6DC00F1E6DC00A97F
      7B00F1E6DC00F1E6DC00F1E6DC00F1E6DC00F1E6DC00F1E6DC00F1E6DC00F1E6
      DC00B28D8800F1E6DC00F1E6DC00A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000ABA8A900F9F8F800F9F8F800F9F8
      F800F7F6F600978D8F006D5A5D00BFBBBB00E7E6E600E2E2E200DEDEDE00DBDA
      DA00BBB9BA00B5B3B3009D9A9B000000000000000000FFFFFF00FFFFFF00FFFF
      FF00A0BBA000D0DDD000B7B7B500D0CFCE00DAD9D70005820500058205000582
      0500E6E5E400E7E6E500CCCBC90000000000A4787400F5EEE700F5EEE700F5EE
      E700B38E8900F5EEE700F5EEE700F5EEE700F5EEE700F5EEE700F5EEE700A478
      7400F5EEE700F5EEE700F5EEE700A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E7E6E600F9F8F800F3F2
      F20086797C00ABA5A600C3C1C100C8C7C700B0ABAC008A7F8100948A8C00DBDA
      DA00D7D6D600D6D6D6009D9A9B000000000000000000FFFFFF00FFFFFF000249
      020006820900006600004B734A00B0B0AF00D2D1D100DBDAD8004D9E4C000B87
      0D00E3E2E100E3E2E100CAC9C70000000000A4787400FAF6F300FAF6F300FAF6
      F300A9807D00A4787400A4787400A4787400A4787400A4787400A4787400DAC7
      C300FAF6F300FAF6F300FAF6F300A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000F2D6
      BA00FFDAB400B5947D00563F430065515400948A8C00B4AFB000C7C6C600DCDB
      DB00D7D7D700A4A1A2000000000000000000000000006F906E00015F01001BB3
      280019B12500109D1700006600004B734A00B2B1AF00D3D2D000DAD9D800DCDB
      DA00DEDDDC00DFDEDD00C7C6C50000000000A4787400FFFFFF00F3EEEE00B591
      8E00F9FFFF00F7FEFF00F7FEFF00F4FEFF00F2FEFF00F0FEFE00EDFEFE00EBFE
      FE00A4787400FFFFFF00FFFFFF00A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFE4
      C800FFDEBD00FFD9B200FFD4A700FFCF9D00FFCD99006C515100E0DFDF00DCDB
      DB0099969700000000000000000000000000024902000F87160029C23D0025BD
      370023BB340020B9300021AB2F00006400004B734A00B0B0AF00D2D1CF00D9D8
      D600DAD9D700A4B5A2000154010003650900A4787400A4787400FFFFFF00FBFF
      FF00F9FFFF00F7FEFF00F7FEFF00F4FEFF00F2FEFF00F0FEFE00EDFEFE00EBFE
      FE00E9FDFE00DEEDEE00AF898500A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFE8
      D100FFE3C600FFDEBB00FFD8AF00FFD3A600FFCD9A00CC9A9900000000000000
      0000000000000000000000000000000000000066000035CD500033CC4D002FC8
      48002EC6450042CE590055D067005AC36600006400004B734A00B0B0AF00CFCE
      CD000F520F00006100000066000000000000A47874008DF3FE00FFFFFF00FBFF
      FF00F9FFFF00F7FEFF00F7FEFF00F4FEFF00F2FEFF00F0FEFE00EDFEFE00EBFE
      FE00E9FDFE00DEEDEE00C9CECE00A47874000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFED
      DB00FFE8CF00FFE2C500FFDDB900FFD7AD00FFD2A40000000000000000000000
      00000000000000000000000000000000000000000000199326003DD65C003CD4
      5A005DD772006BDF82007DDB8B0085E3970094DCA000006400004B744A000249
      0200006600000066000000000000000000000000000090E4ED00FFFFFF00FBFF
      FF00F9FFFF00F7FEFF00F7FEFF00E3EAEB00C8CACA00BEBEBE00B1C5CD009BD2
      E60090D1F10090D1F10095BBD200000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000CC9A9900FFF1
      E300FFECD900FFE6CD00FFE1C200FFDCB700F5CBA90000000000000000000000
      00000000000000000000000000000000000000000000000000004ABC5A007BE7
      930083EA9C0092E9A4009EEAAE0026B935009CE8AB0094DCA000006100000066
      0000000000000000000000000000000000000000000000000000BEBEBE00BEBE
      BE00AFCFD20095EBF4008DF3FE008DF3FE008DF2FE008EEBFB008EE5F9008FDE
      F6008FD8F400A37E7C0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FFFBF700FFF5
      EA00FFF0E100FFEBD600FFE6CB00FFE0C100CC9A990000000000000000000000
      0000000000000000000000000000000000000000000000000000000000006AC8
      7800A6F2B900A6F2B9007DDB8B0020B93000009900009EEAAE00006600000000
      000000000000000000000000000000000000000000000000000000000000A478
      74008DF3FE008DF3FE008DF3FE008DF3FE008DF3FE008DF2FE008EEBFB008EE5
      F900A47874000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000D9ADA600FFFBF700FFFA
      F500FFF5EA00FFEFDF00FFEAD400E9C5B6000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00006AC87800ABF7C1007DDB8B001FB82E000099000000660000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000009D9E9F008DF3FE008DF3FE008DF3FE008DF3FE0099B5B9000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000CC9A9900CC9A9900000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000001D791D0000660000057207000365090000660000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000A47874009BA6A8009BA6A800A4787400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FF7FF8FFFFFF0000C00FF01F00000000
      8001E003000000000001C0010000000000018001000000000001800100000000
      00018001000000008001800100000000E003800100000000E007000000000000
      E03F000100000000E07F800380010000C07FC00FC0030000C07FE01FE0070000
      80FFF03FF81F0000F9FFF83FFC3F000000000000000000000000000000000000
      000000000000}
  end
  object PopupMenu1: TPopupMenu
    Left = 296
    Top = 152
    object one1: TMenuItem
      Caption = 'one'
    end
    object two1: TMenuItem
      Caption = 'two'
    end
    object three1: TMenuItem
      Caption = 'three'
    end
  end
end
HTML file generated by PasToWeb, a tool by Marco Cantù
Copyright 2008 Marco Cantù

 
© Copyright Marco Cantù, 1995-2020, All rights reserved