Скачать: CL | DM;

Выравнивание заголовка   Найти похожие ветки 

← →
Макс Т.   (2005-03-13 17:19) [0]

Приветствую! Можно ли как нибудь выравнять заголовок кнопки по левому краю?

---

← →
Юрий Зотов ©   (2005-03-13 17:31) [1]

SetWindowLong(Button1.Handle, GWL_STYLE,
 GetWindowLong(Button1.Handle, GWL_STYLE)
   or BS_LEFT and not BS_CENTER);

---

← →
Юрий Зотов ©   (2005-03-13 21:59) [2]

Елы-палы, проверил - не работает. Надо же! А казалось бы - не работать просто не может.

Пришлось наказывать самого себя - писать работающий компонент. Вот он.

type
 TAlignmentButton = class(TButton)
 private
   FAlignment: TAlignment;
   procedure SetAlignment(const Value: TAlignment);
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 public
   constructor Create(AOwner: TComponent); override;
 published
   property Alignment: TAlignment read FAlignment write SetAlignment default taCenter;
 end;

constructor TAlignmentButton.Create(AOwner: TComponent);
begin
 inherited;
 FAlignment := taCenter
end;

procedure TAlignmentButton.CreateParams(var Params: TCreateParams);
const
 AlignmentStyle: array[TAlignment] of DWORD = (BS_LEFT, BS_RIGHT, BS_CENTER);
begin
 inherited;
 Params.Style := Params.Style or AlignmentStyle[FAlignment]
end;

procedure TAlignmentButton.SetAlignment(const Value: TAlignment);
begin
 if FAlignment <> Value then
 begin
   FAlignment := Value;
   RecreateWnd
 end
end;


---

← →
Макс Т.   (2005-03-14 11:33) [3]

спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c