UWindow
Class UWindowMessageBoxArea

Core.Object
   |
   +--UWindow.UWindowBase
      |
      +--UWindow.UWindowWindow
         |
         +--UWindow.UWindowMessageBoxArea

00001	class UWindowMessageBoxArea expands UWindowWindow;
00002	
00003	var string Message;
00004	
00005	function float GetHeight(Canvas C)
00006	{
00007		local float TW, TH, H;
00008		local int L;
00009		local float OldWinHeight;
00010	
00011		OldWinHeight = WinHeight;
00012		WinHeight = 1000;
00013		C.Font = Root.Fonts[F_Normal];
00014		TextSize(C, "A", TW, TH);
00015		L = WrapClipText(C, 0, 0, Message,,,, True);
00016		H = TH * L;
00017		WinHeight = OldWinHeight;
00018		return H;
00019	}
00020	
00021	function Paint(Canvas C, float X, float Y)
00022	{
00023		C.Font = Root.Fonts[F_Normal];
00024		C.DrawColor.R = 0;
00025		C.DrawColor.G = 0;
00026		C.DrawColor.B = 0;
00027		WrapClipText(C, 0, 0, Message);
00028		C.DrawColor.R = 255;
00029		C.DrawColor.G = 255;
00030		C.DrawColor.B = 255;
00031	}
00032	
00033	defaultproperties
00034	{
00035	}