I was going to ask "What version is that?" but I just noticed it's the
Unicode version... Fixed in CVS.
Thanks,
Fl=E1vio
On 11/1/07, Nils Hoyer <Privat@...> wrote:
>
> Hi,
>
> inside the SynEdit.pas File I think there is a bug in the
> TCustomSynEdit.ExecuteAction function. The TEditUndo action will never
> be executed, since there is a problem with the if structure.
>
>
> if Result then
> begin
> if Action is TEditCut then
> CutToClipboard
> else if Action is TEditCopy then
> CopyToClipboard
> else if Action is TEditPaste then
> PasteFromClipboard
> {$IFDEF SYN_COMPILER_5_UP}
> else if Action is TEditDelete then
> if SelAvail then
> ClearSelection
> else
> CommandProcessor(ecDeleteChar, ' ', nil)
> end
> {$IFDEF SYN_CLX}
> {$ELSE}
> else if Action is TEditUndo then
> Undo
> {$ENDIF}
> else if Action is TEditSelectAll then
> SelectAll;
> {$ENDIF}
>
>
>
> ... and this is the solution of the bug in my eyes:
>
>
> if Result then
> begin
> if Action is TEditCut then
> CutToClipboard
> else if Action is TEditCopy then
> CopyToClipboard
> else if Action is TEditPaste then
> PasteFromClipboard
> {$IFDEF SYN_COMPILER_5_UP}
> else if Action is TEditDelete then
> if SelAvail then
> ClearSelection
> else
> CommandProcessor(ecDeleteChar, ' ', nil)
> {$IFDEF SYN_CLX}
> {$ELSE}
> else if Action is TEditUndo then
> Undo
> {$ENDIF}
> else if Action is TEditSelectAll then
> SelectAll;
> end
> {$ENDIF}
>
>
> With this fix TEditUndo will be executed as well.
>
> Thank you for reading my note.
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems? Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >> http://get.splunk.com/
> _______________________________________________
> Synedit-devel mailing list
> Synedit-devel@...
> https://lists.sourceforge.net/lists/listinfo/synedit-devel
>
|