paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 09:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpWeb: correctly enable edit controls when New HTTP Server Application dialog is shown

Browse Source
This commit is contained in:
Maxim Ganetsky 2021-12-18 01:44:08 +03:00
parent 4f73a1d210
commit c55ec94d74
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpweb/frmnewhttpapp.pp
View File

@ -56,15 +56,18 @@ uses fpWebStrConsts;
{ TNewHTTPApplicationForm } { TNewHTTPApplicationForm }
procedure TNewHTTPApplicationForm.FormCreate(Sender: TObject); procedure TNewHTTPApplicationForm.FormCreate(Sender: TObject);
var
SF: TServeFiles;
begin begin
SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute);
DEDocumentRoot.Enabled:=(Sf<>sfNoFiles);
LocalizeForm; LocalizeForm;
end; end;
procedure TNewHTTPApplicationForm.RBNoFilesChange(Sender: TObject); procedure TNewHTTPApplicationForm.RBNoFilesChange(Sender: TObject);
var
Var SF: TServeFiles;
SF : TServeFiles;
begin begin
SF:=ServeFiles; SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute); ELocation.Enabled:=(Sf=sfSingleRoute);