בית
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.54 MB
זמן: 0.024 c
1-22127
דלפימון
2001-12-15 13:43
2002.01.08
כיצד לשמור את הסמן שטען ממשאב למשתנה בקובץ (cur)?


1-22183
XeN
2001-12-21 11:21
2002.01.08
DelphiX_play


1-22062
אלכסנדר
2001-12-19 00:17
2002.01.08
כיצד ניתן להוסיף N ימים לתאריך מסוים (TDateTime)?


1-22214
T2
2001-12-16 07:15
2002.01.08
BMP 2 RichEdit


1-22176
Serg5
2001-12-20 14:57
2002.01.08
שוב, הבעיה בטקסט: אני מציג את Image1.Canvas.Text Out, אך מתחת לטקסט עצמו יש מסגרת לבנה. האם זה אפשרי, אם לא מוסר (רק כדי להטיל אותיות), אז לפחות להפוך את העגול השחור לשחור.





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