בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

איך להכין קנבס כאשר חלון כלשהו עובר עם חלון מצא סניפים דומים


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

האנשים, איך לוודא שהנתונים שהוצאתי ל- Canvas לא ייעלמו במהלך שום מניפולציות בחלון?
וכיצד אוכל ליצור מטען הקשות אם אני יוצר TPanel באופן תכנותי?

סוג
TPreview = כיתה (TPanel)
פְּרָטִי
רכוש בד;
מוּגָן
ציבורי
בונה צור (AOwner: TComponent); לעקוף;
הסוף;

{TPreview}

בנאי TPreview.Create (AOwner: TComponent);
להתחיל
בירושה יצירה (AOwner);
הורה: = בעל כ TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
צבע: = clWhite;
BorderStyle: = bsNone;
הסוף;

הליך TForm1.FormPaint (השולח: TObject);
var R: TRECT;
להתחיל
עם MyPrev לעשות
להתחיל
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
R: = Rect (10,10,100,100);
בד. מלבן (R.Left-1, R.Top-1, R.Right + 1, R.Bottom + 1);
Canvas.TextRect (R, 0,0, "הדגמות");
הסוף;
הסוף;

הליך TForm1.FormCreate (שולח: TObject);
var R: TRECT;
להתחיל
MyPrev: = TPreview.Create (עצמי);
MyPrev.Height: = Form1.Height * 2;
Panel1.Height: = Form1.Height * 2;
עם MyPrev לעשות
להתחיל
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
הסוף;
הסוף;

הסוף;



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

אנשים, אין מחשבות ???



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.55 MB
זמן: 0.024 c
1-22026
סטאשנים רומנטיים
2001-12-18 11:07
2002.01.08
כיצד דרך דלפי יכולה לרוץ * .exe עם ....


1-22039
יורי btr
2001-12-18 10:46
2002.01.08
Форма


1-22203
T2
2001-12-16 07:07
2002.01.08
לתפוס את השגיאה היעדר msWord


3-21910
ולדימיר
2001-12-04 08:01
2002.01.08
מספר הערכים בטבלה?


1-22188
אמנות
2001-12-14 13:09
2002.01.08
איך לקרוא קובץ גדול ???





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский