program stdimglist;
 
{$mode objfpc}{$H+}
 
uses
  Classes, SysUtils,
  fpg_base, fpg_main, fpg_form, fpg_imgfmt_bmp, fpg_button;
 
type
 
  TMainForm = class
  private
    btnClose: TfpgButton;
    procedure   btnCloseClick;
  protected
    procedure   HandlePaint; override;
  public
    constructor Create; override;
    procedure   AfterCreate; override;
  end;
 
{ TMainForm }
 
procedure TMainForm.AfterCreate;
begin
  SetPosition;
  WindowTitle := 'fpGUI Standard Image Listing';
end;
 
procedure TMainForm.btnCloseClick;
begin
  Close;
end;
 
procedure TMainForm.HandlePaint;
var
  n: integer;
  x: TfpgCoord;
  y: TfpgCoord;
  sl: TStringList;
  img: TfpgImage;
begin
  Canvas.BeginDraw; // begin double buffering
  inherited HandlePaint;
 
  sl  := TStringList.Create;
  x   := 8;
  y   := 8;
  fpgImages.ListImages;
 
  for n := 0 to sl.Count-1 do
  begin
    Canvas.DrawString;
 
    img := TfpgImage;
    if img <> nil then
      Canvas.DrawImage;
 
    inc;
    if y > Height-32 then // largest images are 32 in height
    begin
      inc;
      y := 8;
    end;
  end;
 
  Canvas.EndDraw;
  sl.Free;
end;
 
constructor TMainForm.Create;
begin
  inherited Create;
  // Place button in bottom right corner.
  btnClose := CreateButton;
  btnClose.ImageName := 'stdimg.quit';
  btnClose.Anchors := ;
end;
 
procedure MainProc;
var
  frm : TMainForm;
begin
  fpgApplication.Initialize;
  frm := TMainForm.Create;
  try
    frm.Show;
    fpgApplication.Run;
  finally
    frm.Free;
  end;
end;
 
begin
  MainProc;
end.