Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
Рамка Найти похожие ветки
← →
Hyboid (2004-11-02 22:32) [0]Как проще всего сделать черную рамку вокруг Memo шириной в один пиксел ?
← →
DrPass © (2004-11-02 22:43) [1]Это задачка на сообразительность. Ты должен решить ее сам
← →
Hyboid (2004-11-02 22:49) [2]Перепробовал все варианты с полями:
BevelInner
BevelKind
BevelOuter
BorderStyle
- не помогает... =(
← →
DrPass © (2004-11-02 23:06) [3]Положи под нее TPanel черного цвета, или TShape, или на канве формы рисуй четыре черные линии. Или... в общем, вариантов миллион
← →
Stexen (2004-11-03 02:23) [4]ну так по-моему не плохо:
...
var
DC: HDC;
Indx, Indy: integer;
begin
DC := GetDC(Memo1.ParentWindow);
Rectangle(DC, Memo1.Left - 1, Memo1.Top - 1, Memo1.Left + Memo1.Width + 1, Memo1.Top + Memo1.Height + 1);
end;
куда нибудь на OnPaint повесь, должно работать но не обещаю импровезировал!
← →
Kair © (2004-11-03 10:49) [5]BorderStyle := bsSingle;
Ctl3D := False;
Страницы: 1 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
