Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Вниз
Кнопка с многострочной надписью... Найти похожие ветки
← →
Vint (2002-04-15 21:35) [0]У кого-нибудь есть такой компонент?
← →
DeMoN-777 (2002-04-15 21:41) [1]Сам напиши ;)
А если не как то www.torry.net
← →
Anatoly Podgoretsky (2002-04-15 22:14) [2]TButton
← →
Vint (2002-04-15 22:43) [3]Anatoly Podgoretsky
TButton однострочный, а мне нужно многострочный.
← →
Anatoly Podgoretsky (2002-04-15 23:00) [4]Извиняюсь, не TButton, а TBitbtn
← →
Vint (2002-04-15 23:26) [5]Anatoly Podgoretsky, спасибо. И правда многострочный.
Только вот я пытался понять как это сделано, так и не понял. Может быть кто-нибудь знает?
← →
Aleks1 (2002-04-16 03:02) [6]Еще один вариант - это использование TPanel, в качестве кнопки.
← →
Игорь Шевченко (2002-04-16 10:00) [7]День добрый,
BitBtn1.Caption := "Многострочная"#13#10"кнопка"
Тоже самое можно в design-time по Alt+F12
С уважением,
← →
Толик (2002-04-16 10:01) [8]to Anatoly Podgoretsky ©:
TButton кстати тоже умеет быть многострочным:
SetWindowLong(Button2.Handle, GWL_STYLE, GetWindowLong(Button2.Handle, GWL_STYLE) or BS_MULTILINE);
Просто ему надо объяснить, что он д.б. многострочным и всё...
to Aleks1:
Sorry, но это изврат, IMHO.
← →
Vint (2002-04-16 19:11) [9]Толик,
Вот супер!!! Я предполагал что должно что-то быть.
Скажите, а как это оформить в компоненте? ытался вставить в cinstructor, но что именно нужно вставить, ведь объекта Button ещё нет...
← →
Vint (2002-04-16 19:20) [10]В смысле я хочу написать свой TButton с поддержкой многострочной надписи.
← →
Anatoly Podgoretsky (2002-04-16 19:33) [11]В наследник перекрыть метод CreateParams, но тебе нужен еще и редактор свойства
← →
Vint (2002-04-16 19:58) [12]Вот редактор свойств я знаю как написать, а как перекрыть метод CreateParams?
← →
Anatoly Podgoretsky (2002-04-16 20:04) [13]Странно, насчет редактора знаешь, а основы нет.
Директива override
← →
Vint (2002-04-16 20:41) [14]Спасибо.
Вот что я сделал:
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TMultiLineBtn.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or BS_MULTILINE;
end;
Скажите это правильно, меня интерисует Params.Style
← →
Anatoly Podgoretsky (2002-04-16 20:54) [15]Внешне нормально, но проще же проверить
Возможно надо не Params.Style а просто Style или ExStyle
Проверь экспериментально
← →
Vint (2002-04-16 21:10) [16]Да экспериментально вроде работает.
В общем спасибо огромное всем за советы.
← →
harismatik (2002-04-23 13:12) [17]У меня есть комплект из 3 компонентов. Все они мультилинейные. Думаю будут полезны народу. Называются они TSMMultiButton, TSMMultiCheckBox и TSMMultiRadioButton или что то в этом роде.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c
