paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:18:03 +02: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 }
procedure TNewHTTPApplicationForm.FormCreate(Sender: TObject);
var
SF: TServeFiles;
begin
SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute);
DEDocumentRoot.Enabled:=(Sf<>sfNoFiles);
LocalizeForm;
end;
procedure TNewHTTPApplicationForm.RBNoFilesChange(Sender: TObject);
Var
SF : TServeFiles;
var
SF: TServeFiles;
begin
SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute);