opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update SynEdit component code to tag 2.1.0-beta. Potentially helps fixing #57.

Browse Source
This commit is contained in:
Ansgar Becker
2017-12-31 11:28:13 +01:00
parent 9b167c2015
commit 6da2bd6d43
117 changed files with 26480 additions and 19297 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/Source/SynEditPythonBehaviour.pas
View File

@@ -69,17 +69,17 @@ type
TSynEditPythonBehaviour = class(TComponent)
private
FEditor: TSynEdit;
fIndent: integer;
FIndent: Integer;
protected
procedure SetEditor(Value: TSynEdit); virtual;
procedure doProcessUserCommand(Sender: TObject; AfterProcessing: boolean;
var Handled: boolean; var Command: TSynEditorCommand;
procedure doProcessUserCommand(Sender: TObject; AfterProcessing: Boolean;
var Handled: Boolean; var Command: TSynEditorCommand;
var AChar: WideChar; Data: Pointer; HandlerData: Pointer); virtual;
public
constructor Create(aOwner: TComponent); override;
published
property Editor: TSynEdit read FEditor write SetEditor;
property Indent: integer read fIndent write fIndent default 4;
property Indent: Integer read FIndent write FIndent default 4;
end;
implementation
@@ -105,13 +105,13 @@ begin
end;
procedure TSynEditPythonBehaviour.doProcessUserCommand(Sender: TObject;
AfterProcessing: boolean; var Handled: boolean;
AfterProcessing: Boolean; var Handled: Boolean;
var Command: TSynEditorCommand; var AChar: WideChar; Data: Pointer;
HandlerData: pointer);
HandlerData: Pointer);
var
iEditor: TCustomSynEdit;
iPrevLine: UnicodeString;
cSpace: integer;
cSpace: Integer;
begin
if (Command = ecLineBreak) and AfterProcessing then
begin
@@ -135,8 +135,7 @@ end;
constructor TSynEditPythonBehaviour.Create(aOwner: TComponent);
begin
inherited Create(AOwner);
fIndent := 4;
FIndent := 4;
end;
end.