1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146
| #To edit and compare internal_properties, use WINDEV integrated tools.
#Internal properties refer to the properties of controls in windows, reports, etc.
info :
name : gdiplus
major_version : 25
minor_version : 0
type : 7
description : ""
subtype : 0
procedure_set :
identifier : 0x1ef09bca01596772
internal_properties : BQAAAAUAAABGLu41kG7fjQV3iS4F72qmnKaNh5694reolNKIW0iw
code_elements :
type_code : 31
p_codes :
-
code : |1-
constant
GDIPLUS = "GDIPLUS"
END
type : 720896
procedures :
-
name : GdipLoadImageFromFile
procedure_id : 2229453124636669932
type_code : 15
code : |1-
function GdipLoadImageFromFile(local szFile is string, hImg is system int)
nRet is int = API(GDIPLUS, "GdipLoadImageFromFile", AnsiToUnicode(szFile), &hImg)
result nRet
type : 458752
-
name : GdipGetImageWidth
procedure_id : 2229453936385546554
type_code : 15
code : |1-
function GdipGetImageWidth(local hImg is system int, nWidth is int)
nRet is int = API(GDIPLUS, "GdipGetImageWidth", hImg, &nWidth)
result nRet
type : 458752
-
name : GdipGetImageHeight
procedure_id : 2229454417421930014
type_code : 15
code : |1-
function GdipGetImageHeight(local hImg is system int, nHeight is int)
nRet is int = API(GDIPLUS, "GdipGetImageHeight", hImg, &nHeight)
result nRet
type : 458752
-
name : GdipGetImageSizeFromFile
procedure_id : 2229455164746348826
type_code : 15
code : |1-
PROCEDURE GdipGetImageSizeFromFile(local ImgName is string, nWidth is int, nHeight is int)
img is system int = 0
if (GdipLoadImageFromFile(ImgName, img) = 0) then
GdipGetImageWidth(img, nWidth)
GdipGetImageHeight(img, nHeight)
GdipDisposeImage(img);
end
type : 458752
-
name : GdipDisposeImage
procedure_id : 2229456277142939944
type_code : 15
code : |1-
PROCEDURE GdipDisposeImage(LOCAL nImg is system int)
nRet is int = API(GDIPLUS, "GdipDisposeImage", nImg)
RESULT nRet
type : 458752
-
name : GdipGetBitmapFromFile
procedure_id : 2229473869329017832
type_code : 15
code : |1-
function GdipGetBitmapFromFile(local ImgName is string, nWidth is int, nHeight is int)
nRet, hbmReturn, Img, graphics, hDC, ImgHDC is system int
if GdipLoadImageFromFile(ImgName, Img) = 0 then
//Get image size
GdipGetImageWidth(Img, nWidth)
GdipGetImageHeight(Img, nHeight)
hDC = API(GDI32, "CreateICA", "DISPLAY", null, null, null)
ImgHDC = CreateCompatibleDC(hDC)
bi is BITMAPINFOAPI
bi.bmiHeader.biSize = Dimension(bi.bmiHeader)
bi.bmiHeader.biWidth = nWidth
bi.bmiHeader.biHeight = nHeight
bi.bmiHeader.biPlanes = 1
bi.bmiHeader.biBitCount = 32
bi.bmiHeader.biCompression = BI_RGB
hbmReturn = CreateDIBSection(hDC, bi, DIB_RGB_COLORS, 0, 0, 0)
SelectObject(ImgHDC, hbmReturn)
DeleteDC(hDC)
IF (GdipCreateFromHDC(ImgHDC, graphics) = 0) THEN
IF (GdipDrawImageRectI(graphics, Img, 0, 0, nWidth, nHeight) = 0) THEN
nRet = hbmReturn
END
GdipDeleteGraphics(graphics)
END
GdipDisposeImage(Img)
DeleteDC(ImgHDC)
end
result nRet
type : 458752
-
name : GdipCreateFromHDC
procedure_id : 2229474556523878937
type_code : 15
code : |1-
FUNCTION GdipCreateFromHDC(LOCAL hMemDC is system int, nGraphics is system int)
nRet is int = API(GDIPLUS, "GdipCreateFromHDC", hMemDC, &nGraphics)
RESULT nRet
type : 458752
-
name : GdipDeleteGraphics
procedure_id : 2229474556523944567
type_code : 15
code : |1-
PROCEDURE GdipDeleteGraphics(LOCAL nGraphics is system int)
nRet is int = API(GDIPLUS, "GdipDeleteGraphics", nGraphics)
RESULT nRet
type : 458752
-
name : GdipDrawImageRectI
procedure_id : 2229478207246537571
type_code : 15
code : |1-
FUNCTION GdipDrawImageRectI(LOCAL nGraphics is system int, LOCAL nImg is system int, LOCAL nX is int, LOCAL nY is int, LOCAL nW is int, LOCAL nH is int)
nRet is int = API(GDIPLUS, "GdipDrawImageRectI", nGraphics, nImg, nX, nY, nW, nH)
RESULT nRet
type : 458752
procedure_templates : []
property_templates : []
code_parameters :
internal_properties : BQAAAAUAAAA6ih3UbgNXHwTtiPSFUEj+2fi/m7v4QV2rqidAupM=
original_name : ProcéduresGlobales1
resources :
string_res :
identifier : 0x1ef09bbe01573a95
internal_properties : BQAAAAUAAAAnMYFQ1bL/vz9ehh7L22SNNSlIzGTOI8h5F/WtgDNP
custom_note :
internal_properties : BQAAAAUAAABtB9HWVzrXO2+4NDRVK0vmzaNKrCKqH1DBX30lMmGZ |
Partager