Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Вниз
Выравнивание заголовка Найти похожие ветки
← →
Макс Т. (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 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c
