paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: clear goto line dialog everytime

Browse Source 
git-svn-id: trunk@273 -
This commit is contained in:
lazarus 2001-05-26 19:40:03 +00:00
parent 439314eca1
commit 8d2b0856cc
2 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/findreplacedialog.pp
View File

@ -23,8 +23,8 @@ unit findreplacedialog;
interface
uses
Classes, SysUtils, Controls, StdCtrls, Forms, Buttons, ExtCtrls, LResources,
LCLLinux, XMLCfg, SynEdit;
Classes, SysUtils, LCLLinux, Controls, StdCtrls, Forms, Buttons, ExtCtrls,
LResources, SynEdit;
type
TLazFindReplaceDialog = class(TFORM)

30
ide/uniteditor.pp
View File

@ -338,9 +338,7 @@ type
Edit1 : TEdit;
btnOK : TBitbtn;
btnCancel : TBitBtn;
procedure Edit1KeyDown(Sender: TObject; var Key:Word;
Shift:TShiftState);
private
procedure Edit1KeyDown(Sender: TObject; var Key:Word; Shift:TShiftState);
public
constructor Create(AOwner : TComponent); override;
end;
@ -351,7 +349,8 @@ uses
LCLLinux, TypInfo, LResources, LazConf, EnvironmentOpts;
type
TCompletionType = (ctNone, ctWordCompletion, ctTemplateCompletion, ctCodeCompletion);
TCompletionType = (ctNone, ctWordCompletion, ctTemplateCompletion,
ctCodeCompletion);
const
TSrcEditMarkerImgIndex: array[TSrcEditMarkerType] of integer = (
@ -379,7 +378,6 @@ var
constructor TSourceEditor.Create(AOwner : TComponent; AParent : TWinControl);
Begin
writeln('TSourceEditor.create 1');
inherited Create;
FAOwner := AOwner;
@ -388,16 +386,14 @@ writeln('TSourceEditor.create 1');
FExecutionLine:=-1;
FControl := nil;
writeln('TSourceEditor.create 2');
CreateEditor(AOwner,AParent);
writeln('TSourceEditor.create end');
end;
destructor TSourceEditor.Destroy;
begin
writeln('TSourceEditor.Destroy');
FEditor.Free;
inherited;
inherited Destroy;
end;
{------------------------------G O T O L I N E -----------------------------}
@ -779,14 +775,16 @@ Writeln('[ProcessUserCommand] --------------');
end;
ecGotoLineNumber :
if (GotoDialog.ShowModal = mrOK) then
Begin
try
GotoLine(StrToInt(GotoDialog.Edit1.Text));
except
GotoLine(0);
end;
end;
begin
GotoDialog.Edit1.Text:='';
if (GotoDialog.ShowModal = mrOK) then begin
try
GotoLine(StrToInt(GotoDialog.Edit1.Text));
except
GotoLine(0);
end;
end;
end;
ecPeriod :
Begin