Ruby Quellcode

#============================================================================
# ** PYM Module
#--+---------------------------+---------------------------------------------
#  + namespace for other stuff +
#  +         by  Playm         +
#  +---------------------------+
#============================================================================
module PYM
  #--------------------------------------------------------------------------
  # * Zeige den Text aus einer Datei in einem neuen Fenster an
  #--------------------------------------------------------------------------
  def self.show_textfile( filename, x, y, width, height )
    window = Win::Edit.new(0,File.basename(filename),x,y,width,height,true,true)
    window.set_text( File.open(filename,'r'){ |f| f.read } )
    Graphics.update until window.disposed?
    return true
  end
end
#============================================================================
# ** Win Module
#----------------------------------------------------------------------------
#  Dies ist eine reduzierte Version des Win Module von REX
#  
#  Es wurde auf die Superklasse Win::Window und ein leichtverändertes 
#  Win::Edit beschränkt. Die Superklasse wurde auf die benötigten Methoden
#  gekürzt.
#  Veränderte Version von Playm.
#============================================================================
module Win
  #==========================================================================
  # ** API
  #==========================================================================
  CreateWindow  = Win32API.new('User32','CreateWindowEx','lppliiiilllp','l')
  DestroyWindow = Win32API.new('User32','DestroyWindow' ,'p'           ,'l')
  SendMessage   = Win32API.new('User32','SendMessage'   ,'lipp'        ,'l')
  IsWindow      = Win32API.new('User32','IsWindow'      ,'l'           ,'i')
  #==========================================================================
  # ** Superklasse
  #==========================================================================
  class Window
    #------------------------------------------------------------------------
    # * Object Initialization
    #     ExStyle   : Erweiterter Stil
    #     ClassName : Klassen Name
    #     title     : Fenstertext
    #     stil      : Normaler Stil
    #     x         : X Koordinate
    #     y         : Y Koordinate
    #     width     : Fensterbreite
    #     height    : Fensterhöhe
    #     parent    : Handle zum ParentWindow
    #     menu      : Handle zum zu verwendenden Menü
    #     mInstance : Modul Instanz
    #     param     : Weitere Parameter
    #------------------------------------------------------------------------
    def initialize(exStyle,className,title,stil,x,y,width,height,
                   parent=0,menu=0,mInstance=0,param=0
                   )
      @handle = CreateWindow.call(exStyle,className,title,stil,x,y,width,height,
                                  parent,menu,mInstance,param)
    end
    #------------------------------------------------------------------------
    # * Window handle
    #------------------------------------------------------------------------
    attr_reader(:handle)
    #------------------------------------------------------------------------
    # * Lege einen Text für das Fenster fest
    #------------------------------------------------------------------------
    def set_text( string )
      SendMessage.call(@handle, 0x000C, 0, string+"\0") # WM_SETTEXT
    end
    #------------------------------------------------------------------------
    # * Kriege den Fenstertext
    #     length  : Maximale Länge des Titels
    #------------------------------------------------------------------------
    def get_text( length=255 )
      buffer = "\0" * length + "\0"
      size = SendMessage.call(@handle, 0x000D, length, buffer) # WM_GETTEXT
      return buffer[0,size]
    end
    #------------------------------------------------------------------------
    # * Entfernen
    #------------------------------------------------------------------------
    def dispose()
      DestroyWindow.call( @handle )
    end
    #------------------------------------------------------------------------
    # * Wurde das Fenster entfernt?
    #------------------------------------------------------------------------
    def disposed?()
      IsWindow.call(@handle).zero?
    end
  end
  #==========================================================================
  # ** Edit
  #--------------------------------------------------------------------------
  # Ein WinEdit - ein Eingabefeld
  # !! Bearbeitet: Wird nichtmehr als Kindfenster erzeugt,
  #                sondern als eigenes mit Rahmen und Titel.
  #==========================================================================
  class Edit < Win::Window
    #------------------------------------------------------------------------
    # * Object Initialization
    #     stil      : 0=Text; 1=onlyNumbers; 2=Password;
    #     title     : Fenstertitel
    #     x         : X Koordinate
    #     y         : Y Koordinate
    #     width     : Fensterbreite
    #     height    : Fensterhöhe
    # opt multiline : true/false
    # opt read_only : true/false
    #------------------------------------------------------------------------
    def initialize(stil, title, x, y, w, h, multiline=true, read_only=true)
      style      = 0x10E80000 #(WS_VISIBLE|WS_CAPTION|WS_VSCROLL|WS_SYSMENU)
      style     |= (stil==1) ? 0x2000 : (stil==2) ? 0x0020 : 0
      style     |= 0x0004 if(multiline)
      style     |= 0x0800 if(read_only)
      super(0, 'EDIT', title, style, x, y, w, h)
    end
  end
end

Ruby Quellcode

PYM.show_textfile( "./Meine Textdatei.txt", 0, 0, 320, 240 )