paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:59:22 +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; Tags.Free;
aMissing.Free; aMissing.Free;
end; end;
if assigned(aEditor.Designer) then // if assigned(aEditor.Designer) then
aEditor.Designer.Modified; // aEditor.Designer.Modified;
end; end;
function FindActionEditor(AList: THTMLCustomElementActionList): THTMLActionListEditorForm; function FindActionEditor(AList: THTMLCustomElementActionList): THTMLActionListEditorForm;

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

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

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

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