Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
ВнизКак перечеркнуть линией TPanel Найти похожие ветки
← →
Nikola62 (2002-08-27 13:29) [0]Помогите как нарисовать в обекте TPanel диагональ.
← →
MBo (2002-08-27 13:39) [1]procedure TForm1.Button1Click(Sender: TObject);
var hdc:thandle;
begin
hdc:=getdc(Panel1.handle);
movetoex(hdc,0,0,nil);
lineto(hdc,panel1.width,panel1.height);
releasedc(panel1.handle,hdc);
end;
← →
Skier (2002-08-27 13:40) [2]>Nikola62
присмотрить к классу-свойству TPanel.Canvas
достать его можно :
- через "фиктивный" класс
- через класс-потомок TYourPanel = class(TPanel)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c