Menu
▾
▴
[Synedit-checkins] SynEdit/Demos/EditAppDemos frmEditor.dfm, 1.5.2.2, 1.5.2.3 frmEditor.pas, 1.5.2.1, 1.5.2.2 frmMainWorkbook.dfm, 1.1.2.2, 1.1.2.3
|
From: Maël Hörz <ma...@us...> - 2008-09-14 16:27:31
|
Update of /cvsroot/synedit/SynEdit/Demos/EditAppDemos In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv19785/Demos/EditAppDemos Modified Files: Tag: Unicode_2004_08_31 frmEditor.dfm frmEditor.pas frmMainWorkbook.dfm Log Message: Changes for compatibility with Delphi 2009 Index: frmMainWorkbook.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/EditAppDemos/frmMainWorkbook.dfm,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -u -d -r1.1.2.2 -r1.1.2.3 --- frmMainWorkbook.dfm 10 Nov 2004 21:30:21 -0000 1.1.2.2 +++ frmMainWorkbook.dfm 14 Sep 2008 16:24:57 -0000 1.1.2.3 @@ -1,16 +1,16 @@ -inherited WorkbookMainForm: TWorkbookMainForm - Caption = 'Workbook Edit Demo' - OldCreateOrder = True - OnCloseQuery = FormCloseQuery - PixelsPerInch = 96 - TextHeight = 13 - object pctrlMain: TPageControl [0] - Left = 0 - Top = 0 - Width = 506 - Height = 273 - Align = alClient - TabOrder = 0 - TabStop = False - end -end +inherited WorkbookMainForm: TWorkbookMainForm + Caption = 'Workbook Edit Demo' + OldCreateOrder = True + OnCloseQuery = FormCloseQuery + PixelsPerInch = 96 + TextHeight = 13 + object pctrlMain: TPageControl [0] + Left = 0 + Top = 0 + Width = 506 + Height = 273 + Align = alClient + TabOrder = 0 + TabStop = False + end +end Index: frmEditor.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/EditAppDemos/frmEditor.pas,v retrieving revision 1.5.2.1 retrieving revision 1.5.2.2 diff -u -d -r1.5.2.1 -r1.5.2.2 --- frmEditor.pas 10 Nov 2004 21:30:21 -0000 1.5.2.1 +++ frmEditor.pas 14 Sep 2008 16:24:57 -0000 1.5.2.2 @@ -43,7 +43,7 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus, uEditAppIntfs, SynEdit, SynEditTypes, SynEditMiscProcs, - SynEditMiscClasses, SynEditSearch; + SynEditMiscClasses, SynEditSearch, SynUnicode; type TEditorKind = (ekBorderless, ekInTabsheet, ekMDIChild); @@ -73,7 +73,7 @@ procedure SynEditorEnter(Sender: TObject); procedure SynEditorExit(Sender: TObject); procedure SynEditorReplaceText(Sender: TObject; const ASearch, - AReplace: WideString; Line, Column: Integer; + AReplace: UnicodeString; Line, Column: Integer; var Action: TSynReplaceAction); procedure SynEditorStatusChange(Sender: TObject; Changes: TSynStatusChanges); @@ -673,7 +673,7 @@ end; procedure TEditorForm.SynEditorReplaceText(Sender: TObject; const ASearch, - AReplace: WideString; Line, Column: Integer; var Action: TSynReplaceAction); + AReplace: UnicodeString; Line, Column: Integer; var Action: TSynReplaceAction); var APos: TPoint; EditRect: TRect; Index: frmEditor.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/EditAppDemos/frmEditor.dfm,v retrieving revision 1.5.2.2 retrieving revision 1.5.2.3 diff -u -d -r1.5.2.2 -r1.5.2.3 --- frmEditor.dfm 10 Nov 2004 21:30:21 -0000 1.5.2.2 +++ frmEditor.dfm 14 Sep 2008 16:24:56 -0000 1.5.2.3 @@ -1,97 +1,97 @@ -object EditorForm: TEditorForm - Left = 338 - Top = 199 - Width = 470 - Height = 326 - ActiveControl = SynEditor - Caption = 'Editor' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - OnActivate = FormActivate - OnClose = FormClose - OnCloseQuery = FormCloseQuery - OnDestroy = FormDestroy - OnDeactivate = FormDeactivate - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object SynEditor: TSynEdit - Left = 0 - Top = 0 - Width = 462 - Height = 292 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Courier New' - Font.Style = [] - PopupMenu = pmnuEditor - TabOrder = 0 - OnEnter = SynEditorEnter - OnExit = SynEditorExit - Gutter.Font.Charset = DEFAULT_CHARSET - Gutter.Font.Color = clWindowText - Gutter.Font.Height = -11 - Gutter.Font.Name = 'Courier New' - Gutter.Font.Style = [] - SearchEngine = SynEditSearch1 - OnChange = SynEditorChange - OnReplaceText = SynEditorReplaceText - OnStatusChange = SynEditorStatusChange - RemovedKeystrokes = < - item - Command = ecDeleteLastChar - ShortCut = 8200 - end - item - Command = ecLineBreak - ShortCut = 8205 - end - item - Command = ecContextHelp - ShortCut = 112 - end> - AddedKeystrokes = <> - end - object pmnuEditor: TPopupMenu - Left = 92 - Top = 28 - object lmiEditUndo: TMenuItem - Action = CommandsDataModule.actEditUndo - end - object lmiEditRedo: TMenuItem - Action = CommandsDataModule.actEditRedo - end - object N2: TMenuItem - Caption = '-' - end - object lmiEditCut: TMenuItem - Action = CommandsDataModule.actEditCut - end - object lmiEditCopy: TMenuItem - Action = CommandsDataModule.actEditCopy - end - object lmiEditPaste: TMenuItem - Action = CommandsDataModule.actEditPaste - end - object lmiEditDelete: TMenuItem - Action = CommandsDataModule.actEditDelete - end - object N1: TMenuItem - Caption = '-' - end - object lmiEditSelectAll: TMenuItem - Action = CommandsDataModule.actEditSelectAll - end - end - object SynEditSearch1: TSynEditSearch - Left = 92 - Top = 64 - end -end +object EditorForm: TEditorForm + Left = 338 + Top = 199 + Width = 470 + Height = 326 + ActiveControl = SynEditor + Caption = 'Editor' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnActivate = FormActivate + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnDestroy = FormDestroy + OnDeactivate = FormDeactivate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object SynEditor: TSynEdit + Left = 0 + Top = 0 + Width = 462 + Height = 292 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] + PopupMenu = pmnuEditor + TabOrder = 0 + OnEnter = SynEditorEnter + OnExit = SynEditorExit + Gutter.Font.Charset = DEFAULT_CHARSET + Gutter.Font.Color = clWindowText + Gutter.Font.Height = -11 + Gutter.Font.Name = 'Courier New' + Gutter.Font.Style = [] + SearchEngine = SynEditSearch1 + OnChange = SynEditorChange + OnReplaceText = SynEditorReplaceText + OnStatusChange = SynEditorStatusChange + RemovedKeystrokes = < + item + Command = ecDeleteLastChar + ShortCut = 8200 + end + item + Command = ecLineBreak + ShortCut = 8205 + end + item + Command = ecContextHelp + ShortCut = 112 + end> + AddedKeystrokes = <> + end + object pmnuEditor: TPopupMenu + Left = 92 + Top = 28 + object lmiEditUndo: TMenuItem + Action = CommandsDataModule.actEditUndo + end + object lmiEditRedo: TMenuItem + Action = CommandsDataModule.actEditRedo + end + object N2: TMenuItem + Caption = '-' + end + object lmiEditCut: TMenuItem + Action = CommandsDataModule.actEditCut + end + object lmiEditCopy: TMenuItem + Action = CommandsDataModule.actEditCopy + end + object lmiEditPaste: TMenuItem + Action = CommandsDataModule.actEditPaste + end + object lmiEditDelete: TMenuItem + Action = CommandsDataModule.actEditDelete + end + object N1: TMenuItem + Caption = '-' + end + object lmiEditSelectAll: TMenuItem + Action = CommandsDataModule.actEditSelectAll + end + end + object SynEditSearch1: TSynEditSearch + Left = 92 + Top = 64 + end +end |