paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 09:00:21 +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 interface
uses uses
Classes, SysUtils, Controls, StdCtrls, Forms, Buttons, ExtCtrls, LResources, Classes, SysUtils, LCLLinux, Controls, StdCtrls, Forms, Buttons, ExtCtrls,
LCLLinux, XMLCfg, SynEdit; LResources, SynEdit;
type type
TLazFindReplaceDialog = class(TFORM) TLazFindReplaceDialog = class(TFORM)

18
ide/uniteditor.pp
View File

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