mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
7806e9ceac
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@87 3f818213-9676-44b0-a9b4-5e4c4e03d09d
134 lines
3.7 KiB
ObjectPascal
134 lines
3.7 KiB
ObjectPascal
unit windowutil;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
ctypes, // for cint, etc
|
|
GraphType, // For TRawImage
|
|
{$IFDEF LINUX}
|
|
x, xlib, // For X* stuff.
|
|
{$ENDIF}
|
|
|
|
mufasatypes;
|
|
|
|
{$IFDEF LINUX}
|
|
Procedure XImageToRawImage(XImg: PXImage; Var RawImage: TRawImage);
|
|
function MufasaXErrorHandler(para1:PDisplay; para2:PXErrorEvent):cint;cdecl;
|
|
{$ENDIF}
|
|
Procedure ArrDataToRawImage(Ptr: PRGB32; Size: TPoint; Var RawImage: TRawImage);
|
|
|
|
implementation
|
|
|
|
|
|
{$IFDEF LINUX}
|
|
|
|
// Too global.
|
|
function MufasaXErrorHandler(para1:PDisplay; para2:PXErrorEvent):cint;cdecl;
|
|
begin;
|
|
result := 0;
|
|
Writeln('X Error: ');
|
|
writeln('Error code: ' + inttostr(para2^.error_code));
|
|
writeln('Display: ' + inttostr(LongWord(para2^.display)));
|
|
writeln('Minor code: ' + inttostr(para2^.minor_code));
|
|
writeln('Request code: ' + inttostr(para2^.request_code));
|
|
writeln('Resource ID: ' + inttostr(para2^.resourceid));
|
|
writeln('Serial: ' + inttostr(para2^.serial));
|
|
writeln('Type: ' + inttostr(para2^._type));
|
|
end;
|
|
|
|
Procedure XImageToRawImage(XImg: PXImage; Var RawImage: TRawImage);
|
|
Begin
|
|
RawImage.Init; { Calls raw.Description.Init as well }
|
|
|
|
RawImage.Description.PaletteColorCount:=0;
|
|
RawImage.Description.MaskBitsPerPixel:=0;
|
|
RawImage.Description.Width := XImg^.width;
|
|
RawImage.Description.Height:= XImg^.height;
|
|
|
|
RawImage.Description.Format := ricfRGBA;
|
|
|
|
if XImg^.byte_order = LSBFirst then
|
|
RawImage.Description.ByteOrder := riboLSBFirst
|
|
else
|
|
RawImage.Description.ByteOrder:= riboMSBFirst;
|
|
|
|
RawImage.Description.BitOrder:= riboBitsInOrder; // should be fine
|
|
|
|
RawImage.Description.Depth:=XImg^.depth;
|
|
|
|
RawImage.Description.BitsPerPixel:=XImg^.bits_per_pixel;
|
|
|
|
RawImage.Description.LineOrder:=riloTopToBottom;
|
|
|
|
RawImage.Description.LineEnd := rileDWordBoundary;
|
|
|
|
RawImage.Description.RedPrec := 8;
|
|
RawImage.Description.GreenPrec:= 8;
|
|
RawImage.Description.BluePrec:= 8;
|
|
RawImage.Description.AlphaPrec:=0;
|
|
|
|
|
|
// Can be adjusted to the XImage RedMask, etc.
|
|
// For now I just assume the tester uses BGR.
|
|
RawImage.Description.RedShift:=16;
|
|
RawImage.Description.GreenShift:=8;
|
|
RawImage.Description.BlueShift:=0;
|
|
|
|
RawImage.DataSize := RawImage.Description.Width * RawImage.Description.Height
|
|
* (RawImage.Description.bitsperpixel shr 3);
|
|
//RawImage.DataSize := RawImage.Description.Height * RawImage.Description.BitsPerLine;
|
|
RawImage.Data := PByte(XImg^.data);
|
|
|
|
End;
|
|
{$ENDIF}
|
|
|
|
|
|
// Needs more fixing. We need to either copy the memory ourself, or somehow
|
|
// find a TRawImage feature to skip X bytes after X bytes read. (Most likely a
|
|
// feature)
|
|
Procedure ArrDataToRawImage(Ptr: PRGB32; Size: TPoint; Var RawImage: TRawImage);
|
|
Begin
|
|
RawImage.Init; { Calls raw.Description.Init as well }
|
|
|
|
RawImage.Description.PaletteColorCount:=0;
|
|
RawImage.Description.MaskBitsPerPixel:=0;
|
|
RawImage.Description.Width := Size.X;
|
|
RawImage.Description.Height:= Size.Y;
|
|
|
|
RawImage.Description.Format := ricfRGBA;
|
|
|
|
RawImage.Description.ByteOrder := riboLSBFirst;
|
|
|
|
RawImage.Description.BitOrder:= riboBitsInOrder; // should be fine
|
|
|
|
RawImage.Description.Depth:=24;
|
|
|
|
RawImage.Description.BitsPerPixel:=32;
|
|
|
|
RawImage.Description.LineOrder:=riloTopToBottom;
|
|
|
|
RawImage.Description.LineEnd := rileDWordBoundary;
|
|
|
|
RawImage.Description.RedPrec := 8;
|
|
RawImage.Description.GreenPrec:= 8;
|
|
RawImage.Description.BluePrec:= 8;
|
|
RawImage.Description.AlphaPrec:=0;
|
|
|
|
|
|
RawImage.Description.RedShift:=16;
|
|
RawImage.Description.GreenShift:=8;
|
|
RawImage.Description.BlueShift:=0;
|
|
|
|
RawImage.DataSize := RawImage.Description.Width * RawImage.Description.Height
|
|
* (RawImage.Description.bitsperpixel shr 3);
|
|
|
|
RawImage.Data := PByte(Ptr);
|
|
|
|
End;
|
|
|
|
end.
|
|
|