منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

كيفية جعل رسم قماش عندما يمر أي نافذة مع نافذة البحث عن فروع مماثلة


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

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

نوع
TPreview = class (TPanel)
خاص
قماش الممتلكات ؛
محمي
جمهور
إنشاء منشئ (AOwner: TComponent) ؛ تجاوز.
الغاية؛

{ TPreview }

منشئ TPreview.Create (AOwner: TComponent) ؛
بدأ
إنشاء وراثة (AOwner) ؛
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clWhite;
BorderStyle: = bsNone؛
الغاية؛

الإجراء TForm1.FormPaint (المرسل: 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");
الغاية؛
الغاية؛

الإجراء TForm1.FormCreate (المرسل: 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؛
الغاية؛
الغاية؛

الغاية؛



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

الناس ، لا أفكار ؟؟



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.55 ميغابايت
الوقت: 0.035 ج
3-21976
Termik
2001-12-06 11:47
2002.01.08
الإجراءات المخزنة ، المواد الديناميكية


1-22208
Nikos77
2001-12-15 18:34
2002.01.08
قل لي كيف نفعل التنسيق


7-22446
المفارقة
2001-09-25 19:12
2002.01.08
لا تفوت ، حسنا ، ضروري جدا.


1-22001
Socol
2001-12-15 15:55
2002.01.08
اناتولي podgoretsky


4-22494
GarryFV
2001-11-05 12:35
2002.01.08
من الصعب طباعة الرسومات





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский