[XE7] Utilisation de BGRAbitmap avec Delphi

Version imprimable

01/10/2022, 13h58
BDE78

[XE7] Utilisation de BGRAbitmap avec Delphi

Bonjour,
J'essaie d'utiliser BGRAbitmap avec Delphi XE7pro (VCL).
J'ai récupéré le dépot BGRAbitmapDelphi sur GitHub.
Faut-il installer les .dpk (ou autres) fournis ?

Merci d'avance pour vos réponses.
BDE78
01/10/2022, 15h16
ShaiLeTroll

Cela dépend le besoin,
Pour faciliter l'utilisation des Controls de bgracontrols qui accompage BGRABitmap, l'installation du DPK permet l'ajout à la palette même si ce n'est pas indispensable si l'on fait une allocation en RunTime.

Définir les chemins de bibliothèque sera la première chose à faire et puis lire le README.md ça serait bien !!!
01/10/2022, 16h49
BDE78

Merci pour votre retour,

J'ai bien lu le readme.md => pas d'indication sur l'installation/utilisation avec Delphi, et mes recherches sur les forums ne traitent que de l'utilisation avec Lazarus !

Je ne compte l'utiliser qu'en runtime.

j'ai intégré les 1ères déclarations d'unités dans le uses : BRGAbitmaptypes et BGRAbitmap, et compilé...
il faut compiler en 32b et non pas en 64b !

=> y-a-t-il un moyen "simple et rapide" de rendre compatibles les routines de BRGAbitmap avec une compilation en 64b !

BDE78
01/10/2022, 17h25
ShaiLeTroll

Rien que la vision d'assembleur annonce de mauvaise chose
Pourquoi ne pas créer un petit programme 32Bits qui ne fait que la partie graphique via échange de ligne de commande, TCP IP, Fichiers ... utilisé par un programme 64Bits

Sinon, le code contient de {$IFDEF CPU64} laissant à penser que c'est supporté.
01/10/2022, 18h19
Andnotor

Pourquoi n'utilises-tu pas Direct2D plutôt ?

C'était déjà présent dans XE7.
01/10/2022, 18h45
Paul TOTH

euh je ne vois pas de CPU64 dans le code https://github.com/bgrabitmap/BGRABi...search?q=CPU64

les Bitmaps sont 32Bits, mais ça n'a rien à voir avec la CPU :)
01/10/2022, 19h16
BDE78

@andnotor : j'ai besoin de gérer la transparence, de dessiner des "textes inclinés",...

@shailLeTroll et @Paul Toth :
Quand je compile en 64b :
1ère erreur : [dcc64 Erreur] FPReadJPEG.pas(381): E1012 L'expression constante dépasse les limites de sous-étendue
sur la ligne "FInfo.output_scanline := $ffffff;" déclarer en "cardinal" !
et quand je "force brutalement" "FInfo.output_scanline := $ffff;"
ça génère des erreurs sur les parties "assembleur" des fonctions !!!

c'est mal parti...
01/10/2022, 22h08
Paul TOTH

FPReadJPEG ne fait pas parti de BGRABitmap, c'est pour ça :)

sinon j'ai publié un code pour faire des rotations de bitmap
https://github.com/tothpaul/DelphiTi...ster/DrawCards

et pour la transparence tu as DrawTransparentBitmap dans l'unité Vcl.GraphUtil

1 pièce(s) jointe(s)

Citation:

Envoyé par BDE78

j'ai besoin de gérer la transparence, de dessiner des "textes inclinés",...

On s'en doutait un peu ;)

Code:

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
uses Vcl.Direct2D, WinApi.D2D1;
 
procedure TForm1.FormPaint(Sender: TObject);
var
  D2DCanvas :TDirect2DCanvas;
  Brush     :ID2D1SolidColorBrush;
  Matrix    :TD2DMatrix3x2F;
  i         :Integer;
begin
  D2DCanvas := TDirect2DCanvas.Create(Canvas, ClientRect);
 
  try
    D2DCanvas.BeginDraw;
 
    D2DCanvas.RenderTarget.CreateSolidColorBrush(D2D1ColorF(clRed, 0.2), nil, Brush);
 
    Matrix := TD2DMatrix3X2F.Rotation(-30, 250, 250);
    D2DCanvas.RenderTarget.SetTransform(Matrix);
    D2DCanvas.TextOut(150, 200, 'Andnotor');
 
    for i := 1 to 4 do
    begin
      Matrix := TD2DMatrix3X2F.Rotation(i *10, 250, 250);
      D2DCanvas.RenderTarget.SetTransform(Matrix);
      D2DCanvas.RenderTarget.FillRectangle(D2D1RectF(100, 100, 400, 400), Brush);
    end;
 
    D2DCanvas.EndDraw;
 
  finally
    D2DCanvas.Free;
  end;
end;

Pièce jointe 626501

03/10/2022, 09h47
ShaiLeTroll

Citation:

Envoyé par Paul TOTH

euh je ne vois pas de CPU64 dans le code https://github.com/bgrabitmap/BGRABi...search?q=CPU64

les Bitmaps sont 32Bits, mais ça n'a rien à voir avec la CPU :)

C'est bon à savoir que la recherche ne fonctionne pas : https://github.com/bgrabitmap/BGRABi.../bgratypes.pas, ligne 74 pour la version non FPC
03/10/2022, 09h57
BDE78

Bonjour,

Merci pour vos retours.
Y-a plus qu'à...

BDE78
03/10/2022, 12h18
Paul TOTH

Citation:

Envoyé par ShaiLeTroll

C'est bon à savoir que la recherche ne fonctionne pas : https://github.com/bgrabitmap/BGRABi.../bgratypes.pas, ligne 74 pour la version non FPC

ah punaise ! je n'avais pas lu le message en grand et en gras :D

Sorry, forked repositories are not currently searchable.
02/01/2023, 16h23
circular17

Bonjour,

BGRABitmap à la base fonctionne avec les CPU 64bit mais en ce qui concerne du portage pour Delphi, je ne sais pas ce qu'il en est. En tout cas il date de 4 ans. N'ayant pas Delphi moi-même, je n'ai pas essayé de rendre la base de code compatible avec Delphi, même si j'imagine qu'on pourrait arriver à quelque chose avec des directives.

C'est cool qu'on puisse utiliser Direct2D comme ça dans Delphi. :)