logobrowse.pas

Gestione Cellulari Nokia

unit logoBrowse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, FBUSLogoMgr,mainunit, StdCtrls, ComCtrls, ExtCtrls,
  FBUSLogoEditor;

type
  TfrmLogoBrowse = class(TForm)
    FBUSLogoMgr1: TFBUSLogoMgr;
    ImageList1: TImageList;
    FBUSLogoEditor1: TFBUSLogoEditor;
    Image1: TImage;
    ListView1: TListView;
    btnOpen: TButton;
    btnClose: TButton;
    Timer1: TTimer;
    procedure ListView1DblClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure btnCloseClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure displayform;
  end;

var
  frmLogoBrowse: TfrmLogoBrowse;

implementation

{$R *.DFM}

procedure TfrmLogoBrowse.ListView1DblClick(Sender: TObject);
begin
 frmMain.ShowLogoFromBrowser(strToInt(ListView1.Selected.SubItems[0]),4);
end;

procedure TfrmLogoBrowse.displayform;
begin
  timer1.enabled:=true;
  screen.cursor:=crHourGlass;
  showmodal;
  application.processmessages;
end;
procedure TfrmLogoBrowse.btnOpenClick(Sender: TObject);
begin
  if ListView1.SelCount >0 then
    frmMain.ShowLogoFromBrowser(strToInt(ListView1.Selected.SubItems[0]),4);
end;

procedure TfrmLogoBrowse.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
     btnOpen.enabled:=true;
end;

procedure TfrmLogoBrowse.btnCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmLogoBrowse.Timer1Timer(Sender: TObject);
var
   x:integer;
   ListItem : TListItem;
   icnt:integer;
const
     fbPictureMessage = 4;
begin
  timer1.enabled:=false;
  screen.cursor:=crHourGlass;
  application.processmessages;
  icnt:=0;
  for x:=0 to 13 do
    begin
      if FBUSLogoMgr1.Download(fbPictureMessage,x) then
        begin
          application.processmessages;
          ImageList1.Add(image1.picture.bitmap,nil);
          ListItem:=ListView1.items.Add;
          Listitem.ImageIndex:=icnt;
          Listitem.Caption:='Picture Message '+inttostr(x+1);
          Listitem.SubItems.add(inttostr(x));
          inc(icnt);
        end;
    end;
    screen.cursor:=crdefault;
end;

end.