/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/bgrabitmap/ |
H A D | bgrathumbnail.pas | 79 result.SetSize(AWidth,AHeight); 82 result := TBGRABitmap.Create(AWidth,AHeight,ABackColor); 280 function GetJpegThumbnail(AStream: TStream; AWidth, AHeight: integer in GetJpegThumbnail() 288 jpeg.MinHeight := AHeight; 293 function GetPsdThumbnail(AStream: TStream; AWidth, AHeight: integer in GetPsdThumbnail() 300 psd.MinifyHeight:= AHeight; 317 function GetPngThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetPngThumbnail() 392 function GetBmpThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetBmpThumbnail() 402 function GetIcoThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetIcoThumbnail() 411 reader.WantedHeight:= AHeight; [all …]
|
H A D | bgramacbitmap.pas | 17 ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); override; 25 AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); 41 if (AHeight = 0) or (AWidth = 0) then 45 RawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth,AHeight); 53 for n := AWidth*AHeight-1 downto 0 do 78 AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); 80 DataDrawOpaqueImplementation(ACanvas, Rect, AData, ALineOrder, AWidth, AHeight);
|
/dports/editors/cudatext/CudaText-1.151.0/bgrabitmap/bgrabitmap/ |
H A D | bgrathumbnail.pas | 79 result.SetSize(AWidth,AHeight); 82 result := TBGRABitmap.Create(AWidth,AHeight,ABackColor); 280 function GetJpegThumbnail(AStream: TStream; AWidth, AHeight: integer in GetJpegThumbnail() 288 jpeg.MinHeight := AHeight; 293 function GetPsdThumbnail(AStream: TStream; AWidth, AHeight: integer in GetPsdThumbnail() 300 psd.MinifyHeight:= AHeight; 317 function GetPngThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetPngThumbnail() 392 function GetBmpThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetBmpThumbnail() 402 function GetIcoThumbnail(AStream: TStream; AWidth, AHeight: integer; in GetIcoThumbnail() 411 reader.WantedHeight:= AHeight; [all …]
|
H A D | bgramacbitmap.pas | 17 ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); override; 25 AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); 41 if (AHeight = 0) or (AWidth = 0) then 45 RawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth,AHeight); 53 for n := AWidth*AHeight-1 downto 0 do 78 AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer); 80 DataDrawOpaqueImplementation(ACanvas, Rect, AData, ALineOrder, AWidth, AHeight);
|
/dports/graphics/lazpaint/lazpaint-7.1.6/bgracontrols/ |
H A D | bgrasvgimagelist.pas | 47 function GetBGRABitmap(AIndex: integer; AWidth, AHeight: integer; in GetBGRABitmap() 51 function GetBitmap(AIndex: integer; AWidth, AHeight: integer; in GetBitmap() 56 ALeft, ATop, AWidth, AHeight: integer); overload; 64 ALeft, ATop, AWidth, AHeight: integer); overload; 234 AHeight: integer): TBGRABitmap; 245 bmp := TBGRABitmap.Create(AWidth, AHeight); 257 result := GetBitmap(AIndex, AWidth, AHeight, UseSVGAlignment); 266 bmp := GetBGRABitmap(AIndex, AWidth, AHeight, AUseSVGAlignment); 277 ACanvas: TCanvas; ALeft, ATop, AWidth, AHeight: integer); 290 ACanvas: TCanvas; ALeft, ATop, AWidth, AHeight: integer); [all …]
|
/dports/devel/fpc-fcl-image/fpc-3.2.2/packages/fcl-image/src/ |
H A D | fpcompactimg.inc | 235 inherited Create(AWidth, AHeight); 248 inherited SetSize(AWidth, AHeight); 288 inherited Create(AWidth, AHeight); 333 inherited Create(AWidth, AHeight); 346 inherited SetSize(AWidth,AHeight); 379 inherited Create(AWidth, AHeight); 392 inherited SetSize(AWidth,AHeight); 433 inherited Create(AWidth, AHeight); 446 inherited SetSize(AWidth,AHeight); 486 inherited Create(AWidth, AHeight); [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/packages/fcl-image/src/ |
H A D | fpcompactimg.inc | 235 inherited Create(AWidth, AHeight); 248 inherited SetSize(AWidth, AHeight); 288 inherited Create(AWidth, AHeight); 333 inherited Create(AWidth, AHeight); 346 inherited SetSize(AWidth,AHeight); 379 inherited Create(AWidth, AHeight); 392 inherited SetSize(AWidth,AHeight); 433 inherited Create(AWidth, AHeight); 446 inherited SetSize(AWidth,AHeight); 486 inherited Create(AWidth, AHeight); [all …]
|
/dports/editors/lazarus/lazarus/lcl/include/ |
H A D | bevel.inc | 72 AHeight: LongInt; 91 AHeight := Height; 98 MoveTo(ALeft, ATop + AHeight - 1); 103 LineTo(ALeft , ATop + AHeight - 1); 109 MoveTo(ALeft, ATop + AHeight - 1); 114 LineTo(ALeft + 1, ATop + AHeight - 2); 116 MoveTo(ALeft + 1, ATop + AHeight - 2); 121 LineTo(ALeft, ATop + AHeight - 1); 137 MoveTo(ALeft, ATop + AHeight - 1); 140 MoveTo(ALeft, ATop + AHeight - 2); [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/include/ |
H A D | bevel.inc | 72 AHeight: LongInt; 91 AHeight := Height; 98 MoveTo(ALeft, ATop + AHeight - 1); 103 LineTo(ALeft , ATop + AHeight - 1); 109 MoveTo(ALeft, ATop + AHeight - 1); 114 LineTo(ALeft + 1, ATop + AHeight - 2); 116 MoveTo(ALeft + 1, ATop + AHeight - 2); 121 LineTo(ALeft, ATop + AHeight - 1); 137 MoveTo(ALeft, ATop + AHeight - 1); 140 MoveTo(ALeft, ATop + AHeight - 2); [all …]
|
/dports/editors/lazarus-qt5/lazarus/lcl/include/ |
H A D | bevel.inc | 72 AHeight: LongInt; 91 AHeight := Height; 98 MoveTo(ALeft, ATop + AHeight - 1); 103 LineTo(ALeft , ATop + AHeight - 1); 109 MoveTo(ALeft, ATop + AHeight - 1); 114 LineTo(ALeft + 1, ATop + AHeight - 2); 116 MoveTo(ALeft + 1, ATop + AHeight - 2); 121 LineTo(ALeft, ATop + AHeight - 1); 137 MoveTo(ALeft, ATop + AHeight - 1); 140 MoveTo(ALeft, ATop + AHeight - 2); [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/include/ |
H A D | bevel.inc | 72 AHeight: LongInt; 91 AHeight := Height; 98 MoveTo(ALeft, ATop + AHeight - 1); 103 LineTo(ALeft , ATop + AHeight - 1); 109 MoveTo(ALeft, ATop + AHeight - 1); 114 LineTo(ALeft + 1, ATop + AHeight - 2); 116 MoveTo(ALeft + 1, ATop + AHeight - 2); 121 LineTo(ALeft, ATop + AHeight - 1); 137 MoveTo(ALeft, ATop + AHeight - 1); 140 MoveTo(ALeft, ATop + AHeight - 2); [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk2/ |
H A D | gtk2debug.pp | 32 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 36 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 140 if AHeight = -1 then AHeight := H; 142 Info^.Height := AHeight; 174 if AHeight = -1 then AHeight := H; 176 Info^.Height := AHeight; 204 if AHeight = -1 then AHeight := H; 206 Info^.Height := AHeight; 216 AHeight: Integer); 223 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk2/ |
H A D | gtk2debug.pp | 32 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 36 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 140 if AHeight = -1 then AHeight := H; 142 Info^.Height := AHeight; 174 if AHeight = -1 then AHeight := H; 176 Info^.Height := AHeight; 204 if AHeight = -1 then AHeight := H; 206 Info^.Height := AHeight; 216 AHeight: Integer); 223 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus/lazarus/lcl/interfaces/gtk/ |
H A D | gtkdebug.pp | 35 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 40 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 149 if AHeight = -1 then AHeight := H; 151 Info^.Height := AHeight; 186 if AHeight = -1 then AHeight := H; 188 Info^.Height := AHeight; 216 if AHeight = -1 then AHeight := H; 218 Info^.Height := AHeight; 228 AHeight: Integer); 235 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus/lazarus/lcl/interfaces/gtk2/ |
H A D | gtk2debug.pp | 32 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 36 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 140 if AHeight = -1 then AHeight := H; 142 Info^.Height := AHeight; 174 if AHeight = -1 then AHeight := H; 176 Info^.Height := AHeight; 204 if AHeight = -1 then AHeight := H; 206 Info^.Height := AHeight; 216 AHeight: Integer); 223 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk/ |
H A D | gtkdebug.pp | 35 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 40 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 149 if AHeight = -1 then AHeight := H; 151 Info^.Height := AHeight; 186 if AHeight = -1 then AHeight := H; 188 Info^.Height := AHeight; 216 if AHeight = -1 then AHeight := H; 218 Info^.Height := AHeight; 228 AHeight: Integer); 235 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/gtk2/ |
H A D | gtk2debug.pp | 32 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 36 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 140 if AHeight = -1 then AHeight := H; 142 Info^.Height := AHeight; 174 if AHeight = -1 then AHeight := H; 176 Info^.Height := AHeight; 204 if AHeight = -1 then AHeight := H; 206 Info^.Height := AHeight; 216 AHeight: Integer); 223 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/gtk/ |
H A D | gtkdebug.pp | 35 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 40 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 149 if AHeight = -1 then AHeight := H; 151 Info^.Height := AHeight; 186 if AHeight = -1 then AHeight := H; 188 Info^.Height := AHeight; 216 if AHeight = -1 then AHeight := H; 218 Info^.Height := AHeight; 228 AHeight: Integer); 235 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/gtk/ |
H A D | gtkdebug.pp | 35 procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: In… 40 procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integ… 149 if AHeight = -1 then AHeight := H; 151 Info^.Height := AHeight; 186 if AHeight = -1 then AHeight := H; 188 Info^.Height := AHeight; 216 if AHeight = -1 then AHeight := H; 218 Info^.Height := AHeight; 228 AHeight: Integer); 235 if AHeight = -1 then AHeight := AImage^.height; [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/packages/ptc/src/core/ |
H A D | surfacei.inc | 58 AWidth, AHeight, APitch: Integer; 62 AWidth, AHeight, APitch: Integer; 67 AWidth, AHeight, APitch: Integer; 71 AWidth, AHeight, APitch: Integer; 98 Result := TPTCSurface.Create(AWidth, AHeight, AFormat); 108 LOG('height', AHeight); 111 FHeight := AHeight; 113 FArea := TPTCArea.Create(0, 0, AWidth, AHeight); 116 size := AWidth * AHeight * AFormat.Bytes; 179 TPTCArea.Create(0, 0, AWidth, AHeight), FArea); [all …]
|
/dports/editors/lazarus/lazarus/lcl/interfaces/win32/ |
H A D | win32debug.pp | 30 …AP; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 31 …DC; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 157 procedure InternalDumpBitmap(ABitmap: HBITMAP; ADesc, ATitle: String; AWidth: Integer; AHeight: Int… 170 if AHeight = -1 then AHeight := 0; 177 if AHeight = -1 then AHeight := H; 178 Info^.Bitmap := CopyImage(ABitmap, IMAGE_BITMAP, AWidth, AHeight, 0); 182 Info^.Height := AHeight; 191 procedure DbgDumpBitmap(ABitmap: HBITMAP; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Int… 193 InternalDumpBitmap(ABitmap, Format('Bitmap:$%x', [ABitmap]), ATitle, AWidth, AHeight, AUseBitBlt); 196 procedure DbgDumpDC(ADC: HDC; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Integer); [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/win32/ |
H A D | win32debug.pp | 30 …AP; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 31 …DC; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 157 procedure InternalDumpBitmap(ABitmap: HBITMAP; ADesc, ATitle: String; AWidth: Integer; AHeight: Int… 170 if AHeight = -1 then AHeight := 0; 177 if AHeight = -1 then AHeight := H; 178 Info^.Bitmap := CopyImage(ABitmap, IMAGE_BITMAP, AWidth, AHeight, 0); 182 Info^.Height := AHeight; 191 procedure DbgDumpBitmap(ABitmap: HBITMAP; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Int… 193 InternalDumpBitmap(ABitmap, Format('Bitmap:$%x', [ABitmap]), ATitle, AWidth, AHeight, AUseBitBlt); 196 procedure DbgDumpDC(ADC: HDC; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Integer); [all …]
|
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/win32/ |
H A D | win32debug.pp | 30 …AP; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 31 …DC; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 157 procedure InternalDumpBitmap(ABitmap: HBITMAP; ADesc, ATitle: String; AWidth: Integer; AHeight: Int… 170 if AHeight = -1 then AHeight := 0; 177 if AHeight = -1 then AHeight := H; 178 Info^.Bitmap := CopyImage(ABitmap, IMAGE_BITMAP, AWidth, AHeight, 0); 182 Info^.Height := AHeight; 191 procedure DbgDumpBitmap(ABitmap: HBITMAP; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Int… 193 InternalDumpBitmap(ABitmap, Format('Bitmap:$%x', [ABitmap]), ATitle, AWidth, AHeight, AUseBitBlt); 196 procedure DbgDumpDC(ADC: HDC; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Integer); [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/win32/ |
H A D | win32debug.pp | 30 …AP; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 31 …DC; ATitle: String = ''; AUseBitBlt: Boolean = False; AWidth: Integer = -1; AHeight: Integer = -1); 157 procedure InternalDumpBitmap(ABitmap: HBITMAP; ADesc, ATitle: String; AWidth: Integer; AHeight: Int… 170 if AHeight = -1 then AHeight := 0; 177 if AHeight = -1 then AHeight := H; 178 Info^.Bitmap := CopyImage(ABitmap, IMAGE_BITMAP, AWidth, AHeight, 0); 182 Info^.Height := AHeight; 191 procedure DbgDumpBitmap(ABitmap: HBITMAP; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Int… 193 InternalDumpBitmap(ABitmap, Format('Bitmap:$%x', [ABitmap]), ATitle, AWidth, AHeight, AUseBitBlt); 196 procedure DbgDumpDC(ADC: HDC; ATitle: String; AUseBitBlt: Boolean; AWidth, AHeight: Integer); [all …]
|
/dports/editors/lazarus/lazarus/lcl/interfaces/carbon/ |
H A D | carbondebug.pp | 30 procedure DbgDumpImage(AImage: CGImageRef; ATitle: String = ''; AWidth: Integer = -1; AHeight: Inte… 31 procedure DbgDumpLayer(ALayer: CGLayerRef; ATitle: String = ''; AWidth: Integer = -1; AHeight: Inte… 157 procedure DbgDumpImage(AImage: CGImageRef; ATitle: String = ''; AWidth: Integer = -1; AHeight: Inte… 168 if AHeight = -1 then AHeight := 0; 175 if AHeight = -1 then AHeight := H; 181 Info^.Height := AHeight; 189 procedure DbgDumpLayer(ALayer: CGLayerRef; ATitle: String = ''; AWidth: Integer = -1; AHeight: Inte… 200 if AHeight = -1 then AHeight := 0; 205 if AHeight = -1 then AHeight := Round(S.height); 211 Info^.Height := AHeight;
|