mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-20 12:19:31 +02:00
added sort selection
git-svn-id: trunk@2857 -
This commit is contained in:
mattias
parent
2bc6db6986
commit
436b87870a
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -216,6 +216,7 @@ ide/projectopts.lrs svneol=native#text/pascal
|
||||
ide/projectopts.pp svneol=native#text/pascal
|
||||
ide/publishprojectdlg.pas svneol=native#text/pascal
|
||||
ide/runparamsopts.pas svneol=native#text/pascal
|
||||
ide/sortselectiondlg.pas svneol=native#text/pascal
|
||||
ide/sourceeditprocs.pas svneol=native#text/pascal
|
||||
ide/sourcemarks.pas svneol=native#text/pascal
|
||||
ide/splash.lrs svneol=native#text/pascal
|
||||
|
||||
10
ide/main.pp
10
ide/main.pp
@ -101,6 +101,7 @@ type
|
||||
procedure mnuEditTabsToSpacesBlockClicked(Sender: TObject);
|
||||
procedure mnuEditCommentBlockClicked(Sender: TObject);
|
||||
procedure mnuEditUncommentBlockClicked(Sender: TObject);
|
||||
procedure mnuEditSortBlockClicked(Sender: TObject);
|
||||
procedure mnuEditSelectAllClick(Sender: TObject);
|
||||
procedure mnuEditSelectCodeBlockClick(Sender: TObject);
|
||||
procedure mnuEditSelectToBraceClick(Sender: TObject);
|
||||
@ -1340,6 +1341,7 @@ begin
|
||||
itmEditTabsToSpacesBlock.OnClick:=@mnuEditTabsToSpacesBlockClicked;
|
||||
itmEditCommentBlock.OnClick:=@mnuEditCommentBlockClicked;
|
||||
itmEditUncommentBlock.OnClick:=@mnuEditUncommentBlockClicked;
|
||||
itmEditSortBlock.OnClick:=@mnuEditSortBlockClicked;
|
||||
itmEditSelectAll.OnClick:=@mnuEditSelectAllClick;
|
||||
itmEditSelectToBrace.OnClick:=@mnuEditSelectToBraceClick;
|
||||
itmEditSelectCodeBlock.OnClick:=@mnuEditSelectCodeBlockClick;
|
||||
@ -7373,6 +7375,11 @@ begin
|
||||
DoEditMenuCommand(ecSelectionUncomment);
|
||||
end;
|
||||
|
||||
procedure TMainIDE.mnuEditSortBlockClicked(Sender: TObject);
|
||||
begin
|
||||
DoEditMenuCommand(ecSelectionSort);
|
||||
end;
|
||||
|
||||
procedure TMainIDE.mnuEditSelectAllClick(Sender: TObject);
|
||||
begin
|
||||
DoEditMenuCommand(ecSelectAll);
|
||||
@ -7556,6 +7563,9 @@ end.
|
||||
|
||||
{ =============================================================================
|
||||
$Log$
|
||||
Revision 1.448 2003/01/03 12:27:48 mattias
|
||||
added sort selection
|
||||
|
||||
Revision 1.447 2003/01/02 04:33:55 mattias
|
||||
implemented incremental find and unit usage counts
|
||||
|
||||
|
||||
503
ide/sortselectiondlg.pas
Normal file
503
ide/sortselectiondlg.pas
Normal file
@ -0,0 +1,503 @@
|
||||
{ $Id$ }
|
||||
{
|
||||
/***************************************************************************
|
||||
sortselectiondlg.pas
|
||||
--------------------
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
***************************************************************************
|
||||
* *
|
||||
* 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 code 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. *
|
||||
* *
|
||||
* A copy of the GNU General Public License is available on the World *
|
||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||||
* obtain it by writing to the Free Software Foundation, *
|
||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||||
* *
|
||||
***************************************************************************
|
||||
|
||||
Author: Mattias Gaertner
|
||||
|
||||
|
||||
}
|
||||
unit SortSelectionDlg;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Forms, Controls, SynEdit, Buttons, StdCtrls, ExtCtrls,
|
||||
IDEOptionDefs, Dialogs, BasicCodeTools, AVL_Tree;
|
||||
|
||||
type
|
||||
TSortDirection = (sdAscending, sdDescending);
|
||||
TSortDomain = (sdWords, sdLines);
|
||||
|
||||
TSortSelDlgState = (ssdPreviewNeedsUpdate, ssdSortedTextNeedsUpdate);
|
||||
TSortSelDlgStates = set of TSortSelDlgState;
|
||||
|
||||
TSortSelectionDialog = class(TForm)
|
||||
PreviewGroupBox: TGroupBox;
|
||||
PreviewSynEdit: TSynEdit;
|
||||
DirectionRadioGroup: TRadioGroup;
|
||||
DomainRadioGroup: TRadioGroup;
|
||||
OptionsGroupBox: TGroupBox;
|
||||
CaseSensitiveCheckBox: TCheckBox;
|
||||
IgnoreSpaceCheckBox: TCheckBox;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure CaseSensitiveCheckBoxClick(Sender: TObject);
|
||||
procedure DirectionRadioGroupClick(Sender: TObject);
|
||||
procedure DomainRadioGroupClick(Sender: TObject);
|
||||
procedure IgnoreSpaceCheckBoxClick(Sender: TObject);
|
||||
procedure SortSelectionDialogResize(Sender: TObject);
|
||||
private
|
||||
FCaseSensitive: boolean;
|
||||
FDirection: TSortDirection;
|
||||
FDomain: TSortDomain;
|
||||
FIgnoreSpace: boolean;
|
||||
FStates: TSortSelDlgStates;
|
||||
FTheText: string;
|
||||
FUpdateCount: integer;
|
||||
FSortedText: string;
|
||||
function GetSortedText: string;
|
||||
procedure SetCaseSensitive(const AValue: boolean);
|
||||
procedure SetDirection(const AValue: TSortDirection);
|
||||
procedure SetDomain(const AValue: TSortDomain);
|
||||
procedure SetIgnoreSpace(const AValue: boolean);
|
||||
procedure SetTheText(const AValue: string);
|
||||
public
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
procedure BeginUpdate;
|
||||
procedure EndUpdate;
|
||||
procedure UpdatePreview;
|
||||
public
|
||||
property CaseSensitive: boolean read FCaseSensitive write SetCaseSensitive;
|
||||
property Direction: TSortDirection read FDirection write SetDirection;
|
||||
property Domain: TSortDomain read FDomain write SetDomain;
|
||||
property IgnoreSpace: boolean read FIgnoreSpace write SetIgnoreSpace;
|
||||
property TheText: string read FTheText write SetTheText;
|
||||
property SortedText: string read GetSortedText;
|
||||
end;
|
||||
|
||||
function ShowSortSelectionDialog(const TheText: string;
|
||||
var SortedText: string): TModalResult;
|
||||
function SortText(const TheText: string; Direction: TSortDirection;
|
||||
Domain: TSortDomain; CaseSensitive, IgnoreSpace: boolean): string;
|
||||
|
||||
implementation
|
||||
|
||||
function ShowSortSelectionDialog(const TheText: string;
|
||||
var SortedText: string): TModalResult;
|
||||
var
|
||||
SortSelectionDialog: TSortSelectionDialog;
|
||||
begin
|
||||
SortSelectionDialog:=TSortSelectionDialog.Create(Application);
|
||||
SortSelectionDialog.TheText:=TheText;
|
||||
Result:=SortSelectionDialog.ShowModal;
|
||||
if Result=mrOk then
|
||||
SortedText:=SortSelectionDialog.SortedText;
|
||||
SortSelectionDialog.Free;
|
||||
end;
|
||||
|
||||
type
|
||||
TTextBlockCompareSettings = class
|
||||
public
|
||||
CaseSensitive: boolean;
|
||||
IgnoreSpace: boolean;
|
||||
Ascending: boolean;
|
||||
end;
|
||||
|
||||
TTextBlock = class
|
||||
public
|
||||
Settings: TTextBlockCompareSettings;
|
||||
Start: PChar;
|
||||
Len: integer;
|
||||
constructor Create(TheSettings: TTextBlockCompareSettings;
|
||||
NewStart: PChar; NewLen: integer);
|
||||
end;
|
||||
|
||||
{ TTextBlock }
|
||||
|
||||
constructor TTextBlock.Create(TheSettings: TTextBlockCompareSettings;
|
||||
NewStart: PChar; NewLen: integer);
|
||||
begin
|
||||
Settings:=TheSettings;
|
||||
Start:=NewStart;
|
||||
Len:=NewLen;
|
||||
end;
|
||||
|
||||
function CompareTextBlock(Data1, Data2: Pointer): integer;
|
||||
var
|
||||
Block1: TTextBlock;
|
||||
Block2: TTextBlock;
|
||||
Settings: TTextBlockCompareSettings;
|
||||
begin
|
||||
Block1:=TTextBlock(Data1);
|
||||
Block2:=TTextBlock(Data2);
|
||||
Settings:=Block1.Settings;
|
||||
Result:=CompareText(Block1.Start,Block1.Len,Block2.Start,Block2.Len,
|
||||
Settings.CaseSensitive,Settings.IgnoreSpace);
|
||||
if not Settings.Ascending then
|
||||
Result:=-Result;
|
||||
end;
|
||||
|
||||
function SortText(const TheText: string; Direction: TSortDirection;
|
||||
Domain: TSortDomain; CaseSensitive, IgnoreSpace: boolean): string;
|
||||
var
|
||||
Settings: TTextBlockCompareSettings;
|
||||
Tree: TAVLTree;
|
||||
StartPos: Integer;
|
||||
EndPos: Integer;
|
||||
ANode: TAVLTreeNode;
|
||||
ABlock: TTextBlock;
|
||||
TxtLen: integer;
|
||||
LastNode: TAVLTreeNode;
|
||||
LastBlock: TTextBlock;
|
||||
LastChar: Char;
|
||||
Last2Char: Char;
|
||||
begin
|
||||
Result:=TheText;
|
||||
if Result='' then exit;
|
||||
// create compare settings
|
||||
Settings:=TTextBlockCompareSettings.Create;
|
||||
Settings.CaseSensitive:=CaseSensitive;
|
||||
Settings.IgnoreSpace:=IgnoreSpace;
|
||||
Settings.Ascending:=(Direction=sdAscending);
|
||||
// create AVL tree
|
||||
Tree:=TAVLTree.Create(@CompareTextBlock);
|
||||
|
||||
// collect blocks
|
||||
StartPos:=1;
|
||||
TxtLen:=length(TheText);
|
||||
while StartPos<=TxtLen do begin
|
||||
EndPos:=StartPos+1;
|
||||
while (EndPos<=TxtLen) do begin
|
||||
case Domain of
|
||||
sdWords:
|
||||
// check if word start
|
||||
if (TheText[EndPos] in ['_','a'..'z','A'..'Z'])
|
||||
and (EndPos>1)
|
||||
and (not (TheText[EndPos-1] in ['_','a'..'z','A'..'Z']))
|
||||
then
|
||||
break;
|
||||
|
||||
sdLines:
|
||||
// check if LineEnd
|
||||
if (TheText[EndPos] in [#10,#13]) then begin
|
||||
inc(EndPos);
|
||||
if (EndPos<=TxtLen) and (TheText[EndPos] in [#10,#13])
|
||||
and (TheText[EndPos]<>TheText[EndPos-1]) then
|
||||
inc(EndPos);
|
||||
break;
|
||||
end;
|
||||
|
||||
end;
|
||||
inc(EndPos);
|
||||
end;
|
||||
if EndPos>TxtLen then EndPos:=TxtLen+1;
|
||||
if EndPos>StartPos then
|
||||
Tree.Add(TTextBlock.Create(Settings,@TheText[StartPos],EndPos-StartPos));
|
||||
StartPos:=EndPos;
|
||||
end;
|
||||
|
||||
// build sorted text
|
||||
Result:='';
|
||||
ANode:=Tree.FindHighest;
|
||||
while ANode<>nil do begin
|
||||
ABlock:=TTextBlock(ANode.Data);
|
||||
Result:=Result+copy(TheText,ABlock.Start-PChar(TheText)+1,ABlock.Len);
|
||||
case Domain of
|
||||
sdLines:
|
||||
if not (Result[length(Result)] in [#10,#13]) then begin
|
||||
// this was the last line before the sorting
|
||||
// if it moved, then copy the line end of the new last line
|
||||
LastNode:=Tree.FindLowest;
|
||||
LastBlock:=TTextBlock(LastNode.Data);
|
||||
LastChar:=PChar(LastBlock.Start+LastBlock.Len-1)^;
|
||||
if LastChar in [#10,#13] then begin
|
||||
if (LastBlock.Len>1) then begin
|
||||
Last2Char:=PChar(LastBlock.Start+LastBlock.Len-2)^;
|
||||
if Last2Char in [#10,#13] then
|
||||
Result:=Result+Last2Char;
|
||||
end;
|
||||
Result:=Result+LastChar;
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
ANode:=Tree.FindPrecessor(ANode);
|
||||
end;
|
||||
|
||||
// clean up
|
||||
Tree.FreeAndClear;
|
||||
Settings.Free;
|
||||
end;
|
||||
|
||||
{ TSortSelectionDialog }
|
||||
|
||||
procedure TSortSelectionDialog.SortSelectionDialogResize(Sender: TObject);
|
||||
begin
|
||||
with PreviewGroupBox do begin
|
||||
Width:=Self.ClientWidth-2*Left;
|
||||
Height:=Self.ClientHeight-Top-90;
|
||||
end;
|
||||
|
||||
with DirectionRadioGroup do begin
|
||||
Top:=PreviewGroupBox.Top+PreviewGroupBox.Height+5;
|
||||
Width:=((Self.ClientWidth-5) div 2)-Left;
|
||||
end;
|
||||
|
||||
with DomainRadioGroup do begin
|
||||
Left:=DirectionRadioGroup.Left+DirectionRadioGroup.Width+5;
|
||||
Top:=DirectionRadioGroup.Top;
|
||||
Width:=DirectionRadioGroup.Width;
|
||||
Height:=DirectionRadioGroup.Height;
|
||||
end;
|
||||
|
||||
with OkButton do begin
|
||||
Left:=Self.ClientWidth-200;
|
||||
Top:=Self.ClientHeight-35;
|
||||
end;
|
||||
|
||||
with CancelButton do begin
|
||||
Left:=Self.ClientWidth-100;
|
||||
Top:=OkButton.Top;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.DirectionRadioGroupClick(Sender: TObject);
|
||||
begin
|
||||
if DirectionRadioGroup.ItemIndex=0 then
|
||||
Direction:=sdAscending
|
||||
else
|
||||
Direction:=sdDescending;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.CaseSensitiveCheckBoxClick(Sender: TObject);
|
||||
begin
|
||||
CaseSensitive:=CaseSensitiveCheckBox.Checked;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.DomainRadioGroupClick(Sender: TObject);
|
||||
begin
|
||||
if DomainRadioGroup.ItemIndex=0 then
|
||||
Domain:=sdLines
|
||||
else
|
||||
Domain:=sdWords;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.IgnoreSpaceCheckBoxClick(Sender: TObject);
|
||||
begin
|
||||
IgnoreSpace:=IgnoreSpaceCheckBox.Checked;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.SetDirection(const AValue: TSortDirection);
|
||||
begin
|
||||
if FDirection=AValue then exit;
|
||||
FDirection:=AValue;
|
||||
FStates:=FStates+[ssdPreviewNeedsUpdate,ssdSortedTextNeedsUpdate];
|
||||
UpdatePreview;
|
||||
end;
|
||||
|
||||
function TSortSelectionDialog.GetSortedText: string;
|
||||
begin
|
||||
if ssdSortedTextNeedsUpdate in FStates then begin
|
||||
FSortedText:=SortText(TheText,Direction,Domain,CaseSensitive,IgnoreSpace);
|
||||
Exclude(FStates,ssdSortedTextNeedsUpdate);
|
||||
end;
|
||||
Result:=FSortedText;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.SetCaseSensitive(const AValue: boolean);
|
||||
begin
|
||||
if FCaseSensitive=AValue then exit;
|
||||
FCaseSensitive:=AValue;
|
||||
FStates:=FStates+[ssdPreviewNeedsUpdate,ssdSortedTextNeedsUpdate];
|
||||
UpdatePreview;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.SetDomain(const AValue: TSortDomain);
|
||||
begin
|
||||
if FDomain=AValue then exit;
|
||||
FDomain:=AValue;
|
||||
FStates:=FStates+[ssdPreviewNeedsUpdate,ssdSortedTextNeedsUpdate];
|
||||
UpdatePreview;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.SetIgnoreSpace(const AValue: boolean);
|
||||
begin
|
||||
if FIgnoreSpace=AValue then exit;
|
||||
FIgnoreSpace:=AValue;
|
||||
FStates:=FStates+[ssdPreviewNeedsUpdate,ssdSortedTextNeedsUpdate];
|
||||
UpdatePreview;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.SetTheText(const AValue: string);
|
||||
begin
|
||||
if FTheText=AValue then exit;
|
||||
FTheText:=AValue;
|
||||
FStates:=FStates+[ssdPreviewNeedsUpdate,ssdSortedTextNeedsUpdate];
|
||||
UpdatePreview;
|
||||
end;
|
||||
|
||||
constructor TSortSelectionDialog.Create(TheOwner: TComponent);
|
||||
begin
|
||||
inherited Create(TheOwner);
|
||||
FIgnoreSpace:=true;
|
||||
FDirection:=sdAscending;
|
||||
FDomain:=sdLines;
|
||||
|
||||
Position:=poScreenCenter;
|
||||
IDEDialogLayoutList.ApplyLayout(Self,600,400);
|
||||
Caption:='Sort Selection';
|
||||
|
||||
PreviewGroupBox:=TGroupBox.Create(Self);
|
||||
with PreviewGroupBox do begin
|
||||
Name:='PreviewGroupBox';
|
||||
Parent:=Self;
|
||||
Left:=5;
|
||||
Top:=5;
|
||||
Width:=Self.ClientWidth-2*Left;
|
||||
Height:=Self.ClientHeight-Top-135;
|
||||
Caption:='Preview';
|
||||
end;
|
||||
|
||||
PreviewSynEdit:=TSynEdit.Create(Self);
|
||||
with PreviewSynEdit do begin
|
||||
Name:='PreviewSynEdit';
|
||||
Parent:=PreviewGroupBox;
|
||||
Align:=alClient;
|
||||
ReadOnly:=true;
|
||||
end;
|
||||
|
||||
DirectionRadioGroup:=TRadioGroup.Create(Self);
|
||||
with DirectionRadioGroup do begin
|
||||
Name:='DirectionRadioGroup';
|
||||
Parent:=Self;
|
||||
Left:=5;
|
||||
Top:=PreviewGroupBox.Top+PreviewGroupBox.Height+5;
|
||||
Width:=((Self.ClientWidth-5) div 2)-Left;
|
||||
Height:=40;
|
||||
Caption:='Direction';
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add('Ascending');
|
||||
Add('Descending');
|
||||
Columns:=2;
|
||||
EndUpdate;
|
||||
end;
|
||||
OnClick:=@DirectionRadioGroupClick;
|
||||
end;
|
||||
|
||||
DomainRadioGroup:=TRadioGroup.Create(Self);
|
||||
with DomainRadioGroup do begin
|
||||
Name:='DomainRadioGroup';
|
||||
Parent:=Self;
|
||||
Left:=DirectionRadioGroup.Left+DirectionRadioGroup.Width+5;
|
||||
Top:=DirectionRadioGroup.Top;
|
||||
Width:=DirectionRadioGroup.Width;
|
||||
Height:=DirectionRadioGroup.Height;
|
||||
Caption:='Domain';
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add('Lines');
|
||||
Add('Words');
|
||||
Columns:=2;
|
||||
EndUpdate;
|
||||
end;
|
||||
OnClick:=@DomainRadioGroupClick;
|
||||
end;
|
||||
|
||||
OptionsGroupBox:=TGroupBox.Create(Self);
|
||||
with OptionsGroupBox do begin
|
||||
Name:='OptionsGroupBox';
|
||||
Parent:=Self;
|
||||
Left:=DirectionRadioGroup.Left;
|
||||
Top:=DirectionRadioGroup.Top+DirectionRadioGroup.Height+5;
|
||||
Width:=DirectionRadioGroup.Width;
|
||||
Height:=DirectionRadioGroup.Height;
|
||||
Caption:='Options';
|
||||
end;
|
||||
|
||||
CaseSensitiveCheckBox:=TCheckBox.Create(Self);
|
||||
with CaseSensitiveCheckBox do begin
|
||||
Name:='CaseSensitiveCheckBox';
|
||||
Parent:=OptionsGroupBox;
|
||||
Left:=2;
|
||||
Top:=2;
|
||||
Width:=120;
|
||||
Caption:='Case Sensitive';
|
||||
OnClick:=@CaseSensitiveCheckBoxClick;
|
||||
end;
|
||||
|
||||
IgnoreSpaceCheckBox:=TCheckBox.Create(Self);
|
||||
with IgnoreSpaceCheckBox do begin
|
||||
Name:='IgnoreSpaceCheckBox';
|
||||
Parent:=OptionsGroupBox;
|
||||
Left:=125;
|
||||
Top:=2;
|
||||
Width:=120;
|
||||
Caption:='Ignore Space';
|
||||
Checked:=true;
|
||||
OnClick:=@IgnoreSpaceCheckBoxClick;
|
||||
end;
|
||||
|
||||
OkButton:=TButton.Create(Self);
|
||||
with OkButton do begin
|
||||
Name:='OkButton';
|
||||
Parent:=Self;
|
||||
Left:=Self.ClientWidth-200;
|
||||
Top:=Self.ClientHeight-35;
|
||||
Caption:='Sort';
|
||||
ModalResult:=mrOk;
|
||||
Default:=true;
|
||||
end;
|
||||
|
||||
CancelButton:=TButton.Create(Self);
|
||||
with CancelButton do begin
|
||||
Name:='CancelButton';
|
||||
Parent:=Self;
|
||||
Left:=Self.ClientWidth-100;
|
||||
Top:=OkButton.Top;
|
||||
Caption:='Cancel';
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
OnResize:=@SortSelectionDialogResize;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.BeginUpdate;
|
||||
begin
|
||||
inc(FUpdateCount);
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.EndUpdate;
|
||||
begin
|
||||
dec(FUpdateCount);
|
||||
if FUpdateCount=0 then UpdatePreview;
|
||||
end;
|
||||
|
||||
procedure TSortSelectionDialog.UpdatePreview;
|
||||
begin
|
||||
if FUpdateCount>0 then
|
||||
Include(FStates,ssdPreviewNeedsUpdate)
|
||||
else begin
|
||||
Exclude(FStates,ssdPreviewNeedsUpdate);
|
||||
PreviewSynEdit.Text:=SortedText;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user