[lddp-cvs-commits] SF.net SVN: lddp:[388] trunk
Brought to you by:
billthefish,
c_schmitz
From: <bil...@us...> - 2011-11-17 00:25:46
|
Revision: 388 http://lddp.svn.sourceforge.net/lddp/?rev=388&view=rev Author: billthefish Date: 2011-11-17 00:25:39 +0000 (Thu, 17 Nov 2011) Log Message: ----------- Modified Paths: -------------- trunk/docs/how to compile this.txt Added Paths: ----------- trunk/Projects/ScintillaLDDP.res trunk/Source/Units/LDDPHelperTypes.pas Removed Paths: ------------- trunk/Source/Units/EditorDoc.pas trunk/installer/ Property Changed: ---------------- trunk/Projects/ Property changes on: trunk/Projects ___________________________________________________________________ Modified: svn:ignore - *.dcu *.identcache *.local *.tvsconfig __history + *.dcu *.identcache *.local *.tvsconfig Win32 __history Added: trunk/Projects/ScintillaLDDP.res =================================================================== (Binary files differ) Property changes on: trunk/Projects/ScintillaLDDP.res ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Deleted: trunk/Source/Units/EditorDoc.pas =================================================================== --- trunk/Source/Units/EditorDoc.pas 2011-11-17 00:18:58 UTC (rev 387) +++ trunk/Source/Units/EditorDoc.pas 2011-11-17 00:25:39 UTC (rev 388) @@ -1,110 +0,0 @@ -{These sources are copyright (C) 2003-2010 Orion Pobursky. - -This source is free software; you can redistribute it and/or -modify it under the terms of the GNU General Public License -as published by the Free Software Foundation; either version 2 -of the License, or (at your option) any later version. - -This source is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - --------------------------------------------------------------------------------} -unit EditorDoc; - -interface - -uses - ComCtrls, SynEdit, SynEditTextBuffer, SynEditTypes; - -type - - TLDDPEditorDoc = class(TObject) - private - FFileName: string; - FSelStart: Integer; - FSelEnd: Integer; - FFirstLineInView: LongInt; - FCaretPos: TBufferCoord; - FModified: Boolean; - FLastChanged : TDateTime; - FUndoList: TSynEditUndoList; - FRedoList: TSynEditUndoList; - FText: string; - - public - constructor Create(editor: TCustomSynEdit); - destructor Destroy; override; - procedure AssignFromEditor(editor: TCustomSynEdit); - procedure AssignToEditor(editor: TCustomSynEdit); - property Text: string read FText write FText; - property FileName: string read FFileName write FFileName; - property LastChanged: TDateTime read FLastChanged write FLastChanged; - property Modified: Boolean read FModified write FModified; - end; - - -implementation - -uses - SysUtils; - -constructor TLDDPEditorDoc.Create(editor: TCustomSynEdit); -begin - inherited Create; - FLastChanged := -1; - FFileName := ''; - FUndoList := TSynEditUndoList.Create; - FRedoList := TSynEditUndoList.Create; - AssignFromEditor(editor); -end; - -destructor TLDDPEditorDoc.Destroy; -begin - FUndoList.Free; - FRedoList.Free; - inherited; -end; - -procedure TLDDPEditorDoc.AssignFromEditor(editor: TCustomSynEdit); -begin - FFirstLineInView := editor.TopLine; - FCaretPos := editor.CaretXY; - FSelStart := editor.SelStart; - FSelEnd := editor.SelEnd; - FModified := editor.Modified; - FText := editor.Lines.Text; - FUndoList.Assign(editor.UndoList); - FRedoList.Assign(editor.RedoList); -end; - -procedure TLDDPEditorDoc.AssignToEditor(editor: TCustomSynEdit); - -var - Caret: TBufferCoord; - SelStart, SelEnd, FirstLine: Integer; - -begin - // Preserve caret and selection values since these may be changed - // by loading text into the editor. - Caret := FCaretPos; - SelStart := FSelStart; - SelEnd := FSelEnd; - FirstLine := FFirstLineInView; - - editor.Lines.Text := FText; - editor.UndoList.Assign(FUndoList); - editor.RedoList.Assign(FRedoList); - editor.CaretXY := Caret; - editor.SelStart := SelStart; - editor.SelEnd := SelEnd; - editor.Modified := FModified; - editor.TopLine := FirstLine; -end; - -end. Added: trunk/Source/Units/LDDPHelperTypes.pas =================================================================== --- trunk/Source/Units/LDDPHelperTypes.pas (rev 0) +++ trunk/Source/Units/LDDPHelperTypes.pas 2011-11-17 00:25:39 UTC (rev 388) @@ -0,0 +1,33 @@ +{These sources are copyright (C) 2003-2011 Orion Pobursky. + +This source is free software; you can redistribute it and/or +modify it under the terms of the GNU General Public License +as published by the Free Software Foundation; either version 2 +of the License, or (at your option) any later version. + +This source is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +-------------------------------------------------------------------------------} +unit LDDPHelperTypes; + +interface + +type + TEditorDoc = record + EditorDoc: Pointer; + Filename: string; + FileAge: TDateTime; + end; + PEditorDoc = ^TEditorDoc; + +implementation + + +end. Modified: trunk/docs/how to compile this.txt =================================================================== --- trunk/docs/how to compile this.txt 2011-11-17 00:18:58 UTC (rev 387) +++ trunk/docs/how to compile this.txt 2011-11-17 00:25:39 UTC (rev 388) @@ -4,8 +4,7 @@ You'll need: * Embarcadero Delphi. - Delphi XE2 is used for development but it may build in - earlier versions down to Delphi 6 (this has not been tested) + Delphi XE2 is used for development To compile this source successfully, you'll also need to download and install the following component suites: @@ -14,8 +13,9 @@ http://jvcl.sourceforge.net Note: The LDDP code is incompatible with JVCL 2.x or lower -* SynEdit - http://synedit.sourceforge.net - Note: Since the Synedit developers don't seem to like to - release packages very often, LDDP uses the current SVN - snapshot for development \ No newline at end of file +* DScntilla + http://code.google.com/p/dscintilla/ + +* Scintilla + http://www.scintilla.org/ + Use the SciLexer.dll included in the Current Build directory \ No newline at end of file This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |