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

MG: scrollingwincontrol from Andrew

Browse Source 
git-svn-id: trunk@1055 -
This commit is contained in:
lazarus 2002-02-09 01:47:44 +00:00
parent d68790979f
commit eed96a79fd
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkint.pp
View File

@ -105,6 +105,9 @@ type
Window: PGdkWindow; var PixmapImg, PixmapMask: PGdkPixmap); Window: PGdkWindow; var PixmapImg, PixmapMask: PGdkPixmap);
procedure LoadFromXPMFile(Bitmap: TObject; Filename: PChar); procedure LoadFromXPMFile(Bitmap: TObject; Filename: PChar);
procedure LoadFromPixbufFile(Bitmap: TObject; Filename: PChar); procedure LoadFromPixbufFile(Bitmap: TObject; Filename: PChar);
procedure LoadFromPixbufData(Bitmap : hBitmap; Data : PByte);
function InternalGetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT;
BitSize : Longint; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT; DIB : Boolean): Integer;
procedure SetRCFilename(const AValue: string); procedure SetRCFilename(const AValue: string);
procedure ParseRCFile; procedure ParseRCFile;
@ -164,6 +167,8 @@ type
{$I gtklistslh.inc} {$I gtklistslh.inc}
function GetDCOffset(DC: PDeviceContext): TPoint;
implementation implementation
uses uses
@ -483,6 +488,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.72 2002/09/10 06:49:20 lazarus
MG: scrollingwincontrol from Andrew
Revision 1.71 2002/09/06 22:32:21 lazarus Revision 1.71 2002/09/06 22:32:21 lazarus
Enabled cursor property + property editor. Enabled cursor property + property editor.