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

updated build fpc rpm script

Browse Source 
git-svn-id: trunk@4387 -
This commit is contained in:
mattias 2003-07-08 20:09:40 +00:00
parent 7880351d77
commit fdc345358e
2 changed files with 43 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -8186,48 +8186,65 @@ var
//----------
function NoDrawableToNoDrawable: Boolean;
const // FROM TO
{const // FROM TO
BLT_MATRIX: array[TGDIBitmapType, TGDIBitmapType] of TBltFunction = (
(@DrawableToDrawable, @BitmapToPixmap, @BitmapToImage),
(@PixmapToBitmap, @DrawableToDrawable, @PixmapToImage),
(@ImageToBitmap, @ImageToDrawable, @ImageToImage)
);
);}
begin
If (TDeviceContext(SrcDC).CurrentBitmap <> nil) and
(TDeviceContext(DestDC).CurrentBitmap <> nil)
then
Result := BLT_MATRIX[
TDeviceContext(SrcDC).CurrentBitmap^.GDIBitmapType,
TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType
]()
case TDeviceContext(SrcDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: case TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: Result:=DrawableToDrawable;
gbPixmap: Result:=BitmapToPixmap;
gbImage: Result:=BitmapToImage;
end;
gbPixmap: case TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: Result:=PixmapToBitmap;
gbPixmap: Result:=DrawableToDrawable;
gbImage: Result:=PixmapToImage;
end;
gbImage: case TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: Result:=ImageToBitmap;
gbPixmap: Result:=ImageToDrawable;
gbImage: Result:=ImageToImage;
end;
end
else
Result := Unsupported;
end;
function NoDrawableToDrawable: Boolean;
const
{const
BLT_FUNCTION: array[TGDIBitmapType] of TBltFunction = (
@PixmapToDrawable, @PixmapToDrawable, @ImageToDrawable
);
);}
begin
If TDeviceContext(SrcDC).CurrentBitmap <> nil then
Result := BLT_FUNCTION[
TDeviceContext(SrcDC).CurrentBitmap^.GDIBitmapType
]()
case TDeviceContext(SrcDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: Result:=PixmapToDrawable;
gbPixmap: Result:=PixmapToDrawable;
gbImage: Result:=ImageToDrawable;
end
else
Result := Unsupported;
end;
function DrawableToNoDrawable: Boolean;
const
{const
BLT_FUNCTION: array[TGDIBitmapType] of TBltFunction = (
@Unsupported, @Unsupported, @Unsupported
);
);}
begin
If TDeviceContext(DestDC).CurrentBitmap <> nil then
Result := BLT_FUNCTION[
TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType
]()
case TDeviceContext(DestDC).CurrentBitmap^.GDIBitmapType of
gbBitmap: Result:=Unsupported;
gbPixmap: Result:=Unsupported;
gbImage: Result:=Unsupported;
end
else
Result := Unsupported;
end;
@ -8589,6 +8606,9 @@ end;
{ =============================================================================
$Log$
Revision 1.262 2003/07/08 20:09:40 mattias
updated build fpc rpm script
Revision 1.261 2003/07/07 07:59:34 mattias
made Size_SourceIsInterface a flag

10
tools/install/build_fpc_rpm.sh
View File

@ -54,7 +54,10 @@ VersionFile="$TmpDir/compiler/version.pas"
CompilerVersion=`cat $VersionFile | grep ' *version_nr *=.*;' | sed -e 's/[^0-9]//g'`
CompilerRelease=`cat $VersionFile | grep ' *release_nr *=.*;' | sed -e 's/[^0-9]//g'`
CompilerPatch=`cat $VersionFile | grep ' *patch_nr *=.*;' | sed -e 's/[^0-9]//g'`
LazVersion="$CompilerVersion.$CompilerRelease.$CompilerPatch"
LazVersion="$CompilerVersion.$CompilerRelease"
if [ "$CompilerPatch" != "0" ]; then
LazVersion="$LazVersion.$CompilerPatch"
fi
SpecFile=$TmpDir/install/fpc.spec
@ -80,11 +83,12 @@ fi
# change Makefile for new rpmbuild, if not already done
cd $TmpDir
grep rpmbuild Makefile \
|| cat Makefile | \
if [ -n `grep rpmbuild Makefile` ]; then
cat Makefile | \
sed -e 's/rpm\( --nodeps -ba .*\)$/rpm\1 || rpmbuild\1/g' \
> New.Makefile
mv New.Makefile Makefile
fi
cd -
#------------------------------------------------------------------------------