INCLUDES BEGIN
	GLOBALINC
END
CONSTANTS  begin
end
CLASSES BEGIN
	cAboutFrm is Form begin
		objects begin
		end
		INTERFACE
			POSITION 0 0 417 309
			LABEL "About Base100 DBManager"
		BEGIN
			CONTROL AS BOX
				POSITION 0 0 409 284
				FOREGROUND RGB 0 0 0
				ATTACH ALL
				NOLABEL
				NOBORDER
			BEGIN
				CONTROL bmp_tt AS BITMAP
					POSITION 7 13 102 66
					CURSOR
					NOTABSTOP
					AUTOSIZE
					BITMAP FILE "Base100.jpg"
				BEGIN
				END
				CONTROL AS BOX
					POSITION 119 0 281 224
					NOLABEL
					NOBORDER
				BEGIN
					CONTROL AS TEXT
						POSITION 14 13 105 13
						NOBORDER
						DATATYPE CHAR
						TAGS "Base100 S.A."
					CONTROL lab_dbmanager_version AS TEXT
						POSITION 14 31 213 13
						NOBORDER
						DATATYPE CHAR
						TAGS "Cosmos Database Manager"
					CONTROL lab_cosmos_version AS TEXT
						POSITION 14 49 198 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
					CONTROL lab_licence_number AS TEXT
						POSITION 14 67 198 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
					CONTROL AS TEXT
						POSITION 14 85 168 13
						NOBORDER
						DATATYPE CHAR
						TAGS "Copyright, Base100, S.A."
					CONTROL btn_ttweb AS BUTTON
						POSITION 9 105 106 18
						FOREGROUND COLOR blue
						BACKGROUND COLOR lightgray
						CURSOR
						NOTABSTOP
						LABEL "www.Base100.com"
						NOBORDER
					CONTROL lab_computer_name AS TEXT
						POSITION 14 133 168 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
					CONTROL lab_user_name AS TEXT
						POSITION 14 151 168 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
					CONTROL AS TEXT
						POSITION 14 169 267 13
						NOBORDER
						DATATYPE CHAR
						TAGS "This copy of Cosmos DBManager has been licensed to:"
					CONTROL lab_licensed_user AS TEXT
						POSITION 14 187 168 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
					CONTROL lab_licensed_company AS TEXT
						POSITION 14 205 168 13
						NOBORDER
						DATATYPE CHAR
						TAGS "XXX"
				END
				CONTROL AS BOX
					POSITION 7 226 396 20
					NOLABEL
					NOBORDER
				BEGIN
					CONTROL AS SPLIT
						POSITION 0 9 392 3
						ATTACH LEFT RIGHT
						BORDER DOWN
				END
				CONTROL AS BUTTON
					POSITION 161 249 87 22
					FOCUS
					LABEL "Close"
					COMMAND Close
			END
		END
	end
END
objects begin
	oAboutFrm AS cAboutFrm
end
CODE CLASS cAboutFrm BEGIN
//{{CODEBEGIN
On Open
objects begin
    ComputerName as Char(32)
    UserName as Char(32)
    LicensedUser as Char
end
begin
    SetIcon(ProjectDir+"\tes.ico",ProjectDir+"\dbmanager.ico");
    lab_dbmanager_version = lab_dbmanager_version + "v. " + GetDBManagerVersion() + " - " + GetDBManagerUpgrade();
    lab_cosmos_version = "Cosmos Version " + Version() + " - Upgrade " + Upgrade();
    lab_licence_number = "License Number :  " + License;
    GetComputerNameA(ComputerName, 31);
    lab_computer_name = "Computer: "+ ComputerName;
    GetUserNameA(UserName, 31);
    lab_user_name     = "User:     "+ UserName;
    lab_licensed_user = GetIni("Cosmos", "Licensed User");
    lab_licensed_company = GetIni("Cosmos", "Licensed Company");
end

On Click btn_ttweb
begin
    BrowseBase100();
end

On Click bmp_tt
begin
    BrowseBase100();
end

// Funcion necesaria para abrir el browser por defecto. Para ello importo la dll shell32.dll de Windows
private BrowseBase100
begin

    ShellExecuteA
    (
        0,
        "open",
        "http://www.Base100.com", 
        "", 
        "",
        1
    );
end

public dll "shell32.dll" ShellExecuteA
(
    hWnd as integer,
    lpOperation as char,
    lpFile as char, 
    lpParameters as char, 
    lpDirectory as char,
    nShowCmd as integer
)

public dll "kernel32.dll" GetComputerNameA
(
    VAR ComputerName as Char,
    VAR BuffSize as integer
)

public dll "advapi32.dll" GetUserNameA
(
    VAR UserName as Char,
    VAR BuffSize as integer
)
//{{CODEEND
END

