whecomm.blogg.se

, fserver, fdatabasename, ftablename,ĪPaintBitmapThread.OnTerminate := ThreadDone Sqlstr := 'select * from Mytable where objectindex ' + IntToStr(n) ĪPaintBitmapThread := TPaintBitmapThread.Create(XPixel, YPixel. Indexdelta := round(index_max / threadCounter) Procedure TbmpthreadForm.Button_threadstartClick(Sender: TObject) lets see local tthread intermediate results and save it to HD

MyStatusBar.SimpleText := 'Thread Count ->' + IntToStr(global_thread_counter) īitblt(, 0, 0, XPixel, YPixel, Procedure TbmpthreadForm.ThreadDone(Sender: TObject) Procedure FormClose(Sender: TObject var Action: TCloseAction) įserver, fdatabasename, ftablename: String

Procedure Button_threadstartClick(Sender: TObject) Once the individual painting of a partial image is finished I want to merge all image in the Thread.done procedure Merge paint results in thread bitmap painting - multithreading I want to speed up painting a bitmap, therefore I designed a class like BITMAP THREAD CLASS.