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

MG: gradient fill, minor issues from Andrew

Browse Source 
git-svn-id: trunk@2294 -
This commit is contained in:
lazarus 2002-08-17 23:41:13 +00:00
parent 83e3e2c922
commit 2b38b21c45
2 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk/gtkdef.pp
View File

@ -36,7 +36,7 @@ uses
gtk, gdk, LCLLinux, LCLType, VclGlobals, Classes, LCLMemManager;
type
TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion);
TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion, gdiPalette);
TGDIBitmapType = (gbBitmap, gbPixmap, gbImage);
PGDIRGB = ^TGDIRGB;
@ -85,6 +85,25 @@ type
gdiRegion: (
GDIRegionObject: PGdkRegion;
);
gdiPalette: (
//Has it been added to the system palette?
Realized : Boolean;
//Type of visual expected
VisualType : TGdkVisualType;
//Actual visual created
PalleteVisual : PGDKVisual;
//Colormap for mapping colors
PalleteColormap : PGDKColormap;
//For use when VisualType <> PalleteVisual^.Type
RGBEntries : Array[0..0] of Longint;
//For mapping from Index to Colormap Pixel
PixelEntries : Array[0..0] of Longint;
);
end;
@ -328,6 +347,9 @@ end.
{ =============================================================================
$Log$
Revision 1.18 2002/09/12 05:56:15 lazarus
MG: gradient fill, minor issues from Andrew
Revision 1.17 2002/09/10 06:49:20 lazarus
MG: scrollingwincontrol from Andrew

7
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -84,6 +84,7 @@ Function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
Function GetClipRGN(DC : hDC; RGN : hRGN) : Longint; override;
Function GetCmdLineParamDescForInterface: string; override;
function GetDC(hWnd: HWND): HDC; override;
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override;
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; Override;
function GetFocus: HWND; override;
@ -103,6 +104,9 @@ Function GetWindowOrgEx(dc : hdc; var P: TPoint): Integer; override;
Function GetWindowRect(Handle : hwnd; var ARect: TRect): Integer; override;
Function GetWindowSize(Handle : hwnd; var Width, Height: integer): boolean; override;
function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint;
Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; Override;
function HideCaret(hWnd: HWND): Boolean; override;
function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;
@ -182,6 +186,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.46 2002/09/12 05:56:17 lazarus
MG: gradient fill, minor issues from Andrew
Revision 1.45 2002/09/10 06:49:24 lazarus
MG: scrollingwincontrol from Andrew