paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 02:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TIcon

Browse Source 
git-svn-id: trunk@4847 -
This commit is contained in:
mattias 2003-11-26 22:05:57 +00:00
parent 515fa579db
commit 077a406f88
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/bitmap.inc
View File

@ -151,7 +151,7 @@ end;
function TBitmap.LazarusResourceTypeValid(const ResourceType: string): boolean;
begin
Result:=((ClassType=TBitmap) or (ClassType=TPixmap))
Result:=((ClassType=TBitmap) or (ClassType=TPixmap) or (ClassType=TIcon))
and ((AnsiCompareText(ResourceType,'XPM')=0)
or (AnsiCompareText(ResourceType,'BMP')=0));
end;
@ -300,7 +300,8 @@ end;
procedure TBitmap.GetSupportedSourceMimeTypes(List: TStrings);
begin
if (ClassType=TBitmap) or (ClassType=TPixmap) then begin
if (ClassType=TBitmap) or (ClassType=TPixmap) or (ClassType=TIcon) then
begin
List.Clear;
List.Add(PredefinedClipboardMimeTypes[pcfBitmap]);
List.Add(PredefinedClipboardMimeTypes[pcfDelphiBitmap]);
@ -311,7 +312,7 @@ end;
function TBitmap.GetDefaultMimeType: string;
begin
if (ClassType=TBitmap) or (ClassType=TPixmap) then begin
if (ClassType=TBitmap) or (ClassType=TPixmap) or (ClassType=TIcon) then begin
if FImage.SaveStream<>nil then begin
case FImage.SaveStreamType of
bnXPixmap: Result:=PredefinedClipboardMimeTypes[pcfPixmap];
@ -551,7 +552,7 @@ end;
procedure TBitmap.LoadFromMimeStream(Stream: TStream; const MimeType: string);
begin
if (ClassType=TBitmap) or (ClassType=TPixmap) then begin
if (ClassType=TBitmap) or (ClassType=TPixmap) or (ClassType=TIcon) then begin
if (AnsiCompareText(MimeType,PredefinedClipboardMimeTypes[pcfBitmap])=0)
or (AnsiCompareText(MimeType,PredefinedClipboardMimeTypes[pcfDelphiBitmap])=0)
or (AnsiCompareText(MimeType,PredefinedClipboardMimeTypes[pcfPixmap])=0) then
@ -1012,6 +1013,9 @@ end;
{ =============================================================================
$Log$
Revision 1.53 2003/11/26 22:05:57 mattias
fixed TIcon
Revision 1.52 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming