paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-17 14:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct icon

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-02 22:21:33 +02:00
parent 7f7dc95804
commit fce573b458
1 changed files with 7 additions and 2 deletions

9
packages/bootstrap/bootstraptablewidget.pp
View File

@ -55,6 +55,7 @@ type
Public
Constructor Create(aWidget: TCustomDBBootstrapTableWidget); virtual;
Procedure Assign(Source : TPersistent); override;
function GetOwner: TPersistent; override;
Published
Property CheckBoxClass : String Read FCheckBoxClass Write FCheckBoxClass;
Property ButtonClass : String Read FButtonClass Write FButtonClass;
@ -69,7 +70,6 @@ type
TBSTableColumn = class(TCollectionItem)
private
FElementID: string;
FFieldName: string;
FFormatting: string;
FOnButtonClick: TBSColumnClickEvent;
@ -412,6 +412,11 @@ begin
inherited Assign(Source);
end;
function TStylingClasses.GetOwner: TPersistent;
begin
Result:=FWidget;
end;
{ TBSTableColumn }
@ -753,7 +758,7 @@ var
cbtInfo:
sIcon := StylingClasses.InfoClass;
cbtEdit:
sIcon := IfThen(DisplayReadOnly,StylingClasses.EditClass,StylingClasses.ReadonlyEditClass);
sIcon := IfThen(DisplayReadOnly,StylingClasses.ReadonlyEditClass,StylingClasses.EditClass);
cbtDelete:
sIcon := StylingClasses.DeleteClass;
cbtCustom: