VisualFBEditor - IDE for FreeBasic

[Xusinboy Bekchanov]

Hello. I tell you before i tell you now...GREAT JOB...you are the man....i stop develop my IDE because of you, look very nice one and i am glad can help you with my gui kit and designer also...keep going boy...you will be the next FreeBasic star.
try that:
https://drive.google.com/file/d/1JfaQRv ... sp=sharing

Hello, thank you for your kind words. I am glad that you liked my IDE and I can get help from you.
And I looked at you attached file. On the next release, I will add the Style and ExStyle properties, earlier I moved them to Protected due to non-cross-platform.

[Xusinboy Bekchanov]

Also I invite you to github for teamwork.

[nastasa eodor]

Hello. I tell you before i tell you now...GREAT JOB...you are the man....i stop develop my IDE because of you, look very nice one and i am glad can help you with my gui kit and designer also...keep going boy...you will be the next FreeBasic star.
try that:
https://drive.google.com/file/d/1JfaQRv ... sp=sharing

Hello, thank you for your kind words. I am glad that you liked my IDE and I can get help from you.
And I looked at you attached file. On the next release, I will add the Style and ExStyle properties, earlier I moved them to Protected due to non-cross-platform.

well there are few mistakes so try that
https://drive.google.com/file/d/1viEezI ... sp=sharing

[nastasa eodor]

Also I invite you to github for teamwork.

well thank you i will verry shorty

[Xusinboy Bekchanov]

well there are few mistakes so try that
https://drive.google.com/file/d/1viEezI ... sp=sharing

Previously, I did not take TWinControl, because it means Control only for Windows, so I asked you a question in your thread. If it were possible, we would combine our libraries and work together. We can work in GitHub, there are version control and other usefulness.

[nastasa eodor]

well there are few mistakes so try that
https://drive.google.com/file/d/1viEezI ... sp=sharing

Previously, I did not take TWinControl, because it means Control only for Windows, so I asked you a question in your thread. If it were possible, we would combine our libraries and work together. We can work in GitHub, there are version control and other usefulness.

yes is possible...i will come in github like a part of visualfreebasic ide.
i build that from scratch like a idea for you, i am glad you understand the meaning...

[Xusinboy Bekchanov]

yes is possible...i will come in github like a part of visualfreebasic ide.
i build that from scratch like a idea for you, i am glad you understand the meaning...

Yes, I continue your work. Your IDE was VisualFreeBasiс, and I added only the word "Editor", so I am waiting for you in GitHub. There were other controls in your library too, but the sources were not open. There is no time to study these controls. Maybe you add these controls.

[nastasa eodor]

yes is possible...i will come in github like a part of visualfreebasic ide.
i build that from scratch like a idea for you, i am glad you understand the meaning...

Yes, I continue your work. Your IDE was VisualFreeBasiс, and I added only the word "Editor", so I am waiting for you in GitHub. There were other controls in your library too, but the sources were not open. There is no time to study these controls. Maybe you add these controls.

the controls you say are packaged in a DLL library are Delphi controls ... so the source is written in pascal. They can be ported in FreeBasic but need times. I can send you a copy of Delphi 7 if you want, a licensed, functional one. if you know basic you will learn extremely fast and pascal. there you will find the sources you are looking for. Also download the source code from my ide, you will find everything there. If you want to use that library in your ide you need to write a bridge, a wrapper between dll and ide and after that you can use that controls...and classes too. If i have time i will try to write a fb writer for you.

PS. also i come in github and starting read your source i will need some time to figure it completely...so i am here, just to know...

[nastasa eodor]

here you will find delphi7 i uploaded here
https://drive.google.com/file/d/1qP6GUU ... sp=sharing

[Xusinboy Bekchanov]

PS. also i come in github and starting read your source i will need some time to figure it completely...so i am here, just to know...

The framework and designer is based on your library and designer, there should be no problems.

[Xusinboy Bekchanov]

the controls you say are packaged in a DLL library are Delphi controls ... so the source is written in pascal. They can be ported in FreeBasic but need times. I can send you a copy of Delphi 7 if you want, a licensed, functional one. if you know basic you will learn extremely fast and pascal. there you will find the sources you are looking for. Also download the source code from my ide, you will find everything there. If you want to use that library in your ide you need to write a bridge, a wrapper between dll and ide and after that you can use that controls...and classes too. If i have time i will try to write a fb writer for you.

I meant these controls, not in Pascal:

Code: Select all

#define  REBAR_HEIGHT   35

Type TREBARBAND
   Private:
   count  As Integer
   
   Public:
   fMask           As Integer
   clrFore         As Integer
   clrBack         As Integer
   fStyle          As Integer
   hbmBack           As HBITMAP
   hwndChild    As HWND
   wID             As INTEGER
   Text            As String
   cch             As INTEGER
   cxMinChild      As Integer
   cyMinChild      As Integer
   cx              As Integer
   Declare Constructor
   Declare Destructor
   
End Type

Type TREBAR
   Private:
    count As Integer
    fhimlRebar as HIMAGELIST     
    FHandle  as HWND
    fIcon As HICON
    Control    As TControl
    fhwndChild as HWND         
   Public:
   Declare Property Parent As TControl Ptr
   Declare Property Parent(Value As TControl Ptr)
    Declare Property Handle As HWND
    Declare Property Handle(Value As HWND)
   'Declare Property hwndChild As HWND
   'Declare Property hwndChild (value  As HWND)
   Declare Property Imagelist As HIMAGELIST
   Declare Property Imagelist(value As HIMAGELIST)
    Declare Property Align As Integer
    Declare Property Align(Value As Integer)
    Declare Property Left As Integer
    Declare Property Left(Value As Integer)
    Declare Property Top As Integer
    Declare Property Top(Value As Integer)
   Declare Property Width As Integer
   Declare Property Width(Value As Integer)
   Declare Property Height As Integer
   Declare Property Height(Value As Integer)
   
   Declare Property Icon As HICON
   Declare Property Icon (value As HICON)
   Declare Sub  Create()
   Declare Sub AddBand(value As TREBARBAND)
   Declare Constructor
   Declare Destructor
End Type

Code: Select all

type PPrintDialog as TPrintDialog Ptr
type TPrintDialog extends TComponent
     private:
     Pdlg          as PDA
     protected:
     declare static function Hook(hDlg as HWND,Msg as UINT,wParam as WPARAM,lParam as LPARAM) as uinteger
     public:
     Owner         as PControl
     Center        as integer
     Handle        as hwnd
     Caption       as string
     BackColor     as Integer
     Collate       as integer
     Style         as integer
     Copies        as integer
     FromPage      as integer
     ToPage        as integer
     MaxPage       as integer
     MinPage       as integer
     PrintRange    as integer
     PrintToFile   as integer
     AllPages      as integer
     declare operator cast as any ptr
     declare function Execute as integer
     declare constructor
     declare destructor
end type

[nastasa eodor]

the controls you say are packaged in a DLL library are Delphi controls ... so the source is written in pascal. They can be ported in FreeBasic but need times. I can send you a copy of Delphi 7 if you want, a licensed, functional one. if you know basic you will learn extremely fast and pascal. there you will find the sources you are looking for. Also download the source code from my ide, you will find everything there. If you want to use that library in your ide you need to write a bridge, a wrapper between dll and ide and after that you can use that controls...and classes too. If i have time i will try to write a fb writer for you.

I meant these controls, not in Pascal:

Code: Select all

#define  REBAR_HEIGHT   35

Type TREBARBAND
   Private:
   count  As Integer
   
   Public:
   fMask           As Integer
   clrFore         As Integer
   clrBack         As Integer
   fStyle          As Integer
   hbmBack           As HBITMAP
   hwndChild    As HWND
   wID             As INTEGER
   Text            As String
   cch             As INTEGER
   cxMinChild      As Integer
   cyMinChild      As Integer
   cx              As Integer
   Declare Constructor
   Declare Destructor
   
End Type

Type TREBAR
   Private:
    count As Integer
    fhimlRebar as HIMAGELIST     
    FHandle  as HWND
    fIcon As HICON
    Control    As TControl
    fhwndChild as HWND         
   Public:
   Declare Property Parent As TControl Ptr
   Declare Property Parent(Value As TControl Ptr)
    Declare Property Handle As HWND
    Declare Property Handle(Value As HWND)
   'Declare Property hwndChild As HWND
   'Declare Property hwndChild (value  As HWND)
   Declare Property Imagelist As HIMAGELIST
   Declare Property Imagelist(value As HIMAGELIST)
    Declare Property Align As Integer
    Declare Property Align(Value As Integer)
    Declare Property Left As Integer
    Declare Property Left(Value As Integer)
    Declare Property Top As Integer
    Declare Property Top(Value As Integer)
   Declare Property Width As Integer
   Declare Property Width(Value As Integer)
   Declare Property Height As Integer
   Declare Property Height(Value As Integer)
   
   Declare Property Icon As HICON
   Declare Property Icon (value As HICON)
   Declare Sub  Create()
   Declare Sub AddBand(value As TREBARBAND)
   Declare Constructor
   Declare Destructor
End Type

Code: Select all

type PPrintDialog as TPrintDialog Ptr
type TPrintDialog extends TComponent
     private:
     Pdlg          as PDA
     protected:
     declare static function Hook(hDlg as HWND,Msg as UINT,wParam as WPARAM,lParam as LPARAM) as uinteger
     public:
     Owner         as PControl
     Center        as integer
     Handle        as hwnd
     Caption       as string
     BackColor     as Integer
     Collate       as integer
     Style         as integer
     Copies        as integer
     FromPage      as integer
     ToPage        as integer
     MaxPage       as integer
     MinPage       as integer
     PrintRange    as integer
     PrintToFile   as integer
     AllPages      as integer
     declare operator cast as any ptr
     declare function Execute as integer
     declare constructor
     declare destructor
end type

tell me where you get that...because along of time i wrote a least 3 wrappers

[Xusinboy Bekchanov]

tell me where you get that...because along of time i wrote a least 3 wrappers

TPrintDialog
http://visualfb.freewebspace.com

TREBAR
I do not know where I downloaded, but it is available in your GUITK.

I do not know it from anyone, or yours, or aloberoger:
TPrinter

Code: Select all

#Ifndef CRLF
#Define CRLF Chr(10,13)
#endif

Enum PrinterOrientation
   poPortait =DMORIENT_PORTRAIT
   poLandscape=DMORIENT_LANDSCAPE
End Enum

Enum PrinterQuality
  pqDraft=DMRES_DRAFT
  pqLow =DMRES_LOW
  pqMedium =DMRES_MEDIUM
  pqHigh=DMRES_HIGH
End Enum

Enum PrinterDuplexMode
  pdmSimplex = 1 
  pdmHorizontal = 2
  pdmVertical = 3 
End Enum

Enum PrinterPaperSize
   ppsLetter=DMPAPER_LETTER   'Letter, 8 1/2- by 11-inches
   ppsLEGALr=DMPAPER_LEGAL   'Legal, 8 1/2- by 14-inches
   ppsA4=DMPAPER_A4   'A4 Sheet, 210- by 297-millimeters
   ppsCSHEET=DMPAPER_CSHEET   'C Sheet, 17- by 22-inches
   ppsDSHEET=DMPAPER_DSHEET   'D Sheet, 22- by 34-inches
   ppsESHEET=DMPAPER_ESHEET   'E Sheet, 34- by 44-inches
   ppsLETTERSMALL=DMPAPER_LETTERSMALL   'Letter Small, 8 1/2- by 11-inches
   ppsTABLOID=DMPAPER_TABLOID   'Tabloid, 11- by 17-inches
   ppsLEDGER=DMPAPER_LEDGER   'Ledger, 17- by 11-inches
   ppsSTATEMENT=DMPAPER_STATEMENT   'Statement, 5 1/2- by 8 1/2-inches
   ppsEXECUTIVE=DMPAPER_EXECUTIVE   'Executive, 7 1/4- by 10 1/2-inches
   ppsA3=DMPAPER_A3   'A3 sheet, 297- by 420-millimeters
   ppsA4SMALL=DMPAPER_A4SMALL   'A4 small sheet, 210- by 297-millimeters
   'ppsLetter=DMPAPER_A5   'A5 sheet, 148- by 210-millimeters
   'ppsLetter=DMPAPER_B4   'B4 sheet, 250- by 354-millimeters
   'ppsLetter=DMPAPER_B5   'B5 sheet, 182- by 257-millimeter paper
   'ppsLetter=DMPAPER_FOLIO   'Folio, 8 1/2- by 13-inch paper
   'ppsLetter=DMPAPER_QUARTO   'Quarto, 215- by 275-millimeter paper
   'ppsLetter=DMPAPER_10X14   '10- by 14-inch sheet
   'ppsLetter=DMPAPER_11X17   '11- by 17-inch sheet
   'ppsLetter=DMPAPER_NOTE   'Note, 8 1/2- by 11-inches
   'ppsLetter=DMPAPER_ENV_9   '#9 Envelope, 3 7/8- by 8 7/8-inches
   'ppsLetter=DMPAPER_ENV_10   '#10 Envelope, 4 1/8- by 9 1/2-inches
   'ppsLetter=DMPAPER_ENV_11   '#11 Envelope, 4 1/2- by 10 3/8-inches
   'ppsLetter=DMPAPER_ENV_12   '#12 Envelope, 4 3/4- by 11-inches
   'ppsLetter=DMPAPER_ENV_14   '#14 Envelope, 5- by 11 1/2-inches
   'ppsLetter=DMPAPER_ENV_DL   'DL Envelope, 110- by 220-millimeters
   'ppsLetter=DMPAPER_ENV_C5   'C5 Envelope, 162- by 229-millimeters
   'ppsLetter=DMPAPER_ENV_C3   'C3 Envelope,  324- by 458-millimeters
   'ppsLetter=DMPAPER_ENV_C4   'C4 Envelope,  229- by 324-millimeters
   'ppsLetter=DMPAPER_ENV_C6   'C6 Envelope,  114- by 162-millimeters
   'ppsLetter=DMPAPER_ENV_C65   'C65 Envelope, 114- by 229-millimeters
   'ppsLetter=DMPAPER_ENV_B4   'B4 Envelope,  250- by 353-millimeters
   'ppsLetter=DMPAPER_ENV_B5   'B5 Envelope,  176- by 250-millimeters
   'ppsLetter=DMPAPER_ENV_B6   'B6 Envelope,  176- by 125-millimeters
   'ppsLetter=DMPAPER_ENV_ITALY   'Italy Envelope, 110- by 230-millimeters
   'ppsLetter=DMPAPER_ENV_MONARCH   'Monarch Envelope, 3 7/8- by 7 1/2-inches
   'ppsLetter=DMPAPER_ENV_PERSONAL   '6 3/4 Envelope, 3 5/8- by 6 1/2-inches
   'ppsLetter=DMPAPER_FANFOLD_US   'US Std Fanfold, 14 7/8- by 11-inches
   'ppsLetter=DMPAPER_FANFOLD_STD_GERMAN   'German Std Fanfold, 8 1/2- by 12-inches
   'ppsLetter=DMPAPER_FANFOLD_LGL_GERMAN   'German Legal Fanfold, 8 1/2- by 13-inches
End Enum

Type TPrinter extends TCONTROL
   Private:
    m_hdc AS HDC               'handle of a display device context
    m_hFont AS HFONT             'handle of current font
    m_Name As String
    m_PortName As String
    m_Page As Integer
    m_PageSize As Integer
    m_Quality  As Integer
    m_Copies As Integer
    m_FromPage As Integer
    m_ToPage As Integer
    hOrigFont AS HFONT       'handle of original font
    charHt AS Integer          'character height
    leftMargin AS Integer      'left margin
    rightMargin AS Integer     'right margin
    topMargin AS Integer       'top margin
    bottomMargin AS Integer    'bottom margin
    printerName AS STRING     'name of printer
    hDevMode AS DEVMODE Ptr          'handle to DEVMODE structure
    origDuplex AS LONG        'original duplex mode
    origOrient AS LONG        'original orientation mode
    As Integer xPos, yPos       'default position for text print
    As Integer FPageNumber=1
    m_duplex As PrinterDuplexMode
    m_colorMode As Long
    FTitle  As String
     Declare FUNCTION PARSE OverLoad (source as string, delimiter as String="|", index as integer)as String
     Declare FUNCTION PARSE (source as String, index as integer, delimiter as String=",")as String
     Declare Function STRREVERSE (S As String)As String
     DECLARE Sub       orientPrint(n AS LONG)
     
     DECLARE Function  SetPrinterOrientation2 (BYVAL PrinterName AS String, BYVAL nOrientation AS LONG) AS LONG

     Declare FUNCTION SetPrinterOrientation (BYVAL PrinterName AS String, BYVAL nOrientation AS LONG) AS LONG
     Declare FUNCTION GetPrinterOrientation (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION PrinterPaperNames (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION GetPrinterPaperSizes (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION SetPrinterPaperSize (BYVAL PrinterName AS String, BYVAL nSize AS LONG) AS Long
     Declare FUNCTION GetPrinterPort (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION GetPrinterFromPort (BYVAL PortName AS STRING) AS String
     Declare FUNCTION GetPrinterQualityMode (BYVAL PrinterName AS String) AS PrinterQuality
     Declare FUNCTION SetPrinterQuality (BYVAL PrinterName AS String, BYVAL nMode AS PrinterQuality) AS Long
     Declare FUNCTION GetPrinterScale (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION GetPrinterScalingFactorX (BYVAL PrinterName AS String) AS LONG
     Declare FUNCTION GetPrinterScalingFactorY (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION SetPrinterColorMode (BYVAL PrinterName AS String, BYVAL nMode AS LONG) AS Long
     Declare FUNCTION SetPrinterCopies (BYVAL PrinterName AS String, BYVAL nCopies AS LONG) AS LONG
     Declare FUNCTION SetPrinterDuplexMode (BYVAL PrinterName AS String, BYVAL nDuplexMode AS LONG) AS LONG
     Declare Function GetPrinterDuplex (BYVAL PrinterName AS String) AS Long
     
     
    Declare FUNCTION GetPrinterDriverVersion (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterHorizontalResolution (BYVAL PrinterName AS String) AS Long ' printableWidth
    DECLARE FUNCTION  GetPrinterVerticalResolution (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxCopies (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxPaperHeight (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxPaperWidth (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  EnumPrinterPorts () AS String
    Declare FUNCTION  EnumPrinters_ () AS String
   ' Declare FUNCTION  DefaultPrinter () AS String
    Declare FUNCTION GetDefaultPrinterDevice () AS String
    Declare FUNCTION GetDefaultPrinterDriver () AS String
    Declare Function GetDefaultPrinterPort () AS String
    Declare Sub ShowPrinterProperties()
    Declare   Sub UpdateMargeins()
Public:
   Canvas As Tcanvas
DECLARE Sub       reportError( BYVAL n AS LONG)
Declare Property  Name(vData As String)
Declare Property  Name() As String
Declare Property  PortName(vData As String)
Declare Property  PortName() As String
DECLARE Property  Handle() AS HDC
DECLARE Property  PageHeight as  Integer
DECLARE Property  PageWidth as  Integer
DECLARE Property  MarginLeft as  Integer
Declare Property  MarginLeft(value as  Integer)
Declare  Property MarginTop as  Integer
Declare  Property MarginTop(value as  Integer)
Declare  Property MarginRight as  Integer
Declare  Property MarginRight(value as  Integer)
Declare  Property Marginbottom as  Integer
Declare  Property Marginbottom(value As  Integer)
Declare Property  Page(vData As Integer)
Declare Property  Page() As Integer
Declare Property  PageSize(vData As Integer)
Declare Property  PageSize() As Integer
Declare Property  printableWidth() AS Long
Declare Property  printableHeight() AS Long
Declare Property  Orientation(vData As Long)
Declare Property  Orientation() As Long
Declare Property  Copies(vData As Integer)
Declare Property  Copies() As Integer
Declare Property  Quality(vData As PrinterQuality)
Declare Property  Quality() As PrinterQuality
Declare Property  FromPage(vData As Integer)
Declare Property  FromPage() As Integer
Declare Property  ToPage(vData As Integer)
Declare Property  ToPage() As Integer
     Declare Property Scale () AS Long
     Declare Property ScaleFactorX() AS LONG
     Declare Property ScaleFactorY() AS Long
     Declare Property ColorMode (BYVAL nMode AS LONG)
     Declare Property ColorMode() AS LONG
     Declare Property DriveVersion() AS Long
     
    Declare Property  MaxCopies() AS Long
    Declare Property  MaxPaperHeight() AS Long
    Declare Property  MaxPaperWidth() AS Long
    Declare Function  defaultPrinter() AS STRING
    Declare Function  choosePrinter() AS STRING
     Declare Sub       getPageSize(ByRef wi AS Integer,ByRef ht AS Integer)
    Declare Sub       getCharSize(ByRef wi AS Integer,ByRef ht AS Integer)
DECLARE Function  getLines( BYVAL y AS Integer=0) AS LONG
DECLARE Property  duplexMode(n As PrinterDuplexMode)   
Declare Property  duplexMode() AS PrinterDuplexMode
Declare  Property   Title() As String
Declare  Property   Title(value As String)
Declare Sub       StartDoc()
DECLARE Sub       StartPage
DECLARE Sub       EndDPage
DECLARE Sub       NewPage
DECLARE Sub       EndDoc
Declare Sub       CalcPageSize(byref Rows AS LONG,byref Columns AS LONG)
Declare Property FontSize() As Integer
Declare Property fontsize(As Integer)
declare Function newFont(fName AS String="times new Roman", fSize AS Long=12,ibold As Long=FALSE, iunderline As Long=FALSE, iitalic As Long=FALSE ) AS HFONT
Declare Constructor
'Declare Operator Cast() As TCONTROL Ptr
 
End Type



'#Include Once "TPrinter.bas"

It may be yours:
TScreen

Code: Select all

'///////////////////////////////////////////////////////////////////////////////
'//                      This is a part of GUI-S Library                      //
'//            Copyright ©2010-2013 Nastasa Vasile Eodor                      //
'//            http://rqwork.evonet.ro/gui_s/                                 //
'//            email: rqwork@evonet.ro , nastase.eodor@gmail.com              //
'///////////////////////////////////////////////////////////////////////////////

#include once "Windows.bi"

 

    #undef screen
   
    type TScreen
        private:
        FFontCount     as integer
        FFonts         as zstring ptr ptr
        FWidth         as integer
        FHeight        as integer
        FDesktopWidth  as integer
        FDesktopHeight as Integer
        FPixelsPerInch as Integer
        declare static function EnumFontsProc(LogFont as logfont Ptr, TextMetric as textmetric Ptr, FontStyle as dword, hData as lparam) as integer
        declare function GetFonts as integer
        public:
        declare property FontCount as integer
        declare property Font(index as integer) as string
        declare property Width as integer
        declare property Height as integer
        declare property DesktopWidth as integer
        declare property DesktopHeight as Integer
        Declare Property PixelsperInch  as Integer
    end type
   
   
    common shared as TScreen Screen
 
 '#Include Once "Screen.bas"   

[nastasa eodor]

tell me where you get that...because along of time i wrote a least 3 wrappers

TPrintDialog
http://visualfb.freewebspace.com

TREBAR
I do not know where I downloaded, but it is available in your GUITK.

I do not know it from anyone, or yours, or aloberoger:
TPrinter

Code: Select all

#Ifndef CRLF
#Define CRLF Chr(10,13)
#endif

Enum PrinterOrientation
   poPortait =DMORIENT_PORTRAIT
   poLandscape=DMORIENT_LANDSCAPE
End Enum

Enum PrinterQuality
  pqDraft=DMRES_DRAFT
  pqLow =DMRES_LOW
  pqMedium =DMRES_MEDIUM
  pqHigh=DMRES_HIGH
End Enum

Enum PrinterDuplexMode
  pdmSimplex = 1 
  pdmHorizontal = 2
  pdmVertical = 3 
End Enum

Enum PrinterPaperSize
   ppsLetter=DMPAPER_LETTER   'Letter, 8 1/2- by 11-inches
   ppsLEGALr=DMPAPER_LEGAL   'Legal, 8 1/2- by 14-inches
   ppsA4=DMPAPER_A4   'A4 Sheet, 210- by 297-millimeters
   ppsCSHEET=DMPAPER_CSHEET   'C Sheet, 17- by 22-inches
   ppsDSHEET=DMPAPER_DSHEET   'D Sheet, 22- by 34-inches
   ppsESHEET=DMPAPER_ESHEET   'E Sheet, 34- by 44-inches
   ppsLETTERSMALL=DMPAPER_LETTERSMALL   'Letter Small, 8 1/2- by 11-inches
   ppsTABLOID=DMPAPER_TABLOID   'Tabloid, 11- by 17-inches
   ppsLEDGER=DMPAPER_LEDGER   'Ledger, 17- by 11-inches
   ppsSTATEMENT=DMPAPER_STATEMENT   'Statement, 5 1/2- by 8 1/2-inches
   ppsEXECUTIVE=DMPAPER_EXECUTIVE   'Executive, 7 1/4- by 10 1/2-inches
   ppsA3=DMPAPER_A3   'A3 sheet, 297- by 420-millimeters
   ppsA4SMALL=DMPAPER_A4SMALL   'A4 small sheet, 210- by 297-millimeters
   'ppsLetter=DMPAPER_A5   'A5 sheet, 148- by 210-millimeters
   'ppsLetter=DMPAPER_B4   'B4 sheet, 250- by 354-millimeters
   'ppsLetter=DMPAPER_B5   'B5 sheet, 182- by 257-millimeter paper
   'ppsLetter=DMPAPER_FOLIO   'Folio, 8 1/2- by 13-inch paper
   'ppsLetter=DMPAPER_QUARTO   'Quarto, 215- by 275-millimeter paper
   'ppsLetter=DMPAPER_10X14   '10- by 14-inch sheet
   'ppsLetter=DMPAPER_11X17   '11- by 17-inch sheet
   'ppsLetter=DMPAPER_NOTE   'Note, 8 1/2- by 11-inches
   'ppsLetter=DMPAPER_ENV_9   '#9 Envelope, 3 7/8- by 8 7/8-inches
   'ppsLetter=DMPAPER_ENV_10   '#10 Envelope, 4 1/8- by 9 1/2-inches
   'ppsLetter=DMPAPER_ENV_11   '#11 Envelope, 4 1/2- by 10 3/8-inches
   'ppsLetter=DMPAPER_ENV_12   '#12 Envelope, 4 3/4- by 11-inches
   'ppsLetter=DMPAPER_ENV_14   '#14 Envelope, 5- by 11 1/2-inches
   'ppsLetter=DMPAPER_ENV_DL   'DL Envelope, 110- by 220-millimeters
   'ppsLetter=DMPAPER_ENV_C5   'C5 Envelope, 162- by 229-millimeters
   'ppsLetter=DMPAPER_ENV_C3   'C3 Envelope,  324- by 458-millimeters
   'ppsLetter=DMPAPER_ENV_C4   'C4 Envelope,  229- by 324-millimeters
   'ppsLetter=DMPAPER_ENV_C6   'C6 Envelope,  114- by 162-millimeters
   'ppsLetter=DMPAPER_ENV_C65   'C65 Envelope, 114- by 229-millimeters
   'ppsLetter=DMPAPER_ENV_B4   'B4 Envelope,  250- by 353-millimeters
   'ppsLetter=DMPAPER_ENV_B5   'B5 Envelope,  176- by 250-millimeters
   'ppsLetter=DMPAPER_ENV_B6   'B6 Envelope,  176- by 125-millimeters
   'ppsLetter=DMPAPER_ENV_ITALY   'Italy Envelope, 110- by 230-millimeters
   'ppsLetter=DMPAPER_ENV_MONARCH   'Monarch Envelope, 3 7/8- by 7 1/2-inches
   'ppsLetter=DMPAPER_ENV_PERSONAL   '6 3/4 Envelope, 3 5/8- by 6 1/2-inches
   'ppsLetter=DMPAPER_FANFOLD_US   'US Std Fanfold, 14 7/8- by 11-inches
   'ppsLetter=DMPAPER_FANFOLD_STD_GERMAN   'German Std Fanfold, 8 1/2- by 12-inches
   'ppsLetter=DMPAPER_FANFOLD_LGL_GERMAN   'German Legal Fanfold, 8 1/2- by 13-inches
End Enum

Type TPrinter extends TCONTROL
   Private:
    m_hdc AS HDC               'handle of a display device context
    m_hFont AS HFONT             'handle of current font
    m_Name As String
    m_PortName As String
    m_Page As Integer
    m_PageSize As Integer
    m_Quality  As Integer
    m_Copies As Integer
    m_FromPage As Integer
    m_ToPage As Integer
    hOrigFont AS HFONT       'handle of original font
    charHt AS Integer          'character height
    leftMargin AS Integer      'left margin
    rightMargin AS Integer     'right margin
    topMargin AS Integer       'top margin
    bottomMargin AS Integer    'bottom margin
    printerName AS STRING     'name of printer
    hDevMode AS DEVMODE Ptr          'handle to DEVMODE structure
    origDuplex AS LONG        'original duplex mode
    origOrient AS LONG        'original orientation mode
    As Integer xPos, yPos       'default position for text print
    As Integer FPageNumber=1
    m_duplex As PrinterDuplexMode
    m_colorMode As Long
    FTitle  As String
     Declare FUNCTION PARSE OverLoad (source as string, delimiter as String="|", index as integer)as String
     Declare FUNCTION PARSE (source as String, index as integer, delimiter as String=",")as String
     Declare Function STRREVERSE (S As String)As String
     DECLARE Sub       orientPrint(n AS LONG)
     
     DECLARE Function  SetPrinterOrientation2 (BYVAL PrinterName AS String, BYVAL nOrientation AS LONG) AS LONG

     Declare FUNCTION SetPrinterOrientation (BYVAL PrinterName AS String, BYVAL nOrientation AS LONG) AS LONG
     Declare FUNCTION GetPrinterOrientation (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION PrinterPaperNames (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION GetPrinterPaperSizes (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION SetPrinterPaperSize (BYVAL PrinterName AS String, BYVAL nSize AS LONG) AS Long
     Declare FUNCTION GetPrinterPort (BYVAL PrinterName AS STRING) AS String
     Declare FUNCTION GetPrinterFromPort (BYVAL PortName AS STRING) AS String
     Declare FUNCTION GetPrinterQualityMode (BYVAL PrinterName AS String) AS PrinterQuality
     Declare FUNCTION SetPrinterQuality (BYVAL PrinterName AS String, BYVAL nMode AS PrinterQuality) AS Long
     Declare FUNCTION GetPrinterScale (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION GetPrinterScalingFactorX (BYVAL PrinterName AS String) AS LONG
     Declare FUNCTION GetPrinterScalingFactorY (BYVAL PrinterName AS String) AS Long
     Declare FUNCTION SetPrinterColorMode (BYVAL PrinterName AS String, BYVAL nMode AS LONG) AS Long
     Declare FUNCTION SetPrinterCopies (BYVAL PrinterName AS String, BYVAL nCopies AS LONG) AS LONG
     Declare FUNCTION SetPrinterDuplexMode (BYVAL PrinterName AS String, BYVAL nDuplexMode AS LONG) AS LONG
     Declare Function GetPrinterDuplex (BYVAL PrinterName AS String) AS Long
     
     
    Declare FUNCTION GetPrinterDriverVersion (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterHorizontalResolution (BYVAL PrinterName AS String) AS Long ' printableWidth
    DECLARE FUNCTION  GetPrinterVerticalResolution (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxCopies (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxPaperHeight (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  GetPrinterMaxPaperWidth (BYVAL PrinterName AS String) AS Long
    Declare FUNCTION  EnumPrinterPorts () AS String
    Declare FUNCTION  EnumPrinters_ () AS String
   ' Declare FUNCTION  DefaultPrinter () AS String
    Declare FUNCTION GetDefaultPrinterDevice () AS String
    Declare FUNCTION GetDefaultPrinterDriver () AS String
    Declare Function GetDefaultPrinterPort () AS String
    Declare Sub ShowPrinterProperties()
    Declare   Sub UpdateMargeins()
Public:
   Canvas As Tcanvas
DECLARE Sub       reportError( BYVAL n AS LONG)
Declare Property  Name(vData As String)
Declare Property  Name() As String
Declare Property  PortName(vData As String)
Declare Property  PortName() As String
DECLARE Property  Handle() AS HDC
DECLARE Property  PageHeight as  Integer
DECLARE Property  PageWidth as  Integer
DECLARE Property  MarginLeft as  Integer
Declare Property  MarginLeft(value as  Integer)
Declare  Property MarginTop as  Integer
Declare  Property MarginTop(value as  Integer)
Declare  Property MarginRight as  Integer
Declare  Property MarginRight(value as  Integer)
Declare  Property Marginbottom as  Integer
Declare  Property Marginbottom(value As  Integer)
Declare Property  Page(vData As Integer)
Declare Property  Page() As Integer
Declare Property  PageSize(vData As Integer)
Declare Property  PageSize() As Integer
Declare Property  printableWidth() AS Long
Declare Property  printableHeight() AS Long
Declare Property  Orientation(vData As Long)
Declare Property  Orientation() As Long
Declare Property  Copies(vData As Integer)
Declare Property  Copies() As Integer
Declare Property  Quality(vData As PrinterQuality)
Declare Property  Quality() As PrinterQuality
Declare Property  FromPage(vData As Integer)
Declare Property  FromPage() As Integer
Declare Property  ToPage(vData As Integer)
Declare Property  ToPage() As Integer
     Declare Property Scale () AS Long
     Declare Property ScaleFactorX() AS LONG
     Declare Property ScaleFactorY() AS Long
     Declare Property ColorMode (BYVAL nMode AS LONG)
     Declare Property ColorMode() AS LONG
     Declare Property DriveVersion() AS Long
     
    Declare Property  MaxCopies() AS Long
    Declare Property  MaxPaperHeight() AS Long
    Declare Property  MaxPaperWidth() AS Long
    Declare Function  defaultPrinter() AS STRING
    Declare Function  choosePrinter() AS STRING
     Declare Sub       getPageSize(ByRef wi AS Integer,ByRef ht AS Integer)
    Declare Sub       getCharSize(ByRef wi AS Integer,ByRef ht AS Integer)
DECLARE Function  getLines( BYVAL y AS Integer=0) AS LONG
DECLARE Property  duplexMode(n As PrinterDuplexMode)   
Declare Property  duplexMode() AS PrinterDuplexMode
Declare  Property   Title() As String
Declare  Property   Title(value As String)
Declare Sub       StartDoc()
DECLARE Sub       StartPage
DECLARE Sub       EndDPage
DECLARE Sub       NewPage
DECLARE Sub       EndDoc
Declare Sub       CalcPageSize(byref Rows AS LONG,byref Columns AS LONG)
Declare Property FontSize() As Integer
Declare Property fontsize(As Integer)
declare Function newFont(fName AS String="times new Roman", fSize AS Long=12,ibold As Long=FALSE, iunderline As Long=FALSE, iitalic As Long=FALSE ) AS HFONT
Declare Constructor
'Declare Operator Cast() As TCONTROL Ptr
 
End Type



'#Include Once "TPrinter.bas"

It may be yours:
TScreen

Code: Select all

'///////////////////////////////////////////////////////////////////////////////
'//                      This is a part of GUI-S Library                      //
'//            Copyright ©2010-2013 Nastasa Vasile Eodor                      //
'//            http://rqwork.evonet.ro/gui_s/                                 //
'//            email: rqwork@evonet.ro , nastase.eodor@gmail.com              //
'///////////////////////////////////////////////////////////////////////////////

#include once "Windows.bi"

 

    #undef screen
   
    type TScreen
        private:
        FFontCount     as integer
        FFonts         as zstring ptr ptr
        FWidth         as integer
        FHeight        as integer
        FDesktopWidth  as integer
        FDesktopHeight as Integer
        FPixelsPerInch as Integer
        declare static function EnumFontsProc(LogFont as logfont Ptr, TextMetric as textmetric Ptr, FontStyle as dword, hData as lparam) as integer
        declare function GetFonts as integer
        public:
        declare property FontCount as integer
        declare property Font(index as integer) as string
        declare property Width as integer
        declare property Height as integer
        declare property DesktopWidth as integer
        declare property DesktopHeight as Integer
        Declare Property PixelsperInch  as Integer
    end type
   
   
    common shared as TScreen Screen
 
 '#Include Once "Screen.bas"   

tprinterdialog is not mine, only tscreen is mine and i do printerdialog too but i cant remember wich wrapper was...so in other words send me the full source of mine guitk because i lost them all...my old computer go in fault and can save anything...so resend me back all of you got...and i will help you to improve it and indirectly to improve your ide too.
p.s. you can upload it in the google space just i made it for gui.

[Xusinboy Bekchanov]

p.s. you can upload it in the google space just i made it for gui.

Ok.