Marco Web Center

[an error occurred while processing this directive]

Home: Code Repository: Mastering Delphi 6

Chapter 06 - Project QMenuImg

Project Structure

QMenuImg.dpr
program QMenuImg;

uses
  QForms,
  MenuImgF in 'MenuImgF.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
MenuImgF.pas
unit MenuImgF;

interface

uses
  Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, QMenus, QImgList, QTypes;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Close1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    Memo1: TMemo;
    LargeFont1: TMenuItem;
    procedure New1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure LargeFont1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.New1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage ('Menu Images demo'#13 +
    'from "Mastering Delphi" by Marco Cantù');
end;

procedure TForm1.LargeFont1Click(Sender: TObject);
begin
  if Memo1.Font.Size = 8 then
    Memo1.Font.Size := 12
  else
    Memo1.Font.Size := 8;
  // changes the image style near the item
  LargeFont1.Checked := not LargeFont1.Checked;
end;

end.
MenuImgF.xfm
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 356
  Height = 216
  VertScrollBar.Range = 161
  HorzScrollBar.Range = 345
  ActiveControl = Memo1
  Caption = 'Menu Images'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Menu = MainMenu1
  ParentFont = False
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 337
    Height = 153
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object ImageList1: TImageList
    BkColor = clOlive
    Left = 128
    Top = 56
    Bitmap = {
      494D474C01000100100000001000000004000000424D360C0000000000003600
      00002800000020000000200000000100180000000000000C0000120B0000120B
      0000000000000000000000828400828400828400828400828400828400828400
      8284008284008284008284008284008284008284008284008284008284008284
      0082840082840082840082840082840082840082840082840082840082840082
      84008284008284008284008284008284008284008284008284FFFFFF7B7D7B00
      00FF7B7D7BFFFFFF008284008284008284008284008284008284008284008284
      0082840082840082840082840082840082840082840082840082840082840082
      8400828400828400828400828400828400828400FFFFFFFFFF00FFFF0000FF00
      00FF0000FF00FFFFFFFFFF00FFFF008284008284008284008284000000000000
      0082840000000000000000000000000000000000000000000082840082840000
      0000000000000000000000828400828400FFFFFFFFFF00FFFFFFFFFF7B7D7B00
      00FF7B7D7BFFFFFF00FFFFFFFFFF00FFFF008284008284008284000000008284
      0082840082840000000000000082840082840000000082840082840082840082
      8400000000000000828400828400FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00
      FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF0082840082847B7D7B000000
      0000000000000000007B7D7B0082840082840000000082840082840082840082
      84000000000000008284008284FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF00
      00FF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF008284008284008284000000
      0082840000000000000082840082840082847B7D7B0000000000000000000000
      000000007B7D7B008284FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00
      00FF7B7D7B00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF008284008284000000
      0082840000007B7D7B0082840082840082840082840000000082840082840000
      0000000000828400828400FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF00
      00FF0000FFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF0082840082847B7D7B
      0000000000007B7D7B0082840082840082840082840000000082840082840000
      00000000008284008284FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00
      FFFF0000FF0000FFFFFFFF00FFFFFFFFFF00FFFFFFFFFF008284008284008284
      0000000000000082840082840082840082840082847B7D7B0000000082840000
      007B7D7B00828400828400FFFFFFFFFF00FFFFFFFFFF7B7D7B7B7D7B00FFFFFF
      FFFF7B7D7B0000FF0000FFFFFFFF00FFFFFFFFFF00FFFF008284008284008284
      0000007B7D7B0082840082840082840082840082840082840000000000000000
      00008284008284008284FFFFFF00FFFFFFFFFF00FFFF0000FF0000FFFFFFFF00
      FFFF7B7D7B0000FF0000FF00FFFFFFFFFF00FFFFFFFFFF008284008284008284
      0082840082840000FF0000FF0082840000FF0082840082840000000000000000
      00008284008284008284008284FFFFFF00FFFFFFFFFF0000FF0000FF7B7D7BFF
      FFFF7B7D7B0000FF0000FFFFFFFF00FFFFFFFFFF008284008284008284008284
      0082840082840082840082840000FF0000FF0000FF0082840082840000007B7D
      7B00828400828400828400828400FFFFFFFFFF00FFFFFFFFFF0000FF0000FF00
      00FF0000FF0000FFFFFFFF00FFFFFFFFFF00FFFF008284008284008284008284
      0082840082840082840082840000FF0000FF0000FF0000FF0082840000000082
      8400828400828400828400828400828400FFFFFFFFFF00FFFFFFFFFF0000FF00
      00FF0000FFFFFFFF00FFFFFFFFFF00FFFF008284008284008284008284008284
      0082840082840082840082840082840082840082840082840082840082840082
      8400828400828400828400828400828400828400FFFFFFFFFF00FFFFFFFFFF00
      FFFFFFFFFF00FFFFFFFFFF00FFFF008284008284008284008284008284008284
      0082840082840082840082840082840082840082840082840082840082840082
      84008284008284008284008284008284008284008284008284FFFFFF00FFFFFF
      FFFF00FFFFFFFFFF008284008284008284008284008284008284008284008284
      0082840082840082840082840082840082840082840082840082840082840082
      8400828400828400828400828400828400828400828400828400828400828400
      828400FFFF00828400828400828400828400828400828400FFFF008284008284
      0000000000000000000000000000000000000000000000000000000000000000
      0000828400828400828400828400FFFF00FFFF0082847B7D7B7B7D7B7B7D7B00
      FFFF00FFFF7B7D7B7B7D7B7B7D7B7B7D7B00FFFF00FFFF008284008284008284
      00000000008400FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400828400828400FFFF00000000000000000000000000
      000000000000000000000000000000000000FFFF008284008284008284008284
      00000000008400008400FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007B7D7B008284008284008284008284
      00000000008400008400008400FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007B7D7B008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFF000000000000FF
      FFFF000000000000000000FFFFFF0000007B7D7B008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007B7D7B008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400FFFF00FFFF00FFFF000000FFFFFF00000000000000
      0000000000FFFFFF000000FFFFFF00000000FFFF00FFFF008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400828400FFFF00FFFF000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFF00FFFF00FFFF008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFF000000000000FF
      FFFF000000000000000000000000000000008284008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFFFFFFFFFFFFFFFF
      FFFF000000FFFFFFFFFFFF000000008284008284008284008284008284008284
      00000000008400008400008400FFFF00000000FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFF000000BDBEBDFF
      FFFF000000FFFFFF00000000FFFF008284008284008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      00008284008284008284008284008284008284000000FFFFFFFFFFFFFFFFFFFF
      FFFF00000000000000828400FFFF00FFFF008284008284008284008284008284
      00000000008400008400008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400828400828400FFFF00000000000000000000000000
      000000000000828400828400828400FFFF00FFFF008284008284008284008284
      000000000084FFFF0000008400000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400828400FFFF00FFFF00828400828400828400828400
      FFFF00FFFF00828400828400828400828400FFFF00FFFF008284008284008284
      000000000084FFFF00FFFF0000000000FFFF00FFFF00FFFF00FFFF00FFFF0000
      0000828400828400828400FFFF00828400828400828400828400828400828400
      FFFF00828400828400828400828400828400828400828400FFFF008284008284
      0000000000000000000000000000000000000000000000000000000000000000
      00008284008284008284424DBE000000000000003E0000002800000020000000
      20000000010001000000000080000000120B0000120B00000200000002000000
      FFFFFF00000000000000000007C000001FF0DFCF3FF88C867FFCFC867FFC58FE
      FFFE584CFFFE784CFFFE306CFFFE3038FFFE0D387FFC03987FFC03D03FF80000
      1FF0000007C0000000813FF86FFE3FF83FFC3FF81FFC3FF81FFC3FF81FFC3FF8
      1FFC3FF8FFFE3FF87FFF3FF81FF83FF81FF03FF81FF03FF81FD83FF83F8C3FF8
      61863FF881013FF8}
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 64
    Top = 56
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        ImageIndex = 0
        OnClick = New1Click
      end
      object LargeFont1: TMenuItem
        Caption = '&Large Font'
        ImageIndex = 3
        ShortCut = 16454
        OnClick = LargeFont1Click
      end
      object Close1: TMenuItem
        Caption = 'E&xit'
        ImageIndex = 1
        ShortCut = 36915
        OnClick = Close1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About...'
        ImageIndex = 2
        OnClick = About1Click
      end
    end
  end
end