Others

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; button2: tbutton; button3: tbutton; button4: tbutton; Procedure

Mmio functions are used for I/O operations on multimedia files such as wave. The related functions include: Mmioopenmmioclosemmioreadmmiowritemmioflushmmioseekmmiorenamemmiogetinfommiosetinfommiocreatechunkmmioascendmmiodescendmmioadva

Recently, I suddenly felt that Delphi's dynamic array is very useful. Using It can omit a lot of getmem and reallocmem, And it is automatically maintained. The dynamic array variable arr itself is a pointer and cannot be obtained with @ arr;

The compilation command pointermath is off by default. After it is enabled, you can read and write the series of data in the pointer like an array, which is very convenient! // test the integer pointer procedure tform1.button1click (Sender:

This interface has only two units: gdiplus and gdiplushelpers. gdiplushelpers is mainly used to add togpgraphics to TCanvas, tgraphiccontrol, tcustomcontrol, and tbitmap In The VCL system through the Helper technology, igpgraphics. In many cases,

Tgpcolor is the color subject of gdiplus. Although it is a struct, methods and attributes are readily available like classes. I don't think it is defined as a class or interface. I think it mainly needs to be implicitly converted with an integer,

The create method of the tgptexturebrush class corresponding to igptexturebrush has many heavy loads. The parameters can contain tgpwrapmode and igpimageattributes, but the test shows that igpimageattributes is not useful here. It makes sense to

Multi-color gradient: A "color array" and a "location array" (ratio between 0 and 1 ); The igplineargradientbrush. interpolationcolors attribute corresponds to an igpcolorblend object, which is used to load the above two arrays. The colors and

The gammacorrection attribute is a Boolean value. The default value is false. If it is set to true, Grayscale Correction is enabled. The second image in the test diagram uses Grayscale Correction: TestCode: Uses gdiplus; Procedure tform1

Setblendbellshape: Create a gradient transition process based on the bell curve; Setblendtriangularshape: Creates a linear gradient process that linearly transitions from the center color to a single color at both ends. The two methods seem to

Linearcolors // attribute; gets or sets the start and end colors of the gradient. rectangle // attribute; obtain the rectangular area that defines the starting point and ending point of the gradient. wrapmode // attribute; obtain or set the wrapmode

Test: TestCode: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) Procedure formpaint (Sender: tobject ); procedure formmouseup (Sender:

The simplest igppathgradientbrush is a gradient with a central color and a set of peripheral colors. The attributes of centercolor, surroundcolors, and setsurroundcolors are involved here. Test 1: Test 1Code: //

The first construction method: tgplineargradientbrush. Create (point 1, point 2, color 1, color 2 ); Test in this example: To facilitate testing, units in unit2 inherit a tmyshape class from tshape to simulate an active

GDI + has five paint brushes: Solid paint brush: igpsolidbrushShadow paint brush: igphatchbrushTexture painter: igptexturebrushLinear gradient Paint Brush: igplineargradientbrushPath gradient Paint Brush: igppathgradientbrush They have

Read functions and Test Code : Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; Procedure button1click (Sender: tobject);

Basic use of igpfontfamily: Uses gdiplus, kernel; Procedure tform1.formpaint (Sender: tobject); const PT: tgppointf = (X: 10; Y: 10); var fontfamily: igpfontfamily; Font: igpfont; brush: igpsolidbrush; begin fontfamily: = tgpfontfamily.

Test: Uses gdiplus; Procedure tform1.formpaint (Sender: tobject); var graphics: igpgraphics; brush: igpsolidbrush; Pt: tgppointf; Font: igpfont; begin graphics: = tgpgraphics. create (handle); PT. initialize (10, 10); brush: =

Igpcolors is an interface that applies generic arrays to tgpcolor. It can be used when a set of colors is required. Of course, it is not difficult to use other methods. It is not important in the whole system. In this example, the 141 color

Use the window to receive messages from the audio device: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton;