Xusinboy Bekchanov wrote:nastasa eodor wrote: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 TypeCode: 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
second is mine
