PDA

View Full Version : راهنمایی در اجرای دستور PaintTo



iman-63
سه شنبه 20 مرداد 1388, 08:47 صبح
سلام دوستان
اینجا رو یه نگاه بندازین:


for k:=0 to ShockwaveFlash1.TotalFrames do
begin
ShockwaveFlash1.GotoFrame(k);
ShockwaveFlash1.PaintTo(GetDC(Handle),0,0);
for x:=0 to ShockwaveFlash1. width do
for y:=0 to ShockwaveFlash1.height do
begin
pixel:=Canvas.Pixels[x,y];


راحت کار می کنه.
مشکل اینجاست که فرمی که داره روی اون PaintTo انجام میشه اگه زیر فرم دیگه ای بره یا minimize بشه یا ... دیگه نمیشه درست پیکسل هاشو خوند. یعنی برا این کار حتماً باید صفحه دیده بشه که این بده. آیا راهی هست که بدون اینکه این عملیات دیده بشه این کارا رو کرد. اگه راهی بنظرتون می رسه لطفا راهنمایی کنین.
راستی اگه اینا رو کامپوننت کنم توی سرعت کار چقدر تأثیر گذاره؟

K.Mohammadreza
پنج شنبه 22 مرداد 1388, 17:24 عصر
دوست عزيز راه حلي که شما براي خوندن پيکسلها استفاده کرديد زياد جالب نيست و بهتر بود از کامپوننت هاي مربوطه استفاده مي کرديد ولي مي توانيد با تغيير خاصيت FormStyle به stayontop و غير فعال کردن toolbox فرم مشکلاتتون حل کنيد