"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/formfind.pas" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

formfind.pas  (CudaText-1.92.0):formfind.pas  (CudaText-1.93.0)
skipping to change at line 197 skipping to change at line 197
procedure UpdateInputReplace(const AText: UnicodeString); procedure UpdateInputReplace(const AText: UnicodeString);
property OnResult: TAppFinderOperationEvent read FOnResult write FOnResult; property OnResult: TAppFinderOperationEvent read FOnResult write FOnResult;
property OnChangeOptions: TNotifyEvent read FOnChangeOptions write FOnChange Options; property OnChangeOptions: TNotifyEvent read FOnChangeOptions write FOnChange Options;
property IsReplace: boolean read FReplace write SetReplace; property IsReplace: boolean read FReplace write SetReplace;
property IsMultiLine: boolean read FMultiLine write SetMultiLine; property IsMultiLine: boolean read FMultiLine write SetMultiLine;
property IsNarrow: boolean read FNarrow write SetNarrow; property IsNarrow: boolean read FNarrow write SetNarrow;
property IsDoubleBuffered: boolean write SetIsDoubleBuffered; property IsDoubleBuffered: boolean write SetIsDoubleBuffered;
end; end;
var var
fmFind: TfmFind; fmFind: TfmFind = nil;
implementation implementation
{$R *.lfm} {$R *.lfm}
const const
cTokensDesc: array[TATFinderTokensAllowed] of string = ( cTokensDesc: array[TATFinderTokensAllowed] of string = (
'Any', 'Any',
'Only comments', 'Only comments',
'Only strings', 'Only strings',
skipping to change at line 997 skipping to change at line 997
with bTokens do with bTokens do
begin begin
Items[0]:= ini.ReadString(section, 'tk_a', Items[0]); Items[0]:= ini.ReadString(section, 'tk_a', Items[0]);
Items[1]:= ini.ReadString(section, 'tk_y_c', Items[1]); Items[1]:= ini.ReadString(section, 'tk_y_c', Items[1]);
Items[2]:= ini.ReadString(section, 'tk_y_s', Items[2]); Items[2]:= ini.ReadString(section, 'tk_y_s', Items[2]);
Items[3]:= ini.ReadString(section, 'tk_y_cs', Items[3]); Items[3]:= ini.ReadString(section, 'tk_y_cs', Items[3]);
Items[4]:= ini.ReadString(section, 'tk_n_c', Items[4]); Items[4]:= ini.ReadString(section, 'tk_n_c', Items[4]);
Items[5]:= ini.ReadString(section, 'tk_n_s', Items[5]); Items[5]:= ini.ReadString(section, 'tk_n_s', Items[5]);
Items[6]:= ini.ReadString(section, 'tk_n_cs', Items[6]); Items[6]:= ini.ReadString(section, 'tk_n_cs', Items[6]);
end; end;
with edFind do
begin
MenuitemTextCut.Caption:= msgEditCut;
MenuitemTextCopy.Caption:= msgEditCopy;
MenuitemTextPaste.Caption:= msgEditPaste;
MenuitemTextDelete.Caption:= msgEditDelete;
MenuitemTextSelAll.Caption:= msgEditSelectAll;
MenuitemTextUndo.Caption:= msgEditUndo;
MenuitemTextRedo.Caption:= msgEditRedo;
end;
with edRep do
begin
MenuitemTextCut.Caption:= msgEditCut;
MenuitemTextCopy.Caption:= msgEditCopy;
MenuitemTextPaste.Caption:= msgEditPaste;
MenuitemTextDelete.Caption:= msgEditDelete;
MenuitemTextSelAll.Caption:= msgEditSelectAll;
MenuitemTextUndo.Caption:= msgEditUndo;
MenuitemTextRedo.Caption:= msgEditRedo;
end;
finally finally
FreeAndNil(ini); FreeAndNil(ini);
end; end;
end; end;
bFindFirst.AutoSize:= true; bFindFirst.AutoSize:= true;
bFindNext.AutoSize:= true; bFindNext.AutoSize:= true;
bFindPrev.AutoSize:= true; bFindPrev.AutoSize:= true;
bCount.AutoSize:= true; bCount.AutoSize:= true;
bExtract.AutoSize:= true; bExtract.AutoSize:= true;
 End of changes. 2 change blocks. 
23 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)