Текущий архив: 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.047 c