Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ինչպես կարելի է նկարել կտավ, որը պատուհանի միջոցով անցնում է ցանկացած պատուհան Գտնել նմանատիպ մասնաճյուղեր


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

Մարդիկ, թե ինչպես կարելի է ստեղծել այն, որ իմ տվյալները, որ ես դնում է կտավ, անհետացել է պատուհանի հետ բուռն մոնիտորինգի ժամանակ:
Եվ ինչպես ես կարող եմ դարձնել keystroke գործողություն, եթե ես ստեղծել TPanel ծրագրաշարը:

տիպ
TPreview = դաս (TPanel)
անձնական
գույք Canvas;
պաշտպանված
հասարակություն
constructor Ստեղծեք (AOwner: TComponent); անտեսում;
վերջը.

{TPreview}

կոնստրուկտոր TPreview.Create (AOwner: TComponent);
սկսել
Մնացած Ստեղծեք (AOwner);
Ծնող: = 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);
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;
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];

Up





Հիշողություն `0.55 ՄԲ
Ժամանակը `0.021 գ
1-22206
T2
2001-12-16 07:11
2002.01.08
Հավասարեցնել դաշտը


3-21944
MVova
2001-12-03 16:50
2002.01.08
Ինչպե՞ս պարզել ֆայլի ուղին:


1-22007
սողացող
2001-12-17 18:09
2002.01.08
էկրանապահիչ


4-22502
Alexander
2001-11-06 11:00
2002.01.08
Ինչպես ստանալ պատկերակ համակարգում գրանցված ընդլայնման համար


3-21934
Ալեքսսին
2001-12-04 08:52
2002.01.08
Օգնեցեք, խնդրում եմ





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский