![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли регулировать положение текста (caption) TPanel? [D7, XP]
Lebedev © (2006-11-13 08:04:00)Если по умолчанию присвоить какое-то значение свойству Caption TPanel, то текст располагается ровно по центру. А есть ли возможность манипулировать его положением? Например чтобы он начинался с верхнего левого угла.
Спасибо!
Думкин (2006-11-13 09:02:00) [21]
> к protected полям
предка
Думкин (2006-11-13 09:01:00) [22]
> Gydvin © (13.11.06 08:50) [5]
Потому что protected. Доступ у потомков к protected полям разрешен в модуле описания потомка, а если поднимет уровень видимости - то соответственно ему.
Gydvin (2006-11-13 08:52:00) [23]
> Думкин © (13.11.06 08:41) [4]
>
> Только к Caption в TPanel это уже мало относится. У него
> только Alignment.
Рисовать ни кто не запрещает ))))
Gydvin (2006-11-13 08:50:00) [24]
> Думкин © (13.11.06 08:28) [3]
Ух ты. Непонял почему так происходит.
[2]
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
r: trect;
begin
s := 'bla bla bla';
r := rect(0, 0, panel1.Width, panel1.Height);
with THackPanel(panel1).Canvas do begin
drawtext(handle, pchar(s), length(s), r, DT_WORDBREAK)
end;
end;
читать описание drawtext
Думкин (2006-11-13 08:41:00) [25]Только к Caption в TPanel это уже мало относится. У него только Alignment.
Думкин (2006-11-13 08:28:00) [26]
> Gydvin © (13.11.06 08:17) [1]
Канва у TPanel доступна итак.
type THackPanel = class(Tpanel);
THackPanel(panel1).Canvas
Lebedev (2006-11-13 08:20:00) [27]
> Связка tpanel и tpaintbox
Поясните пожалуйста, подробнее.
------------------------------------
И подскажите ещё пожалуйста, как быть, чтобы слишком длинная строка автоматически переносилась на следующую строку. А то если предложение слишком длинное, то оно просто не вмещается, так занимает всего одну строку (в центре) по умолчанию.
Gydvin (2006-11-13 08:17:00) [28]Связка tpanel и tpaintbox