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

MG: added changes from Andrew (Clipping)

Browse Source 
git-svn-id: trunk@741 -
This commit is contained in:
lazarus 2002-02-09 01:46:08 +00:00
parent 56d3bb2cfe
commit 03e8d313cf
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/gtk/gtkobject.inc
View File

@ -599,6 +599,10 @@ begin
DeleteAndNilBrush(FStockDkGrayBrush);
DeleteAndNilBrush(FStockWhiteBrush);
DeleteAndNilBrush(FStockNullPen);
DeleteAndNilBrush(FStockBlackPen);
DeleteAndNilBrush(FStockWhitePen);
// MG: using gtk_main_quit is not a clean way to close
//gtk_main_quit;
end;
@ -613,6 +617,7 @@ end;
procedure TGtkObject.Init;
var
LogBrush: TLogBrush;
logPen : TLogPen;
//Attributes: TGdkWindowAttr;
//AttributesMask: gint;
FG,BG : TgdkColor; //foreground and background
@ -671,6 +676,15 @@ begin
LogBrush.lbColor := $FFFFFF;
FStockWhiteBrush := CreateBrushIndirect(LogBrush);
LogPen.lopnStyle := PS_NULL;
LogPen.lopnWidth.X := 1;
LogPen.lopnColor := $FFFFFF;
FStockNullPen := CreatePenIndirect(LogPen);
LogPen.lopnStyle := PS_SOLID;
FStockWhitePen := CreatePenIndirect(LogPen);
LogPen.lopnColor := $000000;
FStockBlackPen := CreatePenIndirect(LogPen);
// clipboard
ClipboardTypeAtoms[ctPrimarySelection]:=GDK_SELECTION_PRIMARY;
ClipboardTypeAtoms[ctSecondarySelection]:=GDK_SELECTION_SECONDARY;
@ -4934,7 +4948,7 @@ begin
gdiBrush : Result := True; //Result := GDIBrushPixmap <> nil; //GDIBrushPixmap may be nil
gdiFont : Result := GDIFontObject <> nil;
gdiPen : Result := True;
// gdiRegion :
gdiRegion : Result := True;
else
Result := False;
end;
@ -4981,6 +4995,7 @@ begin
CurrentFont := nil;
CurrentPen := nil;
CurrentBrush := nil;
ClipRegion := 0;
SavedContext := nil;
gdk_color_black(gdk_colormap_get_system, @CurrentTextColor);
gdk_color_white(gdk_colormap_get_system, @CurrentBackColor);
@ -5332,6 +5347,9 @@ end;
{ =============================================================================
$Log$
Revision 1.163 2002/08/15 15:46:49 lazarus
MG: added changes from Andrew (Clipping)
Revision 1.162 2002/08/15 13:37:57 lazarus
MG: started menuitem icon, checked, radio and groupindex
@ -5887,5 +5905,4 @@ end;
Revision 1.1 2000/07/13 10:28:29 michael
+ Initial import
}
}