MG: fixed TMainMenu creation

git-svn-id: trunk@1217 -
This commit is contained in:
lazarus 2002-02-09 01:48:07 +00:00
parent b282c1eccf
commit 370c5dc92b

View File

@ -5090,9 +5090,9 @@ begin
GetMem(SelectionColor,4*SizeOf(GDouble));
try
Color:=ColorToRGB(Color);
SelectionColor[0]:=(Color and $ff)/255;
SelectionColor[1]:=((Color shr 8) and $ff)/255;
SelectionColor[2]:=((Color shr 16) and $ff)/255;
SelectionColor[0]:=GDouble(Color and $ff)/255;
SelectionColor[1]:=GDouble((Color shr 8) and $ff)/255;
SelectionColor[2]:=GDouble((Color shr 16) and $ff)/255;
SelectionColor[3]:=0.0;
colorSel := GTK_COLOR_SELECTION(
(GTK_COLOR_SELECTION_DIALOG(ColorSelection))^.colorsel);
@ -6576,6 +6576,9 @@ end;
{ =============================================================================
$Log$
Revision 1.282 2002/11/12 10:16:18 lazarus
MG: fixed TMainMenu creation
Revision 1.281 2002/11/09 18:13:33 lazarus
MG: fixed gdkwindow checks