[Lazarus 0.9.18] Ressources : comment faire avec des images ?

**poilagratter** · 11/08/2007, 14h03

Bonjour à tous,

J'utilise Lazarus 0.9.18 (parce que j'ai des pb avec Timage avec les versions suivantes) sous Windows 98.

J'ai téléchargé Lazres nouvelle version, celle qui permet de prendre en compte des listes de fichiers.

Merci à Clandestino pour son exemple avec une ressource-texte, un memo et un bouton pour tester. Cela fonctionne parfaitement.

J'ai essayé une manipulation analogue avec une ressource-image.png, un Timage et un bouton, et je n'ai pas trouvé la solution.

Merci à qui pourra m'aider.

**Clandestino** · 12/08/2007, 09h15

Bonjour,
Il faut ajouter png dans les uses, compiler une resource contenant un png avec lazres (voir mon commentaire en bas de source), insérer cette resource dans son code en ajoutant une ligne (pour moi {$I test.lrs} ), et utiliser un objet TPortableNetworkGraphic pour charger la resource...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Buttons, png;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
  MyPng : TPortableNetworkGraphic;
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var r : trect;
begin
  MyPng := TPortableNetworkGraphic.create;
  MyPng.LoadFromLazarusResource('test');
  image1.Picture.Graphic := Mypng;
  Mypng.Free;
end;
 
initialization
  {$I unit1.lrs}
  { Le fichier test.lrs a ete cree a l'aide de l'outil lazres en lançant la
commande : lazres test.lrs test.png }
  {$I test.lrs}
end.