"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/formgoto.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).

formgoto.pas  (CudaText-1.92.0):formgoto.pas  (CudaText-1.93.0)
skipping to change at line 48 skipping to change at line 48
{ private declarations } { private declarations }
procedure SetIsDoubleBuffered(AValue: boolean); procedure SetIsDoubleBuffered(AValue: boolean);
procedure EditCheckInput(Sender: TObject; AChar: WideChar; var AllowInput: b oolean); procedure EditCheckInput(Sender: TObject; AChar: WideChar; var AllowInput: b oolean);
public public
{ public declarations } { public declarations }
procedure Localize; procedure Localize;
property IsDoubleBuffered: boolean write SetIsDoubleBuffered; property IsDoubleBuffered: boolean write SetIsDoubleBuffered;
end; end;
var var
fmGoto: TfmGoto; fmGoto: TfmGoto = nil;
implementation implementation
{$R *.lfm} {$R *.lfm}
{ TfmGoto } { TfmGoto }
procedure TfmGoto.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState ); procedure TfmGoto.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );
begin begin
if key=VK_ESCAPE then if key=VK_ESCAPE then
skipping to change at line 141 skipping to change at line 141
procedure TfmGoto.FormCreate(Sender: TObject); procedure TfmGoto.FormCreate(Sender: TObject);
begin begin
edInput.BorderStyle:= bsNone; edInput.BorderStyle:= bsNone;
edInput.OnCheckInput:= @EditCheckInput; edInput.OnCheckInput:= @EditCheckInput;
IsDoubleBuffered:= UiOps.DoubleBuffered; IsDoubleBuffered:= UiOps.DoubleBuffered;
end; end;
procedure TfmGoto.Localize; procedure TfmGoto.Localize;
const
section = 'd_f';
var
fn: string;
ini: TIniFile;
begin begin
fn:= GetAppLangFilename;
if not FileExists(fn) then exit;
ini:= TIniFile.Create(fn);
try
with edInput 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
FreeAndNil(ini);
end;
end; end;
end. end.
 End of changes. 3 change blocks. 
24 lines changed or deleted 1 lines changed or added

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