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;
VCL EndSession Fix
Usually VCL-based applications would prevent system shutdown / user logoff. This code is supposed to fix that.
procedure TMain.WMQEndSession(var Msg: TWMQueryEndSession);
begin
//WriteLn(Output, 'TMain.WMQEndSession', ' ', Msg.Result);
// Msg.Result := 1;
//Flush(Output);
Finalise;
Halt;
// PostMessage(Handle, WM_DESTROY, 0, 0);
end;
Фикс для SOAP (для ns1 тегов)
Импортированные sdl’ки не всегда работают корректно – вместо нужных имён тегов генерируется “ns1″. Решение: в конец юнита импорта для вебсервиса добавить
InvRegistry.RegisterInvokeOptions(TypeInfo(CatalystEcommerceWebserviceSoap), ioDocument);
Checkbox, который выглядит как кнопка
interface
type
TDBCheckBox = class(dbctrls.TDBCheckBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
implementation
procedure TDBCheckBox.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or BS_PUSHLIKE;
end;
О как!
Забабахал себе сайтец