BGRABitmap

[ivanomonti]

Ho un amico che sta bestemmiando per usare questo BGRABitmap che non ho idea che sia, mi potete dare una spiegazione di come usarlo o avere un esempio pratico.

grazie.

[xinyiman]

Prova con questo

http://wiki.lazarus.freepascal.org/BGRABitmap

[ivanomonti]

Grazie stavo leggendo ma io ho errore sul ide nella quale non trova riferimenti a BGRABitmap, BGRABitmapTypes che credo siano dll

non so dove scaricarli e dove devo metterli.

ho cercato e installato LazPaint ma delle dll nessuna traccia, mi sto perdendo in un bicchiere d'acqua.

Altro aiuto grazie infinite.

[xinyiman]

Fai copia e incolla dell'errore.

[ivanomonti]

Errore arriva dove e evidenziato, e quello che vorrei fare funzionare e la function rossa, copiata dal manuale.

errore = unit1.pas(9,38) Fatal: Can't find unit BGRABitmap used by Unit1

codice sperimentale =

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, PopupNotifier, BGRABitmap, BGRABitmapTypes;
type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Message: TButton;
    Start: TButton;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure MessageClick(Sender: TObject);
    procedure Shape1ChangeBounds(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);
var bmp: TBGRABitmap;
begin
  bmp := TBGRABitmap.Create(ClientWidth, ClientHeight, BGRABlack);
  bmp.FillRect(20, 20, 100, 40, BGRA(255,192,0), dmSet);  //fill an orange rectangle
  bmp.Draw(Canvas, 0, 0, True);                           //render BGRABitmap on the form
  bmp.Free;                                               //free memory
end;

procedure TForm1.MessageClick(Sender: TObject);
begin
ShowMessage( Edit1.Text );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=100;
  Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position>99 then
  begin
    ProgressBar1.Position:=0;
  end
  else
  begin
    ProgressBar1.Position:=ProgressBar1.Position+1;
  end;
end;

end.

[xinyiman]

Al fondo del link che ti ho  postato prima c'è la sezione download da cui ti dice di scaricare LazPaint e il componente che vuoi usare. Scaricali entrambi, installali entrambi e poi dovrebbe funzionare!

[ivanomonti]

Al fondo del link che ti ho  postato prima c'è la sezione download da cui ti dice di scaricare LazPaint e il componente che vuoi usare. Scaricali entrambi, installali entrambi e poi dovrebbe funzionare!

ho scaricato ma non ho capito come installarli, cioè LazPaint si è installato sulla directory ma le librerie le ho messe a mano sulla directory C:\lazarus\components\brgabitmap sperando che vada bene, ma il problema persiste.

[xinyiman]

Leggi questo How To

http://www.lazaruspascal.it/index.php?page=44

[ivanomonti]

Leggi questo How To

http://www.lazaruspascal.it/index.php?page=44

OK risolto, era un problema di solito pasticcio, reinstallato il pacchetto e tutto a funzionato, devo entrare nella logica.

[xinyiman]

Perfetto

[ivanomonti]

Voglio cmq dire che dovrebbero fare una giuda anche in italiano, perchè ad esempio io non leggo molto inglese (mia pecca) ma i concetti in italiano sono diversi da quelli inglesi, loro con 1 parola danno milioni di significati, noi con milioni di parole diamo un milione di significati.

Vabbè ora mi devo dilettare su connessioni db mysql e sqlite, vediamo che si fa, solita richiesta esempi dove si trovano, inoltre esiste un calderonedove buttare esempi freschi!!!

ciao a tutti e grazie per la vostra pazienza.

[xinyiman]

Allora per fare degli esempi e postarli dovete far richiesta di diventare utenti "Scrittori" nell'aposito 3d (nella sezione generale), quindi potete anche scrivere nella sezione How To. Per quanto riguarda sqllite funziona tutto alla grande. Mentre per MySql ho avuto brutte esperienze, sono riuscito a farlo funzionare solo con gli ODBC. Perciò nei miei progetti ho sostituito MySql con firebird che va alla grande!

[ivanomonti]

apriamo altra discussione sqlite, può essere utile 

[xinyiman]

ok