Project MDEDIT1
Project Structure
MDEDIT1.DPR
program MdEdit1;
uses
Forms,
RichForm in 'RichForm.pas' {FormRichNote};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TFormRichNote, FormRichNote);
Application.Run;
end.
RICHFORM.PAS
unit RichForm;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Menus, ActnList, ToolWin, ImgList, ClipBrd,
RichEdit;
type
TFormRichNote = class(TForm)
RichEdit: TRichEdit;
FontDialog: TFontDialog;
MainMenu: TMainMenu;
File1: TMenuItem;
Open1: TMenuItem;
Saveas1: TMenuItem;
Exit1: TMenuItem;
Font1: TMenuItem;
Bold1: TMenuItem;
Italic1: TMenuItem;
Paragraph1: TMenuItem;
LeftAligned1: TMenuItem;
Centered1: TMenuItem;
RightAligned1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
More1: TMenuItem;
ColorDialog: TColorDialog;
ActionList: TActionList;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;
acCentered: TAction;
acUndo: TAction;
acCut: TAction;
acPaste: TAction;
acCopy: TAction;
acBold: TAction;
acItalic: TAction;
acRightAligned: TAction;
acLeftAligned: TAction;
acSave: TAction;
Undo1: TMenuItem;
acFont: TAction;
acCountChars: TAction;
Images: TImageList;
ToolButton12: TToolButton;
ToolButton17: TToolButton;
SizeMenu: TPopupMenu;
Small1: TMenuItem;
Medium1: TMenuItem;
Large1: TMenuItem;
procedure BoldExecute(Sender: TObject);
procedure ItalicExecute(Sender: TObject);
procedure ChangeAlignment(Sender: TObject);
procedure AboutExecute(Sender: TObject);
procedure ExitExecute(Sender: TObject);
procedure OpenExecute(Sender: TObject);
procedure SaveAsExecute(Sender: TObject);
procedure BackColorExecute(Sender: TObject);
procedure FontExecute(Sender: TObject);
procedure CountCharsExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure NewExecute(Sender: TObject);
procedure SaveExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure PrintExecute(Sender: TObject);
procedure acSaveUpdate(Sender: TObject);
procedure acBoldUpdate(Sender: TObject);
procedure acItalicUpdate(Sender: TObject);
procedure RichEditChange(Sender: TObject);
procedure acCountcharsUpdate(Sender: TObject);
procedure acCutExecute(Sender: TObject);
procedure acCutUpdate(Sender: TObject);
procedure acCopyExecute(Sender: TObject);
procedure acPasteExecute(Sender: TObject);
procedure acPasteUpdate(Sender: TObject);
procedure acUndoExecute(Sender: TObject);
procedure acUndoUpdate(Sender: TObject);
procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
procedure ToolButton17Click(Sender: TObject);
procedure SetFontSize(Sender: TObject);
private
FileName: string;
Modified: Boolean;
public
function SaveChanges: Boolean;
function Save: Boolean;
function SaveAs: Boolean;
end;
var
FormRichNote: TFormRichNote;
implementation
{$R *.DFM}
/////////// Font operations
procedure TFormRichNote.BoldExecute(Sender: TObject);
begin
with RichEdit.SelAttributes do
if fsBold in Style then
Style := Style - [fsBold]
else
Style := Style + [fsBold];
end;
procedure TFormRichNote.ItalicExecute(Sender: TObject);
begin
with RichEdit.SelAttributes do
if fsItalic in Style then
Style := Style - [fsItalic]
else
Style := Style + [fsItalic];
end;
procedure TFormRichNote.FontExecute(Sender: TObject);
begin
FontDialog.Font.Assign (RichEdit.SelAttributes);
if FontDialog.Execute then
RichEdit.SelAttributes.Assign (FontDialog.Font);
end;
// right + center + left actions
procedure TFormRichNote.ChangeAlignment(Sender: TObject);
begin
// change paragraph alignment using the TAlignment
// value saved in the tag of the action
RichEdit.Paragraph.Alignment := TAlignment (
(Sender as TAction).Tag);
end;
procedure TFormRichNote.AboutExecute(Sender: TObject);
begin
MessageDlg ('RichNote Demo' + #13#13
+ 'written for the book "Mastering Delphi" by Marco Cant�',
mtInformation, [mbOK], 0);
end;
/////////// File menu
procedure TFormRichNote.NewExecute(Sender: TObject);
begin
if not Modified or SaveChanges then
begin
RichEdit.Text := '';
Modified := False;
FileName := '';
Caption := 'RichNote - [Untitled]';
end;
end;
procedure TFormRichNote.ExitExecute(Sender: TObject);
begin
Close;
end;
procedure TFormRichNote.OpenExecute(Sender: TObject);
begin
if not Modified or SaveChanges then
if OpenDialog.Execute then
begin
Filename := OpenDialog.FileName;
RichEdit.Lines.LoadFromFile (FileName);
Modified := False;
Caption := 'RichNote - ' + FileName;
RichEdit.ReadOnly := ofReadOnly in
OpenDialog.Options;
end;
end;
// return False to skip current operation
function TFormRichNote.SaveChanges: Boolean;
begin
case MessageDlg (
'The document ' + filename + ' has changed.' +
#13#13+'Do you want to save the changes?',
mtConfirmation, mbYesNoCancel, 0) of
idYes:
// call Save and return its result
Result := Save;
idNo:
// do not save and continue
Result := True;
else // idCancel:
// do not save and abort operation
Result := False;
end;
end;
// return False means the SaveAs has been aborted
function TFormRichNote.Save: Boolean;
begin
if Filename = '' then
Result := SaveAs // ask for a file name
else
begin
RichEdit.Lines.SaveToFile (FileName);
Modified := False;
Result := True;
end;
end;
// return False if SaveAs dialog box is cancelled
function TFormRichNote.SaveAs: Boolean;
begin
SaveDialog.FileName := Filename;
if SaveDialog.Execute then
begin
Filename := SaveDialog.FileName;
Save;
Caption := Filename + ' - ' +
Application.Title;
Result := True;
end
else
Result := False;
end;
procedure TFormRichNote.SaveExecute(Sender: TObject);
begin
if Modified then
Save;
end;
procedure TFormRichNote.SaveAsExecute(Sender: TObject);
begin
SaveAs;
end;
procedure TFormRichNote.PrintExecute(Sender: TObject);
begin
RichEdit.Print (FileName);
end;
procedure TFormRichNote.RichEditChange(Sender: TObject);
begin
// enables save operations
Modified := True;
end;
/////////// Options menu
procedure TFormRichNote.BackColorExecute(Sender: TObject);
begin
ColorDialog.Color := RichEdit.Color;
if ColorDialog.Execute then
RichEdit.Color := ColorDialog.Color;
end;
procedure TFormRichNote.CountCharsExecute(Sender: TObject);
begin
MessageDlg (Format (
'The text has %d characters', [RichEdit.GetTextLen]),
mtInformation, [mbOK], 0);
end;
/////////// Form events
procedure TFormRichNote.FormCreate(Sender: TObject);
begin
FileName := '';
Modified := False;
Application.Title := Caption;
end;
procedure TFormRichNote.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
// short-circuit evaluation: if not modified
// doesn't even try to save. Doesn't close if
// save request is cancelled
CanClose := not Modified or SaveChanges;
end;
// update events for actions
procedure TFormRichNote.acSaveUpdate(Sender: TObject);
begin
acSave.Enabled := Modified;
end;
procedure TFormRichNote.acBoldUpdate(Sender: TObject);
begin
acBold.Checked := fsBold in RichEdit.SelAttributes.Style;
end;
procedure TFormRichNote.acItalicUpdate(Sender: TObject);
begin
acItalic.Checked := fsItalic in RichEdit.SelAttributes.Style;
end;
procedure TFormRichNote.acCountcharsUpdate(Sender: TObject);
begin
acCountChars.Enabled := RichEdit.GetTextLen > 0;
end;
procedure TFormRichNote.acCutExecute(Sender: TObject);
begin
RichEdit.CutToClipboard;
end;
procedure TFormRichNote.acCutUpdate(Sender: TObject);
begin
acCut.Enabled := RichEdit.SelLength > 0;
acCopy.Enabled := acCut.Enabled;
end;
procedure TFormRichNote.acCopyExecute(Sender: TObject);
begin
RichEdit.CopyToClipboard;
end;
procedure TFormRichNote.acPasteExecute(Sender: TObject);
begin
RichEdit.PasteFromClipboard;
end;
procedure TFormRichNote.acPasteUpdate(Sender: TObject);
begin
acPaste.Enabled := SendMessage (
RichEdit.Handle, em_CanPaste, 0, 0) <> 0;
end;
procedure TFormRichNote.acUndoExecute(Sender: TObject);
begin
RichEdit.Undo;
end;
procedure TFormRichNote.acUndoUpdate(Sender: TObject);
begin
acUndo.Enabled := RichEdit.CanUndo;
end;
procedure TFormRichNote.ActionListUpdate(Action: TBasicAction;
var Handled: Boolean);
begin
// check the proper paragraph alignment
case RichEdit.Paragraph.Alignment of
taLeftJustify: acLeftAligned.Checked := True;
taRightJustify: acRightAligned.Checked := True;
taCenter: acCentered.Checked := True;
end;
end;
procedure TFormRichNote.ToolButton17Click(Sender: TObject);
begin
RichEdit.SelAttributes.Size :=
RichEdit.SelAttributes.Size + 2;
end;
procedure TFormRichNote.SetFontSize(Sender: TObject);
begin
RichEdit.SelAttributes.Size :=
(Sender as TMenuItem).Tag;
end;
end.
RICHFORM.DFM
object FormRichNote: TFormRichNote
Left = 223
Top = 105
Width = 560
Height = 403
Caption = 'MdEdit1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu
OldCreateOrder = True
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object RichEdit: TRichEdit
Left = 0
Top = 25
Width = 552
Height = 332
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = 'Times New Roman'
Font.Style = []
HideScrollBars = False
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
OnChange = RichEditChange
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 552
Height = 25
AutoSize = True
ButtonHeight = 23
Flat = True
Images = Images
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = acNew
end
object ToolButton2: TToolButton
Left = 23
Top = 0
Action = acOpen
end
object ToolButton3: TToolButton
Left = 46
Top = 0
Action = acSave
end
object ToolButton20: TToolButton
Left = 69
Top = 0
Width = 8
ImageIndex = 16
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 77
Top = 0
Action = acPrint
end
object ToolButton5: TToolButton
Left = 100
Top = 0
Width = 8
ImageIndex = 4
Style = tbsSeparator
end
object ToolButton7: TToolButton
Left = 108
Top = 0
Action = acCut
end
object ToolButton8: TToolButton
Left = 131
Top = 0
Action = acCopy
end
object ToolButton9: TToolButton
Left = 154
Top = 0
Action = acPaste
end
object ToolButton6: TToolButton
Left = 177
Top = 0
Action = acUndo
end
object ToolButton21: TToolButton
Left = 200
Top = 0
Width = 8
ImageIndex = 16
Style = tbsSeparator
end
object ToolButton10: TToolButton
Left = 208
Top = 0
Action = acBold
end
object ToolButton11: TToolButton
Left = 231
Top = 0
Action = acItalic
end
object ToolButton13: TToolButton
Left = 254
Top = 0
Width = 8
ImageIndex = 11
Style = tbsSeparator
end
object ToolButton14: TToolButton
Left = 262
Top = 0
Action = acLeftAligned
Grouped = True
Style = tbsCheck
end
object ToolButton15: TToolButton
Left = 285
Top = 0
Action = acCentered
Grouped = True
Style = tbsCheck
end
object ToolButton16: TToolButton
Left = 308
Top = 0
Action = acRightAligned
Grouped = True
Style = tbsCheck
end
object ToolButton12: TToolButton
Left = 331
Top = 0
Width = 8
ImageIndex = 13
Style = tbsSeparator
end
object ToolButton17: TToolButton
Left = 339
Top = 0
Caption = 'Font Size'
DropdownMenu = SizeMenu
ImageIndex = 13
Style = tbsDropDown
OnClick = ToolButton17Click
end
end
object FontDialog: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 216
Top = 96
end
object MainMenu: TMainMenu
Images = Images
Left = 152
Top = 40
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Action = acNew
end
object N1: TMenuItem
Caption = '-'
end
object Open1: TMenuItem
Action = acOpen
end
object Save1: TMenuItem
Action = acSave
end
object Saveas1: TMenuItem
Action = acSaveas
end
object N2: TMenuItem
Caption = '-'
end
object Print1: TMenuItem
Action = acPrint
end
object N3: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Action = acExit1
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object Undo1: TMenuItem
Action = acUndo
end
object N6: TMenuItem
Caption = '-'
end
object Cut2: TMenuItem
Action = acCut
end
object Copy1: TMenuItem
Action = acCopy
end
object Paste1: TMenuItem
Action = acPaste
end
end
object Font1: TMenuItem
Caption = '&Font'
object Bold1: TMenuItem
Action = acBold
end
object Italic1: TMenuItem
Action = acItalic
end
object N5: TMenuItem
Caption = '-'
end
object More1: TMenuItem
Action = acFont
end
end
object Paragraph1: TMenuItem
Caption = '&Paragraph'
object LeftAligned1: TMenuItem
Action = acLeftAligned
GroupIndex = 1
RadioItem = True
end
object RightAligned1: TMenuItem
Action = acRightAligned
GroupIndex = 1
RadioItem = True
end
object Centered1: TMenuItem
Action = acCentered
GroupIndex = 1
RadioItem = True
end
end
object Options1: TMenuItem
Caption = '&Options'
object BackColor1: TMenuItem
Action = acBackColor
end
object Countchars1: TMenuItem
Action = acCountchars
end
end
object Help1: TMenuItem
Caption = '&Help'
object About1: TMenuItem
Action = acAbout
end
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'rtf'
Filter = 'Rich Text File (*.rtf)|*.rtf|Any file (*.*)|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Left = 24
Top = 40
end
object SaveDialog: TSaveDialog
DefaultExt = 'rtf'
Filter = 'Rich Text File (*.rtf)|*.rtf|Any file (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt]
Left = 88
Top = 40
end
object ColorDialog: TColorDialog
Ctl3D = True
Left = 216
Top = 40
end
object ActionList: TActionList
Images = Images
OnUpdate = ActionListUpdate
Left = 24
Top = 96
object acNew: TAction
Category = 'File'
Caption = '&New'
ImageIndex = 0
ShortCut = 113
OnExecute = NewExecute
end
object acOpen: TAction
Category = 'File'
Caption = '&Open...'
ImageIndex = 1
ShortCut = 16463
OnExecute = OpenExecute
end
object acSave: TAction
Category = 'File'
Caption = '&Save'
ImageIndex = 2
ShortCut = 16467
OnExecute = SaveExecute
OnUpdate = acSaveUpdate
end
object acSaveas: TAction
Category = 'File'
Caption = 'Save &as...'
OnExecute = SaveAsExecute
end
object acPrint: TAction
Category = 'File'
Caption = '&Print'
ImageIndex = 3
ShortCut = 16464
OnExecute = PrintExecute
end
object acExit1: TAction
Category = 'File'
Caption = 'E&xit'
ShortCut = 32883
OnExecute = ExitExecute
end
object acCut: TAction
Category = 'Edit'
Caption = 'Cu&t'
ImageIndex = 5
ShortCut = 16472
OnExecute = acCutExecute
OnUpdate = acCutUpdate
end
object acCopy: TAction
Category = 'Edit'
Caption = '&Copy'
ImageIndex = 6
ShortCut = 16451
OnExecute = acCopyExecute
OnUpdate = acCutUpdate
end
object acPaste: TAction
Category = 'Edit'
Caption = '&Paste'
ImageIndex = 7
ShortCut = 16470
OnExecute = acPasteExecute
OnUpdate = acPasteUpdate
end
object acBold: TAction
Category = 'Font'
Caption = '&Bold'
ImageIndex = 8
ShortCut = 16450
OnExecute = BoldExecute
OnUpdate = acBoldUpdate
end
object acItalic: TAction
Category = 'Font'
Caption = '&Italic'
ImageIndex = 9
ShortCut = 16457
OnExecute = ItalicExecute
OnUpdate = acItalicUpdate
end
object acFont: TAction
Category = 'Font'
Caption = '&Font...'
ImageIndex = 15
OnExecute = FontExecute
end
object acLeftAligned: TAction
Category = 'Paragraph'
Caption = '&Left'
Checked = True
ImageIndex = 10
ShortCut = 16460
OnExecute = ChangeAlignment
end
object acCentered: TAction
Tag = 2
Category = 'Paragraph'
Caption = '&Centered'
ImageIndex = 11
ShortCut = 16453
OnExecute = ChangeAlignment
end
object acBackColor: TAction
Category = 'Options'
Caption = '&Background Color...'
OnExecute = BackColorExecute
end
object acCountchars: TAction
Category = 'Options'
Caption = '&Count chars...'
ImageIndex = 14
OnExecute = CountCharsExecute
OnUpdate = acCountcharsUpdate
end
object acAbout: TAction
Category = 'Help'
Caption = '&About RichNote...'
OnExecute = AboutExecute
end
object acUndo: TAction
Category = 'Edit'
Caption = '&Undo'
ImageIndex = 4
ShortCut = 16474
OnExecute = acUndoExecute
OnUpdate = acUndoUpdate
end
object acRightAligned: TAction
Tag = 1
Category = 'Paragraph'
Caption = '&Right'
ImageIndex = 12
ShortCut = 16466
OnExecute = ChangeAlignment
end
end
object Images: TImageList
Left = 88
Top = 98
Bitmap = {
494C01010E001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000005000000001001000000000000028
0000000000000000000000000000000000003E7A437C033F9041F8038F47CB7A
0C002845010080757334C4000000DA41010080456E74A07FFF7F284E0100005D
CB000000EB5DB545EC416C12332BB74125788045F92B4B79C93A7834C0000000
E80EC4018042E0074527750680459741FA00DB400100003ABE452F38E877B501
8041F800B428CD230C28DE41010080442572E81CB70380458045945D61708246
8C5D1B4800093A1835044B4090523D18C900A61D3412103FEE2FBE2D6202002B
CB7876232C403501BE61E86362038042603A752B4B646868B90080756B2BCB78
4B034560351228420100005DC30000004B67E841FF7F7F34DC0000005A430100
80456E74B27FFF7FBE61437C013A8B41F8006B74E179FF7FC33E0800B407CB26
94440135012C3F2FBB6462080028682A1579FF45250A43108075680000000000
0000FF7FFF7F01000040FF7FFF7FFF7FFF7FFF7FFF7F01000040FF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1B2A0402332B
CB6C4B793F1A3735A045E62CD97B792B4B7D0F42827B0C00CB6BCD2660746C0F
0300CB79CB26EC7F2572C322780AA11D2D78C9266C3AA71D2D7A3D25AA00B842
603AA74525084B02C8452D7CCB041B024D10123D103AED7F357CCB65F76C9B64
03673128FF3A8C452D7EFF3A64747D480300C56D3457FF22884166066B53CB22
E84425726B5B1360EB5AC56DB40ACB2A8845B37F357E4B04B07F515400008042
E007442C77068045257A3F2FBB646206802A4B7643768029B62BCB3E8819FB46
843FC926FC45946258514118031A6550C240901C3D0A4D026548C24090443D04
340A4B67E848B1008045F842FB07C415770680452D7E8F5B21018F5B8945F015
F11DF63E9301702BFF3A7C74244703004560257AEB5D2A11B9465D08FF7FFF79
C5464D08FF7F7F7411010000CB69CD46907FFF7FE846020080465508FF7FFF45
257C76201408B403CB656878010080452508776C1B60CD26FC116128CB21202B
7F5878000000CD25907F3504682000008042E007444D77068045257C76201408
B403CB65E8325C0380413D7E003A98452320E86D5C7FFF50EC3A2310431C003A
122B00000035942CCD3EC079453400010000CB656879C6018041E802776C1B60
A045F0462D50683D857EFF413D50053A85463550EB34CD220C28A85D01008045
6B743D3B0700C33E0C00B472CD42847FFF7F30350774617DFF7FFF3A90412544
80464512FF7F7F28AA03CB65E82EFE7FFF446674A60B00009364D2004100B620
00742478FF7F4B684569B4014375E446261EE83D427FFF19E945361E4B63E86B
0B008050F43A2310431C003A122B2806DE208050F43A23104B00E865527FFF50
E03A2310431C003A122B2838DD208050E03A23104B00E8735C7FFF50F03A2310
431C003A122B2820DF208050F03A23104B00240B9200201E873A725981501064
2010E845477FFF44260AD2004158A8210074BC43FE7F4B684569B4014375F046
2616E875427F7F59815050342310E82F477FFF45F042723A83416A784D231074
6E41FE7FD2004174B1210074A24BFE7F492318598150E8382310E819577FFF44
260ED2004174B1210074844BFE7F492380455008201038082010180920101008
201020082010142AB437A437AC34333AB030B239252A2839A530A4462000C31E
1C192310003A8A501C192310E81A05008061332B4469340443627074FA40FE7F
4B6D4B7813694B63E85A557FFF19E0442612662308004B634560B40143747874
CE4AFE7F49232063261A04588319724570632412047AE927447FFF412412047A
E926447F7F66EC72CD208077CD20807CCD20806ECD2080000000006DC7305C26
476991551E00E027513DB202CE20000600000000000080462000444721101547
2110000000000000000000000000000000000000000000000000444721101000
0000703323103008201008092010100920100000000000000000000000000000
0000000000000000000000000000000000002D491E500C0001411C000141B034
A3390000000039491E500C0001411C000141E4462110CD227C742C42FE7FE374
8641FE7F6B78BE2DB92E63000000C017A8415059F2085D630000E8255F53EC41
607AE95B000080412412047AE928447FFF410000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000FF7F000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008624A337AE390000454A1E500C00
01411C0001418024A337AE390000314A1E500C0001411C000141FE1000000000
0000000000000000000000000000000000000000000000000000000000000000
00001D4A1E500C0001411C000141000000000000000000000000000000000000
00000000000000000000FF3F00000000FF7F0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000F75E000000000000
F75E000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000EF3D0000F75E000000000000
F75E000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000EF3D0000EF3D000000000000
EF3D0000EF3D0000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000F75E00000000000000000000
00000000F75E0000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000EF3D0000EF3D0000EF3D
0000EF3D00000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F75E0000EF3D0000EF3D
0000EF3D00000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000F75E0000
0000000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000EF3D0000EF3D0000
EF3D000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000EF3D000000000000
EF3D000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000F75E000000000000
F75E0000EF3D00000000000000000000EF3D0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EF3D000000000000EF3D00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EF3D000000000000EF3D00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000EF3D0000EF3D000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000EF3D0000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000010001000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000001000
1000100010001000100010001000100010000000000000000000000000000000
0000000000000000000000000000000000000000000000000000100000000000
1000000000001000100000000000000000000000000000000000000000000000
1000100010001000100010001000100010000000000000000000000000001000
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
0000000000000000000000000000000000000000000000000000100000000000
1000000010000000000010000000000000000000000000000000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000104200421042004210421000
FF7F000000000000000000000000FF7F10000000000000000000000000000000
0000000000000000000000000000000000000000000000000000100000000000
1000000010000000000010000000000000000000000000000000000000000000
1000FF7F00000000000000000000FF7F10000000004210420042104200421000
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000000000000000000000000000
0000000000000000000010000000000000000000000000000000000010001000
1000000010000000000010000000000000000000000000000000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000104200421042004210421000
FF7F000000000000FF7F10001000100010000000000010001000100010001000
0000000000000000000010000000000000000000000000000000000000000000
10000000100010001000000000000000000000000000FF7FFF7FFF7FFF7FFF7F
1000FF7F00000000000000000000FF7F10000000004210420042104200421000
FF7FFF7FFF7FFF7FFF7F1000FF7F100000000000000010001000100010000000
0000000000000000000000001000000000000000000000000000000000000000
10000000100000000000000000000000000000000000FF7F0000000000000000
1000FF7FFF7FFF7FFF7FFF7FFF7FFF7F10000000104200421042004210421000
FF7FFF7FFF7FFF7FFF7F10001000000000000000000010001000100000000000
0000000000000000000000001000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F
1000FF7F00000000FF7F10001000100010000000004210420042104200421000
1000100010001000100010000000000000000000000010001000000010000000
0000000000000000000000001000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F0000000000000000
1000FF7FFF7FFF7FFF7F1000FF7F100000000000104200421042004210420042
1042004210420042104200420000000000000000000010000000000000001000
1000000000000000000010000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F
1000FF7FFF7FFF7FFF7F10001000000000000000004210420000000000000000
0000000000000000104210420000000000000000000000000000000000000000
0000100010001000100000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F00000000FF7F0000
1000100010001000100010000000000000000000104210420000000000000000
0000000000000000104200420000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F0000
FF7F0000000000000000000000000000000000000042104200420000E07F0000
0000E07F00001042004210420000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F0000
000000000000000000000000000000000000000000000000000000000000E07F
E07F000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000420042000000000000
0000000000000000000000000042000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000000000420042004200420042
0042004200420042000000000000000000000000000000420042000000000000
0000000000000000000000000042000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000E07F00000042004200420042
0042004200420042004200000000000000000000000000420042000000000000
0000000000000000000000000042000000000000000000000000000000000000
E07FE07FE07F000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FE07F0000004200420042
0042004200420042004200420000000000000000000000420042000000000000
0000000000000000000000000042000000000000000000000000000000000000
104210421042000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000E07FFF7FE07F000000420042
0042004200420042004200420042000000000000000000420042004200420042
0042004200420042004200420042000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FE07FFF7FE07F00000000
0000000000000000000000000000000000000000000000420042000000000000
0000000000000000000000420042000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000E07FFF7FE07FFF7FE07FFF7F
E07FFF7FE07F0000000000000000000000000000000000420000000000000000
0000000000000000000000000042000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FE07FFF7FE07FFF7FE07F
FF7FE07FFF7F0000000000000000000000000000000000420000000000000000
000000000000000000000000004200000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F00000000000000000000E07FFF7FE07F000000000000
0000000000000000000000000000000000000000000000420000000000000000
0000000000000000000000000042000000000000000000000000FF7F00000000
000000000000FF7F00000000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7F00000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000420000000000000000
0000000000000000000000000042000000000000000000000000FF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7F0000FF7F000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000420000000000000000
00000000000000000000000000000000000000000000000000000000FF7F0000
0000000000000000FF7F0000000000000000000000000000FF7FFF7FFF7FFF7F
FF7FFF7F00000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000420000000000000000
00000000000000000000000000000000000000000000000000000000FF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000500000000100010000000000800200000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFFFFF00000000FFFF8E2300000000
FFFF8E2300000000C0078E2300000000FFFF8023DFFFDFFFF807C0630000DFFF
FFFFC4630000FFFFC007C463FFFFFFFFFFFFE0E3FFFFFFFFF807E0E3FFFFFFFF
FFFFE0E300000000C007E08000000000FFFFFFC100000000F807FFC100000000
FFFFFFE300000000FFFFFFF700000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFC007C007F00F81FFFFFFFFFFF8C7E3FFC03FF83F
F8C7F1FFFFFFFFFFF8C7F8FFC007C007F80FFC7FFFFFFFFFF8C7FE3FC03FF01F
F8C7FF1FFFFFFFFFF8C7FF8FC007C007F00FFF03FFFFFFFFFFFFFFFFC03FF83F
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9FFFFFFFC00
FFFFF6CFFE008000FFFFF6B7FE000000FFFFF6B7FE000000FFF7F8B780000000
C1F7FE8F80000001C3FBFE3F80000003C7FBFF7F80000003CBFBFE3F80010003
DCF7FEBF80030003FF0FFC9F80070FC3FFFFFDDF807F0003FFFFFDDF80FF8007
FFFFFDDF81FFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC001C007
C007001F8031BFEBC007000F80310005C007000780317E31C007000380017E35
C007000180010006C007000080017FEAC007001F8FF18014C007001F8FF1C00A
C007001F8FF1E001C0078FF18FF1E007C00FFFF98FF1F007C01FFF758FF5F003
C03FFF8F8001F803FFFFFFFFFFFFFFFF00000000000000000000000000000000
000000000000}
end
object SizeMenu: TPopupMenu
Left = 152
Top = 96
object Small1: TMenuItem
Tag = 10
Caption = 'Small'
OnClick = SetFontSize
end
object Medium1: TMenuItem
Tag = 16
Caption = 'Medium'
OnClick = SetFontSize
end
object Large1: TMenuItem
Tag = 32
Caption = 'Large'
OnClick = SetFontSize
end
end
end
|
Home:
Code Repository:
Mastering Delphi 5