Solved

Creating Image Viewer Component (Again!)

Posted on 2007-11-26
2
2,179 Views
Last Modified: 2013-11-23
Hi, I am making an Image viewer component in Delphi 7 that displays only bmp's. I have placed all of my sub components in a TPanel,  including

an Image Box
a Load File Button
An exit (close) button
A label that displays the file size

I have managed to code where I want  my buttons , labels and image box to be,  but what I want to know is how I add events to the buttons,  what code do I add to make the exit button close and to open a bmp?

I first made an application with all of the functionality working, just need to know how to transfer that to the compnent code?

Any ideas would be gratefully appreciated.

I have already asked this question before and I got a great solution from  expert dinilud (his code is below) but I forgot to ask him how I could retrieve & show another 2  image  properies in a label

1. File size in bytes or MB
2. Date file was created.

Cheers


unit ImageViewer;
 
interface
 
uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls,ExtDlgs,Forms,Graphics;
 
type
  TImageViewer = class(TPanel)
  private
    { Private declarations }
    FLoadBmpBtn: TButton;
    FExitBtn: TButton;
    FInfoBtn: TButton;
    FImage1: TImage;
    FCreatedLabel: TLabel;
    FSizeLabel: TLabel;
    FSizeLabelCaption: TLabel;
    procedure FExitBtnClick(Sender: TObject);
    procedure FLoadBmpBtnClick(Sender: TObject);
    function GetPicture:TPicture;
    procedure SetPicture(Value:TPicture);
  protected
    { Protected declarations }
 
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published
    { Published declarations }
    property Picture:TPicture read GetPicture write SetPicture;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [TImageViewer]);
end;
 
constructor TImageViewer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Caption:=' ';
  SetBounds(Left,Top,260,345);
  FLoadBmpBtn:=TButton.Create(Self);
  FLoadBmpBtn.Parent:=Self;
  FLoadBmpBtn.Caption:='Laod';
  FLoadBmpBtn.SetBounds(85,305,80,25);
  FLoadBmpBtn.Anchors:=[akBottom,akRight];
  FLoadBmpBtn.OnClick:=FLoadBmpBtnClick;
  FExitBtn:= TButton.Create(Self);
  FExitBtn.Parent:=Self;
  FExitBtn.Caption:='Exit';
  FExitBtn.SetBounds(167,305,80,25);
  FExitBtn.Anchors:=[akBottom,akRight];
  FExitBtn.OnClick:=FExitBtnClick; 
  FInfoBtn:= TButton.Create(Self);
  FInfoBtn.Parent:=Self;
  FInfoBtn.Caption:='Info';
  FInfoBtn.SetBounds(2,305,80,25);
  FInfoBtn.Anchors:=[akBottom,akRight];
  FImage1:=TImage.Create(Self);
  FImage1.Parent:=Self;
  FImage1.SetBounds(8,8,243,243);
  FImage1.Anchors:=[akLeft,akTop,akRight,akBottom];
  FImage1.Stretch:=True;
 
  FSizeLabelCaption:= TLabel.Create(Self);
  FSizeLabelCaption.Parent:=Self;
  FSizeLabelCaption.SetBounds(8,256,32,13);
  FSizeLabelCaption.Caption:='Size: ';
  FSizeLabelCaption.Anchors:=[akBottom,akLeft];
  FSizeLabel:= TLabel.Create(Self);
  FSizeLabel.Parent:=Self;
  FSizeLabel.SetBounds(FSizeLabelCaption.Left+FSizeLabelCaption.Width,256,32,13);
  FSizeLabel.Caption:='0 X 0';
  FSizeLabel.Anchors:=[akBottom,akLeft];
end;
 
destructor TImageViewer.Destroy;
begin
  FSizeLabelCaption.Free;
  FSizeLabel.Free;
  FImage1.Free;
  FInfoBtn.Free;
  FLoadBmpBtn.Free;
  FExitBtn.Free;
  inherited;
end;
 
procedure TImageViewer.FExitBtnClick(Sender: TObject);
var c:TComponent;
begin
  c:=Self;
  While TWinControl(C).Parent<>nil do
  begin
     if TWinControl(C).Parent is TCustomForm then
     begin
        TCustomForm(TWinControl(C).Parent).Close;
        Break;
     end;
     c:=TWinControl(C).Parent;
  end;
{  if TWinControl(C).Parent is TCustomForm then
      TCustomForm(TWinControl(C).Parent).Close;}
end;
 
procedure TImageViewer.FLoadBmpBtnClick(Sender: TObject);
var f:TOpenPictureDialog;
begin
   f:=TOpenPictureDialog.Create(Self);
   try
     if f.Execute then
     begin
       FImage1.Picture.LoadFromFile(f.FileName);
       FSizeLabel.Caption:=IntToStr(FImage1.Picture.Width)+' X '+
                               IntToStr(FImage1.Picture.Height);
     end;
 
   finally
     f.Free;
   end;
end;
 
function TImageViewer.GetPicture:TPicture;
begin
  Result:=FImage1.Picture;
end;
 
procedure TImageViewer.SetPicture(Value:TPicture);
begin
   FImage1.Picture.Assign(Value);
   FSizeLabel.Caption:=IntToStr(FImage1.Picture.Width)+' X '+
                               IntToStr(FImage1.Picture.Height);
end;
 
end.

Open in new window

0
Comment
Question by:gedge73
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 

Author Comment

by:gedge73
ID: 20353839
Anybody?
0
 
LVL 1

Accepted Solution

by:
carcotasu earned 500 total points
ID: 20356389
try to replace this procedure:



procedure TImageViewer.FLoadBmpBtnClick(Sender: TObject);
var f:TOpenPictureDialog;
    fs: file of Byte;
    fSize, fDate :string ;
begin
   f:=TOpenPictureDialog.Create(Self);
   try
     if f.Execute then
     begin
       FImage1.Picture.LoadFromFile(f.FileName);
       // size in bytes
       try
          AssignFile(fs, F.FileName);
          Reset(fs);
          fSize:=IntToStr(FileSize(fs)) ;
          CloseFile(fs);
       except
         fSize:='Unknown' ;
       end ;
       // end size
       // date file
       try
          fDate:=DateTimeToStr(FileDateToDateTime(FileAge(F.FileName)));
       except
          fDate:='Unknown';
       end ;
       // end date file
       FSizeLabel.Caption:=IntToStr(FImage1.Picture.Width)+' X '+
                               IntToStr(FImage1.Picture.Height)+' Size: '+
                               fSize+' Date File: '+fDate ;
     end;
 
   finally
     f.Free;
   end;
end;

Open in new window

0

Featured Post

Want Experts Exchange at your fingertips?

With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special. It's completely agentless, but does let you create an agent, if you desire. It offers powerful scalability …
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …
Suggested Courses
Course of the Month8 days, 23 hours left to enroll

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question