delphi - How to draw part of a image? -


I have a normal bitmap that is populated with a PNGI image The following code shows the whole picture; But for example I have to show the sample below which I am looking for. I basically want to reduce virtual "space" where it will be featured. Note that I can not change the shape of the paintbox for reasons only because if someone asks what he can do, I think that I have to use Rects or some copy function, but I did not understand myself, did anyone understand Know how to do that? 

  Process TForm1.PaintBox1Paint (Sender: Tubect); Start Paintbox 1. Canvas. Brush. Color: clubback; Paint box 1 Brush. Style: = Bisolid; PaintBox1.Canvas.FillRect (GameWindow.Screen.ClientRect); Paint box 1 Katvana Dr. Draw (0, 0, FBIMAP, FOPCity); End;

Enter image details here

In a way, modify the canvas clipping area of ​​your paintbox: 

  ... IntersectClipRect (Paint box 1. canvas. Circle, 20, 20, paint box 1. wide - 20, paint box 1. hi-20); Paint box 1 Katvana Dr. Draw (0, 0, FBIMAP, FOPCity); Of course, I'm sure you know that  (0, 0  in your  canvas.DRA  call Coordinates are where you can attract to like:.  
  ... FBitmap.Canvas.CopyRect (Rect (0, 0, 80, 80), FBitmap.Canvas, Rect (20, 20, 100, 100)); FBitmap.SetSize (80, 80); PaintBox1.Canvas.Draw (20, 20, FBitmap, FOpacity);  
 
 
 You do not want to clip the area of ​​the paintbox, and will not want to modify your source bitmap (FBITMAP), and do not make it a temporary copy If you want, you can directly send  AlphaBlend  instead of  via Canvas.Draw : 
 
  on BlendFn: TBlendFunction; BlendFn.BlendOp start: = AC_SRC_OVER; BlendFn.BlendFlags: = 0; BlendFn.SourceConstantAlpha: FOpacity; BlendFn.AlphaFormat: = AC_SRC_ALPHA; Winapi.windows.AlphaBlend (PaintBox1.Canvas.Handle, 20, 20, PaintBox1.Width - 20, PaintBox1.Height - 20, FBitmap.Canvas.Handle, 20, 20, PaintBox1.Width - 20, Pay IntBox1.Height - 20 , BlendFn);

Comments

Post a Comment

Popular posts from this blog

ios - How do I use CFArrayRef in Swift? -

I am using Objective-class in my Swift Project through a bridging header. The method signature looks like this: - Some cement (some type) some parameters; I started by getting an example of class, calling method, and storing the value: var myInstance = MyClassWithThatMethod (); Var cfArr = myInstance.someMethod (some value); Then try to get the value in the array: var valueInArrayThatIWant = CFArrayGetValueAtIndex (cfArr, 0); However, I get the error unmanaged & lt; Cfarray & gt; Not like 'CFArray' . Unmanaged & lt; Cfarray & gt; also means? I looked, but I do not need to change the array in a fast array (though it would be good). I need to be able to get value from the array. I also tried CFArray method to pass in a function: func doSomeStuffOnArray (myArray: NSArray) {} Although I get the same error when using: doSomeStuffOnArray (cfArr); // unmanaged & lt; CFArray & gt; I am using CFArray because I want to sto...
Read more

eclipse plugin - Run java code error: Workspace is closed -

To create an automated project, I created a plug-in project with the following dependencies: Org.eclipse.core.resources org.eclipse.equinox.registry org.eclipse.core.runtime and the following The Java class is located in the src folder: Package Examiner; Import org.eclipse.core.resources.IProject; Import org.eclipse.core.resources.IWorkspaceRoot; Import org.eclipse.core.resources.ResourcesPlugin; Import org.eclipse.core.runtime.CoreException; Import org.eclipse.core.runtime.IProgressMonitor; Import org.eclipse.core.runtime.NullProgressMonitor; Public class tes {public static zero main (string [] args) {// TODO auto generated method stub IProgressMonitor progress monitor = new NullProgressMonitor (); IWorkspaceRoot root = ResourcesPlugin.getWorkspace (). GetRoot (); Ipoject project = root.jetproject ("desired projectname"); Try {Project.create (progress monitor); Project.open (progressMonitor); } Grip (CoreException E) {// TODO Auto generated blocking block e....
Read more

c - Error on building source code in VC 6 -

When I create my project in VC6, the BScMKE reports the following error Linking .. Creating Library ... .. / ... / PB / Bean / Debub / ICEERP.Lib and Object ........ P.B. / Bean / DBube / ICREPlay.APP Browse information file ... BSMMK: ​​error can not be read from BK 1505: file '../../PB/bin/TmpOut/ICReplay/Debug/ICReplay_PB.bsc' Error executing bscmake.exe Can someone help me? 2 Reason for reference from: "ICReplay_PB .bsc "file will be corrupted The trunk of the file will be happening with the compiler running out of disk space or is being interrupted when creating .sbr file I think this answer will help you!
Read more