Right-aligned edit/dbedit

Makes only selected controls right-aligned

TEdit=class(StdCtrls.TEdit)
protected
procedure CreateParams(var Params:TCreateParams); override;
end;

procedure TEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
if (FindString(Name, ['ID_Count', 'idQuickPay', 'ID_PartPay', 'ID_Total']) >=0)
or (Parent.Name = 'fCashup')
then
Params.Style:=Params.Style or ES_RIGHT;
end;