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

* Remove actions for which there is no tag

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-22 08:41:35 +02:00
parent cf5777a164
commit a3566d0f8e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/pas2js/components/frmhtmlactionseditor.pas
View File

@ -280,8 +280,8 @@ begin
Tags.Free;
aMissing.Free;
end;
if assigned(aEditor.Designer) then
aEditor.Designer.Modified;
// if assigned(aEditor.Designer) then
// aEditor.Designer.Modified;
end;
function FindActionEditor(AList: THTMLCustomElementActionList): THTMLActionListEditorForm;

2
components/pas2js/components/frmselecthtmlactions.lfm
View File

@ -44,7 +44,7 @@ object frmSelectHTMLActionClasses: TfrmSelectHTMLActionClasses
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
end
object PageControl1: TPageControl
object PCAddRemove: TPageControl
Left = 0
Height = 328
Top = 34

4
components/pas2js/components/frmselecthtmlactions.pas
View File

@ -37,7 +37,7 @@ type
cbUseDBAware: TCheckBox;
clbRemove: TCheckListBox;
Label1: TLabel;
PageControl1: TPageControl;
PCAddRemove: TPageControl;
pnlTop: TPanel;
TSAdd: TTabSheet;
TSRemove: TTabSheet;
@ -163,7 +163,7 @@ begin
end;
if Assigned(FRemoveList) then
For I:=CLBRemove.Count-1 downto 0 do
if CLBRemove.Checked[i] then
if not CLBRemove.Checked[i] then
FRemoveList.Remove(CLBRemove.Items.Objects[i]);
end;