ETC/LeadTools Lecture4 AutoAnimate example for Delphi AutoAnimate example for Delphi This example gets information about an animated file, uses the information to position the LEAD control, and plays the animation as it loads the file. procedure TForm1.Button1Click(Sender: TObject); var HeightFactor,WidthFactor: Integer; HeightAllowed,WidthAllowed: Integer; begin { Force continued looping after the file loads. } Lead1.AutoAnimationLoop := AUTOANIMA.. 2008. 9. 8. MultiPage Tiff First I loaded the project. Then I changed Private Sub Command1_Click() LEAD1.Load "c:\fax1.tif", 0, 1, -1 count1 = 0 End Sub to Private Sub Command1_Click() LEAD1.Load "c:\test\test.tif", 0, 1, -1 count1 = 0 End Sub (test.tif is included with the screen shots.) Then I changed Private Sub Command4_Click() LEAD1.AnnSaveTag True, False LEAD1.SavePage = Count + 1 LEAD1.Save "AnnTestTag.tif", FILE_C.. 2008. 9. 8. gif Resize Save The following code shows how to load an animated GIF file, resize it, and then save the result as animated gif file: The following code shows how to load an animated GIF file, resize it, and then save the result as animated gif file: +---------------------------+ using Leadtools.ImageProcessing; using Leadtools; using Leadtools.Codecs; ... private void button5_Click(object sender, System.EventAr.. 2008. 9. 8. 썸네일 생성 (stamp) I sincerely apologize for the delay in getting back to you, but this code will load images identical to the thumbnail browser: CodecsImageInfo info = this.codecs.GetInformation("c:\\280.tif", false, 1); int width = info.Width; int height = info.Height; //this will be the base for calculating the size of the loaded image Rectangle imageRect = new Rectangle(0, 0, 100, 100); //transforms the above .. 2008. 9. 8. 이전 1 다음