jjll.~pas

这是一个delphi源码

unit JJLL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, StdCtrls;

type
  TJJLLForm = class(TForm)
    Image1: TImage;
    PageUpLabel: TLabel;
    PageDownLabel: TLabel;
    ReturnLabel: TLabel;
    PageNumLabel: TLabel;
    JJImage: TImage;
    procedure FormCreate(Sender: TObject);
    procedure PageUpLabelClick(Sender: TObject);
    procedure PageDownLabelClick(Sender: TObject);
    procedure ReturnLabelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FCurPage:Integer;
    JJStringList:TStringList;
    procedure DisplayPage(PageNum:Integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JJLLForm: TJJLLForm;

implementation

uses Data;

{$R *.DFM}

procedure TJJLLForm.DisplayPage(PageNum:Integer);
begin
  if PageNum>=0 then
    begin
     JJImage.Picture.LoadFromFile(JJStringList[PageNum]);
     PageNumLabel.Caption:=IntToStr(PageNum+1)+'/'+IntToStr(JJStringList.Count);
     if Length(PageNumLabel.Caption)=3 then
       PageNumLabel.Left:=693
     else
       PageNumLabel.Left:=685;
     FCurPage:=PageNum;
    end;
end;
procedure TJJLLForm.FormCreate(Sender: TObject);
begin
Top:=0;
Left:=0;
JJStringList:=TStringList.Create;
JJStringList.Text:=DataMod.JJDataSet.FieldByName('TPLJ').AsString;
if JJStringList.Count>0 then
  DisplayPage(0);
JJImage.Picture.RegisterFileFormat('JPG','JPG Files',TJPEGImage);
end;

procedure TJJLLForm.PageUpLabelClick(Sender: TObject);
begin
if FCurPage>0 then
  DisplayPage(FCurPage-1);
end;

procedure TJJLLForm.PageDownLabelClick(Sender: TObject);
begin
if FCurPage<JJStringList.Count-1 then
  DisplayPage(FCurPage+1);
end;

procedure TJJLLForm.ReturnLabelClick(Sender: TObject);
begin
Close;
end;

procedure TJJLLForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_UP then
    PageUpLabel.Onclick(PageUpLabel);
if Key=VK_DOWN then
    PageDownLabel.OnClick(PageDownLabel);
if (Key=70) then
    Close;

end;

procedure TJJLLForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

end.