paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: cleanup

Browse Source 
git-svn-id: trunk@18512 -
This commit is contained in:
paul 2009-01-31 10:37:31 +00:00
parent e8a9d70590
commit d7d65211b7
2 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/extdlgs.pas
View File

@ -76,8 +76,6 @@ type
FPreviewFilename: string;
protected
function IsFilterStored: Boolean; virtual;
procedure PreviewKeyDown(Sender: TObject; var Key: word); virtual;
procedure PreviewClick(Sender: TObject); virtual;
property ImageCtrl: TImage read FImageCtrl;
property PictureGroupBox: TGroupBox read FPictureGroupBox;
procedure InitPreviewControl; override;
@ -304,16 +302,6 @@ begin
Result := (Filter<>FDefaultFilter);
end;
procedure TOpenPictureDialog.PreviewKeyDown(Sender: TObject; var Key: word);
begin
if Key = VK_ESCAPE then TForm(Sender).Close;
end;
procedure TOpenPictureDialog.PreviewClick(Sender: TObject);
begin
end;
procedure TOpenPictureDialog.DoClose;
begin
ClearPreview;

6
lcl/include/picture.inc
View File

@ -683,9 +683,9 @@ function TPicture.FindGraphicClassWithFileExt(const Ext: string;
var
FileExt: String;
begin
FileExt:=Ext;
if (FileExt<>'') and (FileExt[1]='.') then
FileExt:=copy(FileExt,2,length(FileExt));
FileExt := Ext;
if (FileExt <> '') and (FileExt[1] = '.') then
FileExt := Copy(FileExt, 2, length(FileExt));
Result := GetPicFileFormats.FindExt(FileExt);
if (Result = nil) and ExceptionOnNotFound then
raise EInvalidGraphic.CreateFmt(rsUnknownPictureExtension, [Ext]);