TJvThumbnail

type TJvThumbnail = class(TJvBaseThumbnail)

protected

  procedure BoundsChanged; override;

  procedure CalculateImageSize; virtual;

  procedure CreateHandle; override;

  procedure THSizeChanged(); message;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  function LoadFile();

  procedure UpdateThumbHeight;

  procedure UpdateThumbWidth;

  procedure UpdateTitlePanelHeight;

  procedure WMPaint(); message;

  procedure DoAutoAdjustLayout(); override;

public

  procedure ScaleFontsPPI(); override;

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetTitlePanel();

  procedure Refresh;

  property ImageHeight: LongInt; [r]

  property ImageReady: Boolean; [r]

  property ImageWidth: LongInt; [r]

  property Stream: TStream; [rw]

  property Photo: TJvThumbImage; [rw]

published

  property AutoLoad: Boolean; [rw]

  property AsButton: Boolean; [rw]

  property FileName: string; [rw]

  property Margin: Integer; [rw]

  property MinimizeMemory: Boolean; [rw]

  property ShadowColor: TColor; [rw]

  property ShowShadow: Boolean; [rw]

  property ShowTitle: Boolean; [rw]

  property StreamFileType: TGRFKind; [rw]

  property Title: string; [rw]

  property TitleBevelInner: TPanelBevel; [rw]

  property TitleBevelOuter: TPanelBevel; [rw]

  property TitleBorderStyle: TBorderStyle; [rw]

  property TitleColor: TColor; [rw]

  property TitleFont: TFont; [rws]

  property TitlePlacement: TTitlePos; [rw]

  property OnGetTitle: TTitleNotify; [rw]

  property FileSize: LongInt; [rs]

  property FileAccessed: TDateTime; [rs]

  property FileCreated: TDateTime; [rs]

  property FileChanged: TDateTime; [rs]

end;

TJvThumbnail

TJvBaseThumbnail

TObject