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

Down

Արդյոք որեւէ մեկը օգտագործեց PaintTo- ի գործառույթը WinControls- ը կտավի բիտման վրա: Օգնություն Ես ոչինչ չեմ կարող անել: Գտնել նմանատիպ մասնաճյուղեր


Kost   (2001-12-14 14:10) [0]

Ինչ-որ մեկը գործածել է PaintTo գործառույթը `WinControl- ի բիտմապի կտավի վրա նկարելու համար: Օգնեք: Ես չեմ կարող որևէ բան անել:



valery_f   (2001-12-14 18:16) [1]

Пользовался. Единственное "но" - изначально невидимый WinControl не имеет хэндла и дает эксэпшн при PaintTo. Если это свой компонент - зови CreateHandle, если нет - сделай его видимым потом спрячь - хэндл появится и PaintTo заработает.



DK   (2001-12-15 03:52) [2]

2valery_f
Можно вопрос:
Как это? Контрол есть, а хэндла нет. Разве такое может быть?



Kost   (2001-12-15 13:05) [3]

Կա մի ձև TForm1: Դրա վրա տեղադրված է BitBtn1 «փորձնական կոճակը»:
Thereանկություն կա, կտտացնելով մեկ այլ կոճակի վրա `Button1 ՝ հետևյալը անելու համար.
- նկարել BitBtn1 նկարը bitmap- ի կտավի վրա ՝ օգտագործելով PaintTo
- ստացված բիտմապը դուրս բերեք ձևի կտավ

ՉԻ ՀԻՇՈՒՄ: BitBtn1- ը գծված չէ բիտմապի մեջ: ԻՆՉՈՒ ՈՐՏԵ՞Ս ԵՆ ԻՇԽԱՆՈՒՄ:

ընթացակարգ TForm1.FormCreate (Ուղարկող `TObject);
սկսել
// Ստեղծեք բիտմապ
bmp: = TBitmap.Create;
bmp. Լայնությունը ՝ = 150;
bmp.Hight: = 150;
վերջը.

ընթացակարգ TForm1.Button1Click (Sender: TObject);
սկսել
// Երբ սեղմում ես կոճակը, BitMt- ի կտավի վրա նկարիր BitBtn1- ը
BitBtn1.PaintTo (bmp.Canvas.Handle, 0, 0);
Անվավեր // Ստիպել ձևը վերափոխել
վերջը.

ընթացակարգ TForm1.FormPaint (Ուղարկող `TObject);
սկսել
// Տպել բիտմապի ձևը կտավին
Canvas.Draw (0,0, bmp);
վերջը.



DK   (2001-12-16 02:26) [4]

Ամեն ինչ աշխատում է:
Может ты просто не обрабатываешь нажатие на кнопку?
procedure TForm1. Button1 Քիչ(Ուղարկող ՝ TObject);
procedure TForm1. BitBtn1Click(Ուղարկող ՝ TObject);



Kost   (2001-12-16 12:12) [5]

И, все таки, не работает. Кнопка в битмэп не рисуется. TPanel рисуется а TButton и TBitBtn нет.



Էջեր: 1 ամբողջ ճյուղը

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

Up









Հիշողություն `0.57 ՄԲ
Ժամանակը `0.031 գ
1-22069
Xtorm
2001-12-19 10:40
2002.01.08
Ինչպես?


1-22164
Warchild- ը
2001-12-19 21:46
2002.01.08
ListBox-> Row Ընտրել


6-22315
Մարսերը
2001-08-01 16:04
2002.01.08
SMS հաղորդագրություն


6-22273
Դենիս Տիտով
2001-10-06 11:50
2002.01.08
LAN շենք


14-22353
Merlin
2001-11-02 10:13
2002.01.08
Ես ցնցված եմ





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