PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/DEMOS/EXPERTS/STRINGS.RES/SNIPETS.bin

Text File | 1998-06-16 | 6KB | 295 lines

program %s;

uses
  Forms,
  Main in 'MAIN.PAS' {MainForm};

{$R *.RES}

begin
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.
|unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;

type
  TMainForm = class(TForm)
|  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

|begin
  Application.OnHint := ShowHint;
end;

|begin
  StatusLine.SimpleText := Application.Hint;
end;

|begin
  { Add code to create a new file }
end;

|begin
  if OpenDialog.Execute then
  begin
    { Add code to open OpenDialog.FileName }
  end;
end;

|begin
   { Add code to save current file under current name }
end;

|begin
  if SaveDialog.Execute then
  begin
    { Add code to save current file under SaveDialog.FileName }
  end;
end;

|begin
  if PrintDialog.Execute then
  begin
    { Add code to print current file }
  end;
end;

|begin
  PrintSetupDialog.Execute;
end;

|begin
  Close;
end;

|begin
  { Add code to perform Edit Undo }
end;

|begin
  { Add code to perform Edit Cut }
end;

|begin
  { Add code to perform Edit Copy }
end;

|begin
  { Add code to perform Edit Paste }
end;

|begin
  Tile;
end;

|begin
  Cascade;
end;

|begin
  ArrangeIcons;
end;

|begin
  Application.HelpCommand(HELP_CONTENTS, 0);
end;

|const
  EmptyString: PChar = '';
begin
  Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
end;

|begin
  Application.HelpCommand(HELP_HELPONHELP, 0);
end;

|begin
  { Add code to show program's About Box }
end;

|object MainForm: TMainForm
  Left = 214
  Top = 112
  Width = 409
  Height = 249
  Caption = 'MainForm'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  PixelsPerInch = 96
  TextHeight = 13
|  Menu = MainMenu
|  FormStyle = fsMDIForm
|  ShowHint = True
|  OnCreate = FormCreate
|  object MainMenu: TMainMenu
    Left = 220
    Top = 40
|    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new file'
        OnClick = FileNew
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing file'
        OnClick = FileOpen
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save current file'
        OnClick = FileSave
      end
      object FileSaveAsItem: TMenuItem
        Caption = 'Save &As...'
        Hint = 'Save current file under a new name'
        OnClick = FileSaveAs
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FilePrintItem: TMenuItem
        Caption = '&Print'
        Hint = 'Print current file'
        OnClick = FilePrint
      end
      object FilePrintSetupItem: TMenuItem
        Caption = 'P&rint Setup...'
        Hint = 'Change printer setup'
        OnClick = FilePrintSetup
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit this application'
        OnClick = FileExit
      end
    end
|    object EditMenu: TMenuItem
      Caption = '&Edit'
      object EditUndoItem: TMenuItem
        Caption = '&Undo'
        Hint = 'Undo the last action'
        OnClick = EditUndo
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object EditCutItem: TMenuItem
        Caption = 'Cu&t'
        Hint = 'Delete selected item'
        OnClick = EditCut
      end
      object EditCopyItem: TMenuItem
        Caption = '&Copy'
        Hint = 'Copy selected item to clipboard'
        OnClick = EditCopy
      end
      object EditPasteItem: TMenuItem
        Caption = '&Paste'
        Hint = 'Paste contents of clipboard'
        OnClick = EditPaste
      end
    end
|    object WindowMenu: TMenuItem
      Caption = '&Window'
      object WindowTileItem: TMenuItem
        Caption = '&Tile'
        Hint = 'Tile all windows'
        OnClick = WindowTile
      end
      object WindowCascadeItem: TMenuItem
        Caption = '&Cascade'
        Hint = 'Cascade all windows'
        OnClick = WindowCascade
      end
      object WindowArrangeItem: TMenuItem
        Caption = '&Arrange All'
        Hint = 'Arrange minimized windows'
        OnClick = WindowArrange
      end
    end
|    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpContentsItem: TMenuItem
        Caption = '&Contents'
        Hint = 'Display the help contents screen'
        OnClick = HelpContents
      end
      object HelpSearchItem: TMenuItem
        Caption = '&Search for Help On...'
        Hint = 'Search help file for a topic'
        OnClick = HelpSearch
      end
      object HelpHowToUseItem: TMenuItem
        Caption = '&How to Use Help'
        Hint = 'Help on using the help system'
        OnClick = HelpHowToUse
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object HelpAboutItem: TMenuItem
        Caption = '&About...'
        Hint = 'Show program information'
        OnClick = HelpAbout
      end
    end
|  object OpenDialog: TOpenDialog
    Filter = '%s'
    Left = 230
    Top = 87
  end
|  object SaveDialog: TSaveDialog
    Filter = '%s'
    Left = 204
    Top = 125
  end
|  object PrintDialog: TPrintDialog
    Left = 262
    Top = 127
  end
|  object PrintSetupDialog: TPrinterSetupDialog
    Left = 276
    Top = 93
  end
|  object StatusLine: TStatusBar
    Align = alBottom
    Height = 23
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    ParentFont = False
    SimplePanel = True
  end
|  object SpeedBar: TPanel
    Align = alTop
    Height = 33
|    object SpeedButton%d: TSpeedButton
      Left = %d
      Top = 4
      Width = 25
      Height = 25
      OnClick = %s
      Hint = '%s'
      NumGlyphs = 2
      Glyph.Data = {
|