Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Creating Image Viewer Component (Again!)

Posted on 2007-11-26
2
Medium Priority
?
2,193 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 2000 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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
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…
Want to learn how to record your desktop screen without having to use an outside camera. Click on this video and learn how to use the cool google extension called "Screencastify"! Step 1: Open a new google tab Step 2: Go to the left hand upper corn…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Suggested Courses

721 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