ffi-wingui-core 0.6.0 → 1.0.0

data/lib/ffi-wingui-core/common.rb

@@ -0,0 +1,153 @@
+require 'ffi'
+
+WINGUI_VISUAL_STYLES = true unless defined?(WINGUI_VISUAL_STYLES)
+WINGUI_DPI_AWARE = true unless defined?(WINGUI_DPI_AWARE)
+
+module WinGUI
+	extend FFI::Library
+
+	module Util
+		def FormatException(ex)
+			str, trace = ex.to_s, ex.backtrace
+
+			str << "\n\n-- backtrace --\n\n" << trace.join("\n") if trace
+
+			str
+		end
+
+		module_function :FormatException
+
+		Id2Ref = {}
+
+		def Id2RefTrack(object)
+			Id2Ref[object.object_id] = object
+
+			ObjectSpace.define_finalizer(object, -> id {
+				Id2Ref.delete(id)
+			})
+		end
+
+		module_function :Id2RefTrack
+
+		unless FFI::Struct.respond_to?(:by_ref)
+			class << FFI::Struct
+				def by_ref(*args)
+					FFI::Type::Builtin::POINTER
+				end
+			end
+		end
+
+		module ScopedStruct
+			def new(*args)
+				raise ArgumentError, 'Cannot accept both arguments and a block' if
+					args.length > 0 && block_given?
+
+				struct = super
+
+				return struct unless block_given?
+
+				begin
+					yield struct
+				ensure
+					struct.pointer.free
+
+					p "Native memory for #{struct} freed" if $DEBUG
+				end
+
+				nil
+			end
+		end
+	end
+
+	INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
+
+	def MAKEWORD(lobyte, hibyte)
+		(lobyte & 0xff) | ((hibyte & 0xff) << 8)
+	end
+
+	def LOBYTE(word)
+		word & 0xff
+	end
+
+	def HIBYTE(word)
+		(word >> 8) & 0xff
+	end
+
+	module_function :MAKEWORD, :LOBYTE, :HIBYTE
+
+	def MAKELONG(loword, hiword)
+		(loword & 0xffff) | ((hiword & 0xffff) << 16)
+	end
+
+	def LOWORD(long)
+		long & 0xffff
+	end
+
+	def HIWORD(long)
+		(long >> 16) & 0xffff
+	end
+
+	def LOSHORT(long)
+		((loshort = LOWORD(long)) > 0x7fff) ? loshort - 0x1_0000 : loshort
+	end
+
+	def HISHORT(long)
+		((hishort = HIWORD(long)) > 0x7fff) ? hishort - 0x1_0000 : hishort
+	end
+
+	module_function :MAKELONG, :LOWORD, :HIWORD, :LOSHORT, :HISHORT
+
+	def L(str)
+		(str << "\0").encode!('utf-16le')
+	end
+
+	def PWSTR(wstr)
+		raise 'Invalid Unicode string' unless
+			wstr.encoding == Encoding::UTF_16LE && wstr[-1] == L('')
+
+		ptr = FFI::MemoryPointer.new(:ushort, wstr.length).
+			put_bytes(0, wstr)
+
+		return ptr unless block_given?
+
+		begin
+			yield ptr
+		ensure
+			ptr.free
+
+			p "Native copy of '#{wstr[0...-1].encode($0.encoding)}' freed" if $DEBUG
+		end
+
+		nil
+	end
+
+	module_function :L, :PWSTR
+
+	APPNAME = L(File.basename($0, '.rbw'))
+
+	class POINT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:x, :long,
+			:y, :long
+	end
+
+	class SIZE < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:cx, :long,
+			:cy, :long
+	end
+
+	class RECT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:left, :long,
+			:top, :long,
+			:right, :long,
+			:bottom, :long
+	end
+end

data/lib/ffi-wingui-core/gdi32.rb

@@ -0,0 +1,575 @@
+if __FILE__ == $0
+	require_relative 'kernel32'
+end
+require_relative 'common'
+
+module WinGUI
+	ffi_lib 'gdi32'
+	ffi_convention :stdcall
+
+	HGDI_ERROR = FFI::Pointer.new(-1)
+
+	def RGB(r, g, b)
+		r | (g << 8) | (b << 16)
+	end
+
+	def GetRValue(rgb)
+		LOBYTE(rgb)
+	end
+
+	def GetGValue(rgb)
+		LOBYTE(rgb >> 8)
+	end
+
+	def GetBValue(rgb)
+		LOBYTE(rgb >> 16)
+	end
+
+	module_function :RGB, :GetRValue, :GetGValue, :GetBValue
+
+	attach_function :CreateCompatibleDC, [
+		:pointer
+	], :pointer
+
+	attach_function :DeleteDC, [
+		:pointer
+	], :int
+
+	LOGPIXELSX = 88
+	LOGPIXELSY = 90
+
+	attach_function :GetDeviceCaps, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :CreateCompatibleBitmap, [
+		:pointer,
+		:int,
+		:int
+	], :pointer
+
+	def DPIAwareFontHeight(pointSize)
+		-MulDiv(pointSize, DPIY, 72)
+	end
+
+	module_function :DPIAwareFontHeight
+
+	FW_DONTCARE = 0
+	FW_THIN = 100
+	FW_EXTRALIGHT = 200
+	FW_LIGHT = 300
+	FW_NORMAL = 400
+	FW_MEDIUM = 500
+	FW_SEMIBOLD = 600
+	FW_BOLD = 700
+	FW_EXTRABOLD = 800
+	FW_HEAVY = 900
+
+	DEFAULT_CHARSET = 1
+	ANSI_CHARSET = 0
+
+	OUT_DEFAULT_PRECIS = 0
+	OUT_DEVICE_PRECIS = 5
+	OUT_RASTER_PRECIS = 6
+	OUT_OUTLINE_PRECIS = 8
+	OUT_SCREEN_OUTLINE_PRECIS = 9
+	OUT_PS_ONLY_PRECIS = 10
+	OUT_TT_PRECIS = 4
+	OUT_TT_ONLY_PRECIS = 7
+
+	CLIP_DEFAULT_PRECIS = 0
+
+	DEFAULT_QUALITY = 0
+	DRAFT_QUALITY = 1
+	PROOF_QUALITY = 2
+	NONANTIALIASED_QUALITY = 3
+	ANTIALIASED_QUALITY = 4
+	if WINVER >= WINXP
+		CLEARTYPE_QUALITY = 5
+		CLEARTYPE_NATURAL_QUALITY = 6
+	end
+
+	DEFAULT_PITCH = 0
+	FIXED_PITCH = 1
+	VARIABLE_PITCH = 2
+
+	FF_DONTCARE = 0 << 4
+	FF_MODERN = 3 << 4
+	FF_SWISS = 2 << 4
+	FF_ROMAN = 1 << 4
+	FF_SCRIPT = 4 << 4
+	FF_DECORATIVE = 5 << 4
+
+	class LOGFONT < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:lfHeight, :long,
+			:lfWidth, :long,
+			:lfEscapement, :long,
+			:lfOrientation, :long,
+			:lfWeight, :long,
+			:lfItalic, :uchar,
+			:lfUnderline, :uchar,
+			:lfStrikeOut, :uchar,
+			:lfCharSet, :uchar,
+			:lfOutPrecision, :uchar,
+			:lfClipPrecision, :uchar,
+			:lfQuality, :uchar,
+			:lfPitchAndFamily, :uchar,
+			:lfFaceName, [:ushort, 32]
+	end
+
+	attach_function :CreateFontIndirect, :CreateFontIndirectW, [
+		LOGFONT.by_ref(:in)
+	], :pointer
+
+	BS_NULL = 1
+	BS_SOLID = 0
+	BS_HATCHED = 2
+	BS_PATTERN = 3
+	BS_DIBPATTERN = 5
+	BS_DIBPATTERNPT = 6
+
+	DIB_RGB_COLORS = 0
+	DIB_PAL_COLORS = 1
+
+	HS_HORIZONTAL = 0
+	HS_VERTICAL = 1
+	HS_FDIAGONAL = 2
+	HS_BDIAGONAL = 3
+	HS_CROSS = 4
+	HS_DIAGCROSS = 5
+
+	class LOGBRUSH < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:lbStyle, :uint,
+			:lbColor, :ulong,
+			:lbHatch, :ulong
+	end
+
+	attach_function :CreateBrushIndirect, [
+		LOGBRUSH.by_ref(:in)
+	], :pointer
+
+	PS_COSMETIC = 0x0000_0000
+	PS_GEOMETRIC = 0x0001_0000
+
+	PS_NULL = 5
+	PS_SOLID = 0
+	PS_DASH = 1
+	PS_DOT = 2
+	PS_DASHDOT = 3
+	PS_DASHDOTDOT = 4
+	PS_ALTERNATE = 8
+	PS_USERSTYLE = 7
+	PS_INSIDEFRAME = 6
+
+	PS_ENDCAP_FLAT = 0x0000_0200
+	PS_ENDCAP_SQUARE = 0x0000_0100
+	PS_ENDCAP_ROUND = 0x0000_0000
+
+	PS_JOIN_BEVEL = 0x0000_1000
+	PS_JOIN_MITER = 0x0000_2000
+	PS_JOIN_ROUND = 0x0000_0000
+
+	class LOGPEN < FFI::Struct
+		extend Util::ScopedStruct
+
+		layout \
+			:lopnStyle, :uint,
+			:lopnWidth, POINT,
+			:lopnColor, :ulong
+	end
+
+	attach_function :CreatePenIndirect, [
+		LOGPEN.by_ref(:in)
+	], :pointer
+
+	attach_function :ExtCreatePen, [
+		:ulong,
+		:ulong,
+		LOGBRUSH.by_ref(:in),
+		:ulong,
+		:pointer
+	], :pointer
+
+	attach_function :CreateRectRgn, [
+		:int,
+		:int,
+		:int,
+		:int
+	], :pointer
+
+	attach_function :CreateRoundRectRgn, [
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :pointer
+
+	attach_function :CreateEllipticRgn, [
+		:int,
+		:int,
+		:int,
+		:int
+	], :pointer
+
+	ALTERNATE = 1
+	WINDING = 2
+
+	attach_function :SetPolyFillMode, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetPolyFillMode, [
+		:pointer
+	], :int
+
+	attach_function :CreatePolygonRgn, [
+		:pointer,
+		:int,
+		:int
+	], :pointer
+
+	attach_function :CreatePolyPolygonRgn, [
+		:pointer,
+		:pointer,
+		:int,
+		:int
+	], :pointer
+
+	attach_function :OffsetRgn, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	RGN_COPY = 5
+	RGN_DIFF = 4
+	RGN_AND = 1
+	RGN_OR = 2
+	RGN_XOR = 3
+
+	ERROR = 0
+	NULLREGION = 1
+	SIMPLEREGION = 2
+	COMPLEXREGION = 3
+
+	attach_function :CombineRgn, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetRgnBox, [
+		:pointer,
+		RECT.by_ref(:out)
+	], :int
+
+	attach_function :PtInRegion, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :RectInRegion, [
+		:pointer,
+		RECT.by_ref(:in)
+	], :int
+
+	attach_function :EqualRgn, [
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :FrameRgn, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :FillRgn, [
+		:pointer,
+		:pointer,
+		:pointer
+	], :int
+
+	attach_function :DeleteObject, [
+		:pointer
+	], :int
+
+	attach_function :GetObject, :GetObjectW, [
+		:pointer,
+		:int,
+		:pointer
+	], :int
+
+	R2_BLACK = 1
+	R2_WHITE = 16
+
+	R2_NOP = 11
+	R2_NOT = 6
+	R2_COPYPEN = 13
+	R2_NOTCOPYPEN = 4
+
+	R2_MERGEPEN = 15
+	R2_MERGENOTPEN = 12
+	R2_MERGEPENNOT = 14
+	R2_NOTMERGEPEN = 2
+
+	R2_MASKPEN = 9
+	R2_MASKNOTPEN = 3
+	R2_MASKPENNOT = 5
+	R2_NOTMASKPEN = 8
+
+	R2_XORPEN = 7
+	R2_NOTXORPEN = 10
+
+	attach_function :SetROP2, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetROP2, [
+		:pointer
+	], :int
+
+	attach_function :SetBkColor, [
+		:pointer,
+		:ulong
+	], :ulong
+
+	attach_function :GetBkColor, [
+		:pointer
+	], :ulong
+
+	attach_function :SetTextColor, [
+		:pointer,
+		:ulong
+	], :ulong
+
+	attach_function :GetTextColor, [
+		:pointer
+	], :ulong
+
+	attach_function :SelectObject, [
+		:pointer,
+		:pointer
+	], :pointer
+
+	def UseObjects(hdc, *hgdiobjs)
+		holds = []
+
+		hgdiobjs.each { |hgdiobj|
+			holds << DetonateLastError([FFI::Pointer::NULL, HGDI_ERROR], :SelectObject,
+				hdc, hgdiobj
+			)
+		}
+
+		yield
+	ensure
+		holds.each { |hgdiobj|
+			SelectObject(hdc, hgdiobj)
+		}
+	end
+
+	module_function :UseObjects
+
+	AD_COUNTERCLOCKWISE = 1
+	AD_CLOCKWISE = 2
+
+	attach_function :SetArcDirection, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetArcDirection, [
+		:int
+	], :int
+
+	attach_function :SaveDC, [
+		:pointer
+	], :int
+
+	attach_function :RestoreDC, [
+		:pointer,
+		:int
+	], :int
+
+	attach_function :GetTextExtentPoint32, :GetTextExtentPoint32W, [
+		:pointer,
+		:buffer_in,
+		:int,
+		SIZE.by_ref(:out)
+	], :int
+
+	attach_function :TextOut, :TextOutW, [
+		:pointer,
+		:int,
+		:int,
+		:buffer_in,
+		:int
+	], :int
+
+	attach_function :MoveToEx, [
+		:pointer,
+		:int,
+		:int,
+		POINT.by_ref(:out)
+	], :int
+
+	attach_function :LineTo, [
+		:pointer,
+		:int,
+		:int
+	], :int
+
+	attach_function :Polyline, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :PolylineTo, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :PolyPolyline, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :Arc, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+	], :int
+
+	attach_function :ArcTo, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+	], :int
+
+	attach_function :AngleArc, [
+		:pointer,
+		:int,
+		:int,
+		:ulong,
+		:float,
+		:float
+	], :int
+
+	attach_function :PolyBezier, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	attach_function :PolyBezierTo, [
+		:pointer,
+		:pointer,
+		:ulong
+	], :int
+
+	PT_MOVETO = 0x06
+	PT_LINETO = 0x02
+	PT_BEZIERTO = 0x04
+	PT_CLOSEFIGURE = 0x01
+
+	attach_function :PolyDraw, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :Rectangle, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :RoundRect, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Ellipse, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Pie, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Chord, [
+		:pointer,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int,
+		:int
+	], :int
+
+	attach_function :Polygon, [
+		:pointer,
+		:pointer,
+		:int
+	], :int
+
+	attach_function :PolyPolygon, [
+		:pointer,
+		:pointer,
+		:pointer,
+		:int
+	], :int
+end