diff options
author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 06:57:49 +0000 |
---|---|---|
committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 06:57:49 +0000 |
commit | 0b1c5f7ce659f63f00f3b7c408871bd35e6f7456 (patch) | |
tree | 731f694fd08231c9c8f76adab9393f9f12f001cb /gfx/x11 | |
parent | 8bf4f37e3b99775cf9f6253077217ac0174771e0 (diff) | |
download | fpGUI-0b1c5f7ce659f63f00f3b7c408871bd35e6f7456.tar.xz |
Fixed compilation on X11 and adapted its code to the new pixel format
Diffstat (limited to 'gfx/x11')
-rw-r--r-- | gfx/x11/gfx_x11.pas | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/gfx/x11/gfx_x11.pas b/gfx/x11/gfx_x11.pas index 0246cce8..7f677ffb 100644 --- a/gfx/x11/gfx_x11.pas +++ b/gfx/x11/gfx_x11.pas @@ -255,7 +255,7 @@ type procedure SetClientSize(const ASize: TSize); override; procedure SetMinMaxClientSize(const AMinSize, AMaxSize: TSize); override; procedure Show; override; - procedure Invalidate(const ARect: TRect); override; + procedure Invalidate; override; procedure PaintInvalidRegion; override; procedure CaptureMouse; override; procedure ReleaseMouse; override; @@ -464,9 +464,9 @@ var Color: TXColor; begin Color.Pixel := 0; - Color.Red := AColor.Red; - Color.Green := AColor.Green; - Color.Blue := AColor.Blue; + Color.Red := AColor.Red * $FF; + Color.Green := AColor.Green * $FF; + Color.Blue := AColor.Blue * $FF; XAllocColor(GFApplication.Handle, Colormap, @Color); Result := Color.Pixel; end; @@ -1521,8 +1521,15 @@ begin XMapRaised(GFApplication.Handle, Handle); end; -procedure TX11Window.Invalidate(const ARect: TRect); +procedure TX11Window.Invalidate; +var + ARect: TRect; begin + ARect.Left := Left; + ARect.Top := Top; + ARect.Right := Left + Width; + ARect.Bottom := Top + Height; + GFApplication.DirtyList.AddRect(Self, ARect); end; |