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

TGtkThemeServices.DrawPixmap: center pixmap in rect

Browse Source 
git-svn-id: trunk@13711 -
This commit is contained in:
paul 2008-01-10 03:58:02 +00:00
parent 168a0ab623
commit 3ebf0dbd28
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkthemes.pas
View File

@ -137,6 +137,7 @@ procedure TGtkThemeServices.DrawPixmap(DC: HDC; Area: PGdkRectangle; PixmapIndex
var
APixmap, APixmapMask: PGdkPixmap;
DevCtx: TGtkDeviceContext absolute DC;
w, h: gint;
begin
if (PixmapIndex >= Low(PixmapArray)) and (PixmapIndex <= High(PixmapArray)) then
begin
@ -145,12 +146,19 @@ begin
APixmapMask, nil, PixmapArray[PixmapIndex]);
if APixmap <> nil then
begin
gdk_drawable_get_size(APixmap, @w, @h);
w := (Area^.Width - w) div 2;
if w < 0 then
w := 0;
h := (Area^.Height - h) div 2;
if h < 0 then
h := 0;
if APixmapMask <> nil then
begin
gdk_gc_set_clip_mask(DevCtx.GC, APixmapMask);
gdk_gc_set_clip_origin(DevCtx.GC, Area^.x, Area^.y);
gdk_gc_set_clip_origin(DevCtx.GC, Area^.x + w, Area^.y + h);
end;
gdk_draw_pixmap(DevCtx.Drawable, DevCtx.GC, APixmap, 0, 0, Area^.x, Area^.y,
gdk_draw_pixmap(DevCtx.Drawable, DevCtx.GC, APixmap, 0, 0, Area^.x + w, Area^.y + h,
Area^.Width, Area^.Height);
if APixmapMask <> nil then
DevCtx.ResetGCClipping;