Окно поверх курсора

[Ax_32]

Если не трудно, добавь в этот исходник http://upwap.ru/1165318 , посмотрю что куда именно копировать нужно... Уже неделю почти над этой фигнёй парюсь

[x128]

Удали Label с формы и скорее всего еще придется закомментировать строки содержащие AlphaBlend и AlphaBlendValue, проверить сам не могу, у меня нет такой древней версии делфи и ставить нет желания.

[Ax_32]

Label удалил, строки закоментировал, всё равно не работает( Ведь работало когда только скачал, я и заново качал, всё одно...
З.Ы. Щас по новее делфи скину

[Ax_32]

Установил Delphi 2009, на нём всё работает) но как правильно скопировать в мою прогу так и не понял :-(

[Ax_32]

x128, просто тупо скопировать нужно, или ещё что добавить? Очень нужно

[x128]

Достаточно просто скопировать как есть.

[Ax_32]

x128, когда копирую вылазит ошибка: [DCC Error] Main.pas(135): E2004 Identifier redeclared: 'fmImageViewer'

[x128]

То, что "вылазит", не имеет отношения к моему примеру, это что-то от твоей программы. В примере который я дал, пару строк кода, в чем сложность? Все, что требуется, это скопировать одну процедуру и два обработчика событий FormCreate и FormDestroy.

[Ax_32]

... Сложность в том что я не понимаю какие именно строчки
И есть разница куда их вставлять? в середине кода, или в конце?

[Ax_32]

x128, ну помоги разобраться, или подскажи куда что нужно вставить, пожалуйста.
Вот сюда:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, Grids, Outline, DirOutln, ExtCtrls,
  StdCtrls, FileCtrl, Spin, Buttons;

type
  TfmImageViewer = class(TForm)
    pnToolBar: TPanel;
    pnNavigation: TPanel;
    dcbDrives: TDriveComboBox;
    dlbFolders: TDirectoryListBox;
    flbFiles: TFileListBox;
    imgPhoto: TImage;
    chbFitToScreen: TCheckBox;
    seInterval: TSpinEdit;
    chbSlideShow: TCheckBox;
    Label1: TLabel;
    Timer1: TTimer;
    bbClose: TBitBtn;
    bbFullScreen: TBitBtn;
    procedure flbFilesChange(Sender: TObject);
    procedure chbFitToScreenClick(Sender: TObject);
    procedure chbSlideShowClick(Sender: TObject);
    procedure seIntervalChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure bbFullScreenClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmImageViewer: TfmImageViewer;

implementation

{$R *.dfm}

Uses
  jpeg, FullScreen;

procedure TfmImageViewer.flbFilesChange(Sender: TObject);
Var
  Ext:String;
  JP:TJPEGImage;
  Rect:TRect;
begin
  Screen.Cursor:=crAppStart;
Try
  If ((flbFiles.FileName='') And (flbFiles.Count<>0)) Then
  Begin
    flbFiles.ItemIndex:=0;
  End;

  Ext:=ExtractFileExt(flbFiles.FileName);
  If ((Ext='.jpg') Or (Ext='.jpeg')) Then
  Begin
    JP:=TJPEGImage.Create;
    JP.LoadFromFile(flbFiles.FileName);
    imgPhoto.Picture.Assign(JP);
    JP.Free;
  End
  Else If Ext='.bmp' Then
  Begin
    imgPhoto.Picture.LoadFromFile(flbFiles.FileName);
  End
  Else Begin
    Rect.Left:=0; Rect.Top:=0; Rect.Right:=imgPhoto.Width-1; Rect.Bottom:=imgPhoto.Height-1;
    imgPhoto.Picture.Bitmap.Width:=imgPhoto.Width;
    imgPhoto.Picture.Bitmap.Height:=imgPhoto.Height;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Color:=clGray;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Style:=bsSolid;
    imgPhoto.Picture.Bitmap.Canvas.FillRect(Rect);
    imgPhoto.Picture.Bitmap.Canvas.Refresh;
  End;

  fmFullScreen.imgPhoto.Stretch:=imgPhoto.Stretch;
  fmFullScreen.imgPhoto.Picture.Assign(imgPhoto.Picture);
Except
  ShowMessage('Неизвестный формат файла!');
End;
  Screen.Cursor:=crDefault;
end;

procedure TfmImageViewer.chbFitToScreenClick(Sender: TObject);
begin
  imgPhoto.Stretch:=chbFitToScreen.Checked;
end;

procedure TfmImageViewer.chbSlideShowClick(Sender: TObject);
begin
  seIntervalChange(Self);
  Timer1.Enabled:=chbSlideShow.Checked;
end;

procedure TfmImageViewer.seIntervalChange(Sender: TObject);
begin
  Timer1.Interval:=seInterval.Value*1000;
end;

procedure TfmImageViewer.Timer1Timer(Sender: TObject);
begin
  If (flbFiles.ItemIndex+1<flbFiles.Count) Then
  Begin
    flbFiles.ItemIndex:=flbFiles.ItemIndex+1;
    flbFilesChange(Self);
  End
  Else If (flbFiles.ItemIndex+1=flbFiles.Count) And (flbFiles.Count>0) Then
  Begin
    flbFiles.ItemIndex:=0;
    flbFilesChange(Self);
  End;
end;

procedure TfmImageViewer.bbFullScreenClick(Sender: TObject);
begin
  fmFullScreen.imgPhoto.Stretch:=imgPhoto.Stretch;
  fmFullScreen.Show;
end;

procedure TfmImageViewer.FormCreate(Sender: TObject);
begin

end;

procedure TfmImageViewer.FormResize(Sender: TObject);
begin
  flbFilesChange(Self);
end;

end.