Головна сторінка
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.55 MB
Час: 0.026 c
1-22209
Харчування
2001-12-14 14:10
2002.01.08
Користувався хто небудь функцією PaintTo для промальовування WinControl ів на кинувся бітмепа? Допоможіть! У мене нічого не виходить.


6-22303
максі
2001-10-11 18:03
2002.01.08
клієнт DCOM не бачить сервер DCOM на різних машинах.


14-22381
Фелікс
2001-11-08 20:41
2002.01.08
Що це було?


14-22395
чужий
2001-11-07 01:15
2002.01.08
Чим бардак відрізняється від порядку?


6-22294
s
2001-10-10 13:50
2002.01.08
SOAP examples





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