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

fpweb: less hints

Browse Source
This commit is contained in:
mattias 2023-11-17 16:42:36 +01:00
parent 2d2575d452
commit d89c23fbeb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpweb/fpwebtoolsunit.pas
View File

@ -381,6 +381,7 @@ end;
function ShowEditInputTagForm(const ATagType:string; const ADefValue:string = ''):string;
begin
Result:='';
If Not CheckEditor then Exit;
With TFpwebNewHTMLInputForm.Create(Application) do
try
@ -733,8 +734,6 @@ begin
end;
procedure InsertTextToCurEditor(const S: string);
var
i:integer;
begin
{ TODO -oalexs : Add code for positiopn cursor to position of char |, also insert curent selection into new string at position of %s }