Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Як зробити, щоб Canvas промальовувався при будь-яких моніпуляціх з вікном Знайти схожі гілки


dimonf   (2001-12-16 17:23) [0]

Народ, как зделать чтобы мой данные которые я вывожу на Canvas не исчезали при лубых монипуляциях с окном?
И как мне сделать оброботчик нажатия клавиши если я создаю програмно TPanel?

тип
TPreview = class(TPanel)
приватний
property Canvas;
захищений
громадськість
constructor Create(AOwner:TComponent); override;
end;

{ TPreview }

constructor TPreview.Create(AOwner: TComponent);
починати
Inherited Create(AOwner);
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clWhite;
BorderStyle: = bsNone;
end;

procedure TForm1.FormPaint (Sender: TObject);
var R: TRect;
починати
with MyPrev do
починати
Canvas.Pen.Width: = 1;
Canvas.Brush.Style := bsSolid;
Canvas.Font.Size := 18;
R := Rect(10,10,100,100);
Canvas.Rectangle(R.Left-1, R.Top-1, R.Right+1, R.Bottom+1);
Canvas.TextRect(R,0,0,"Demos");
end;
end;

procedure TForm1.FormCreate (Sender: TObject);
var R: TRect;
починати
MyPrev:=TPreview.Create(Self);
MyPrev.Height:=Form1.Height*2;
Panel1.Height:=Form1.Height*2;
with MyPrev do
починати
Canvas.Pen.Width: = 1;
Canvas.Brush.Style := bsSolid;
Canvas.Font.Size := 18;
end;
end;

end;



dimonf   (2001-12-16 18:09) [1]

Народ, нет мыслей???



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.81 MB
Час: 0.024 c
1-22009
oomneeq
2001-12-14 21:26
2002.01.08
Circular class reference


3-21947
DieHard
2001-12-05 13:18
2002.01.08
Отримання з таблиці Oracle списку індексів


1-22025
- = DeD = -
2001-12-18 11:20
2002.01.08
установка ActiveX


1-22187
mitry
2001-12-15 02:53
2002.01.08
Thread: Suspend / Resume & Synchronize


1-22122
Mikhalyov Dmitry
2001-12-19 19:38
2002.01.08
Знову про події





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська