mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
98 lines
3.6 KiB
ObjectPascal
98 lines
3.6 KiB
ObjectPascal
{-------------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
Datetime format is dd.MM.yyyy hh:mm:ss.
|
|
|
|
The Original Code is: SynEditHighlighterOptions.pas, released 12.09.2012.
|
|
|
|
All Rights Reserved.
|
|
|
|
Contributors to the SynEdit and mwEdit projects are listed in the
|
|
Contributors.txt file.
|
|
|
|
$Id: SynEditHighlighterOptions.pas,v 1.0.2 25.10.2012 11:16:19 CodehunterWorks Exp $
|
|
|
|
You may retrieve the latest version of this file at the SynEdit home page,
|
|
located at http://SynEdit.SourceForge.net
|
|
|
|
Last Changes:
|
|
21.09.2012 08:37:10 - Moved from String to WideString
|
|
25.10.2012 11:16:19 - Added DefaultExtension property
|
|
|
|
Known Issues:
|
|
-------------------------------------------------------------------------------}
|
|
|
|
unit SynEditHighlighterOptions;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TSynEditHighlighterOptions = class(TPersistent)
|
|
private
|
|
FAutoDetectEnabled: Boolean;
|
|
FAutoDetectLineLimit: Cardinal;
|
|
FAutoDetectMatchExpression: WideString;
|
|
FDefaultExtension: WideString;
|
|
FLineCommentarEnd: WideString;
|
|
FLineCommentarStart: WideString;
|
|
FTitle: WideString;
|
|
FVisible: Boolean;
|
|
public
|
|
procedure Assign(Source: TPersistent); override;
|
|
procedure AssignTo(Dest: TPersistent); override;
|
|
published
|
|
property AutoDetectEnabled: Boolean read FAutoDetectEnabled write FAutoDetectEnabled;
|
|
property AutoDetectLineLimit: Cardinal read FAutoDetectLineLimit write FAutoDetectLineLimit;
|
|
property AutoDetectMatchExpression: WideString read FAutoDetectMatchExpression write FAutoDetectMatchExpression;
|
|
property DefaultExtension: WideString read FDefaultExtension write FDefaultExtension;
|
|
property LineCommentarEnd: WideString read FLineCommentarEnd write FLineCommentarEnd;
|
|
property LineCommentarStart: WideString read FLineCommentarStart write FLineCommentarStart;
|
|
property Title: WideString read FTitle write FTitle;
|
|
property Visible: Boolean read FVisible write FVisible;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TSynEditHighlighterOptions.Assign(Source: TPersistent);
|
|
begin
|
|
if Source.InheritsFrom(TSynEditHighlighterOptions) then begin
|
|
with TSynEditHighlighterOptions(Source) do begin
|
|
FAutoDetectEnabled := AutoDetectEnabled;
|
|
FAutoDetectMatchExpression := AutoDetectMatchExpression;
|
|
FAutoDetectLineLimit := AutoDetectLineLimit;
|
|
FDefaultExtension := DefaultExtension;
|
|
FLineCommentarStart := LineCommentarStart;
|
|
FLineCommentarEnd := LineCommentarEnd;
|
|
FTitle := Title;
|
|
FVisible := Visible;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynEditHighlighterOptions.AssignTo(Dest: TPersistent);
|
|
begin
|
|
if Dest.InheritsFrom(TSynEditHighlighterOptions) then begin
|
|
with TSynEditHighlighterOptions(Dest) do begin
|
|
AutoDetectEnabled := FAutoDetectEnabled;
|
|
AutoDetectMatchExpression := FAutoDetectMatchExpression;
|
|
AutoDetectLineLimit := FAutoDetectLineLimit;
|
|
DefaultExtension := FDefaultExtension;
|
|
LineCommentarStart := FLineCommentarStart;
|
|
LineCommentarEnd := FLineCommentarEnd;
|
|
Title := FTitle;
|
|
Visible := FVisible;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|