Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
Graphics and Multimedia
»
Graphics
»
BGRABitmap and LazPaint
»
TBRGABitmap Resample(...)
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
leetcode doesn’t support ...
by
Joanna
[
Today
at 01:17:35 am]
Demo Scene Picture sinwav...
by
Gigatron
[
Today
at 12:48:52 am]
open dialog - default dir...
by
KodeZwerg
[
Today
at 12:34:53 am]
Can function be used for ...
by
jamie
[
Today
at 12:26:42 am]
DbGrid, grid column check...
by
KodeZwerg
[
Today
at 12:08:29 am]
Colore celle StringGrid
by
JuanBell
[April 24, 2024, 10:37:56 pm]
Likely bug
by
440bx
[April 24, 2024, 10:12:59 pm]
Any upgrades to fpWeb pag...
by
verasan
[April 24, 2024, 10:11:46 pm]
Web Applications with Pas...
by
Handoko
[April 24, 2024, 08:56:29 pm]
AI, NLP and CAI: Text Gen...
by
indydev
[April 24, 2024, 08:54:00 pm]
Offical launch of the 1 B...
by
Gustavo 'Gus' Carreno
[April 24, 2024, 08:48:22 pm]
Multidimensional arrays a...
by
KodeZwerg
[April 24, 2024, 08:34:38 pm]
Ho Ho Ho IntraWeb in Laza...
by
Thaddy
[April 24, 2024, 08:31:29 pm]
[SOLVED] System.Now gives...
by
alpine
[April 24, 2024, 08:29:19 pm]
Installing and using Vamp...
by
Odacir
[April 24, 2024, 07:58:22 pm]
Demo Scene Bitmap Font Sc...
by
KodeZwerg
[April 24, 2024, 07:21:14 pm]
what's difference between...
by
ASerge
[April 24, 2024, 07:09:52 pm]
splitting an image
by
KodeZwerg
[April 24, 2024, 07:07:21 pm]
Debugger error
by
bobonwhidbey
[April 24, 2024, 07:03:07 pm]
How to: create DLL file f...
by
paule32
[April 24, 2024, 07:02:31 pm]
Your best UI design - con...
by
circular
[April 24, 2024, 06:48:12 pm]
Converting a string/index...
by
1HuntnMan
[April 24, 2024, 06:35:19 pm]
Drawing grid lines on a t...
by
KodeZwerg
[April 24, 2024, 05:42:19 pm]
Compile/Convert Delphi pr...
by
Martin_fr
[April 24, 2024, 05:29:03 pm]
Lazarus features in a non...
by
Lutz Mändle
[April 24, 2024, 05:26:34 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: TBRGABitmap Resample(...) (Read 3127 times)
PaulANormanNZ
Full Member
Posts: 117
TBRGABitmap Resample(...)
«
on:
July 01, 2018, 09:30:56 am »
Hi I have been going around in circles trying to Resample a TBGRABitmap
I am sure that I am missing something very obvious...
Code: Pascal
[Select]
[+]
[-]
// Always works as a test...
// Image_Btabb_thumbnail.Picture.bitmap.Assign(global_main_image.Bitmap);
// Both top two creation methods are definitely loading a displayable image...
// thumbNail:= tbgrabitmap.Create(global_main_image.Bitmap);
thumbNail
:
=
tbgrabitmap
.
Create
(
global_FileName_plain
)
;
// thumbNail:= tbgrabitmap.Create;
try
// This works...
// Image_Btabb_thumbnail.Picture.bitmap.Assign(thumbNail.Bitmap);
// showmessage('ok');
thumbNail
.
ResampleFilter
:
=
rfBestQuality
;
// This comes out blank
BGRAReplace
(
thumbNail
,
thumbNail
.
Resample
(
newWidth
,
newHeight
,
rmFineResample
)
)
;
// This does not imrpove anything
// thumbNail.InvalidateBitmap;
// showmessage('ok');
{
// this never works ...
global_main_image.ResampleFilter:= rfBestQuality;
thumbNail := global_main_image.Resample(
newWidth, newHeight,
rmFineResample)
as TBGRABitmap;
}
Application
.
ProcessMessages
;
//
// // this always comes out blank after re-sample...
Image_Btabb_thumbnail
.
Picture
.
bitmap
.
Assign
(
thumbNail
.
Bitmap
)
;
// And so, of course this only produces "data:image" and nothing else...
thumbString
:
=
thumbNail
.
Canvas2D
.
toDataURL
(
'image/jpeg'
)
;
Any help appreciates please,
Paul
Logged
lainz
Hero Member
Posts: 4473
Re: TBRGABitmap Resample(...)
«
Reply #1 on:
July 01, 2018, 04:30:16 pm »
If I remember correctly is like this:
Code: Pascal
[Select]
[+]
[-]
BGRAReplace
(
Bitmap
,
Bitmap
.
Resample
(
...
)
as TBGRABitmap
)
Logged
https://lainz.github.io/
PaulANormanNZ
Full Member
Posts: 117
Re: TBRGABitmap Resample(...)
«
Reply #2 on:
July 02, 2018, 02:20:31 am »
Thanks Lainz,
I was looking at ...
http://wiki.freepascal.org/BGRABitmap_tutorial_5
Which shows it in this form...
Code: Pascal
[Select]
[+]
[-]
//load and scale texture
tex
:
=
TBGRABitmap
.
Create
(
'texture.png'
)
;
BGRAReplace
(
tex
,
tex
.
Resample
(
128
,
80
)
)
;
which doesn't show the cast..
Code: Pascal
[Select]
[+]
[-]
BGRAReplace
(
Bitmap
,
Bitmap
.
Resample
(
...
)
as TBGRABitmap
)
I really appreciate the tutorials, they cover some amazing capabilities - is there though some straight forward primers anywhere which go over many of the more mundane use case scenarios, like these sorts of things, just processing images for web, storage in base64 etc...
Often people say look at the LazPaint code, but it is not a straight forward "design time" interface the way it is done.
Thanks,
paul
Logged
lainz
Hero Member
Posts: 4473
Re: TBRGABitmap Resample(...)
«
Reply #3 on:
July 02, 2018, 02:26:24 am »
Yes, I was writting it from my memories only =)
You can attach a small program that reproduces the problem? Usually when you do that, you can find the problem, and if not, we can try to help.
Logged
https://lainz.github.io/
lainz
Hero Member
Posts: 4473
Re: TBRGABitmap Resample(...)
«
Reply #4 on:
July 02, 2018, 02:52:10 am »
This works for me:
Code: Pascal
[Select]
[+]
[-]
unit
Unit1
;
{$mode objfpc}{$H+}
interface
uses
Classes
,
SysUtils
,
FileUtil
,
Forms
,
Controls
,
Graphics
,
Dialogs
,
ExtCtrls
,
BGRABitmap
,
BGRABitmapTypes
;
type
{ TForm1 }
TForm1
=
class
(
TForm
)
Image1
:
TImage
;
procedure
FormCreate
(
Sender
:
TObject
)
;
procedure
FormDestroy
(
Sender
:
TObject
)
;
private
bitmap
:
TBGRABitmap
;
public
end
;
var
Form1
:
TForm1
;
implementation
{$R *.lfm}
{ TForm1 }
procedure
TForm1
.
FormCreate
(
Sender
:
TObject
)
;
begin
bitmap
:
=
TBGRABitmap
.
Create
(
'image.png'
)
;
bitmap
.
ResampleFilter
:
=
rfBestQuality
;
BGRAReplace
(
bitmap
,
bitmap
.
Resample
(
Image1
.
Width
,
Image1
.
Height
)
)
;
Image1
.
Picture
.
Bitmap
.
Assign
(
bitmap
.
Bitmap
)
;
ShowMessage
(
bitmap
.
Canvas2D
.
toDataURL
(
'image/jpeg'
)
)
;
end
;
procedure
TForm1
.
FormDestroy
(
Sender
:
TObject
)
;
begin
bitmap
.
Free
;
end
;
end
.
Logged
https://lainz.github.io/
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
Graphics and Multimedia
»
Graphics
»
BGRABitmap and LazPaint
»
TBRGABitmap Resample(...)
TinyPortal
© 2005-2018