Guidance
指路人
g.yi.org
software / rapidq / Examples / String & Text / CodeReporter / CodeReporter.rqb

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     $TYPECHECK ON
     DECLARE FUNCTION CopyFile LIB "kernel32" ALIAS "CopyFileA" _
      (BYVAL lpExistingFileName AS STRING, BYVAL lpNewFileName AS STRING, _
      BYVAL bFailIfExists AS LONG) AS LONG

     $INCLUDE "Fileops.inc"
     $INCLUDE "HTML.inc"

     DECLARE SUB REP_Changedir
     DECLARE SUB REP_SelectFile
     DECLARE SUB REP_ChangePanel
     DECLARE SUB REP_PrepareFile
     DECLARE SUB REP_CreateReport

     DECLARE FUNCTION REP_NewHtmlPage AS STRING
     DECLARE FUNCTION REP_Stats AS STRING
     DIM REP_ObjectsSL AS QSTRINGLIST
     DIM REP_VariablesSL AS QSTRINGLIST
     DECLARE FUNCTION REP_ObjAndVar AS STRING
     DIM REP_IncSL AS QSTRINGLIST
     DIM REP_ResourcesSL AS QSTRINGLIST
     DECLARE FUNCTION REP_Declarations AS STRING
     DIM REP_DeclarationsSL AS QSTRINGLIST

     DIM REP_File AS STRING
     DIM REP_OriginalFile AS STRING
     DIM REP_Html AS STRING

     DIM REP_Form AS QFORM
     WITH REP_Form
      .center
      .width = 400
      .height = 450
      .Font.name = "Arial"
      .CAPTION = "Code Reporter ~RQ2K3IDE Project~"
      .borderstyle = 3
     END WITH

     DIM REP_TabTC AS QTABCONTROL
     WITH REP_TabTC
      .PARENT = REP_Form
      .height = 21
      .align = 1
      .addtabs "Report", "Options"
      .onchange = REP_ChangePanel
     END WITH

     DIM REP_ReportPanel AS QPANEL
     WITH REP_ReportPanel
      .PARENT = REP_Form
      .align = 5
      .bevelouter = 1
      .COLOR = 4622147
     END WITH

     DIM REP_DirDT AS QDIRTREE
     WITH REP_DirDT
      .PARENT = REP_ReportPanel
      .top = 10
      .left = 10
      .width = 370
      .height = 180
      .onchange = REP_Changedir
     END WITH

     DIM REP_FilesFL AS QFILELISTBOX
     WITH REP_FilesFL
      .PARENT = REP_ReportPanel
      .top = 200
      .left = 10
      .width = 370
      .height = 160
      .ondblclick = REP_SelectFile
     END WITH

     DIM REP_re AS QRICHEDIT
     WITH REP_re
      .PARENT = REP_ReportPanel
      .left = 10
      .height = 320
      .width = 280
      .wordwrap = 0
      .scrollbars = 2
      .top  =10
      .plaintext = 1
      .font.name = "Courier New"
      .font.size = 7
      .visible = 0
     END WITH

     DIM REP_Gauge AS QGAUGE
     WITH REP_Gauge
      .PARENT = REP_ReportPanel
      .top = 370
      .left = 10
      .width = 370
      .height = 22
      .forecolor = 11254358
      .backcolor = 516315
      .showtext = 0
     END WITH


     DIM REP_SettingsPanel AS QPANEL
     WITH REP_SettingsPanel
      .PARENT = REP_Form
      .align = 5
      .visible = 0
      .bevelouter = 1
      .COLOR = RGB(228,220,52)
     END WITH

     DIM REP_S_Font AS QFONT
     WITH REP_S_Font
      .name = "Arial"
      .size = 12
      .COLOR = RGB(40,80,200)
      .Bold = 1
     END WITH

     DIM REP_S_PageLab AS QLABEL
     WITH REP_S_PageLab
      .PARENT = REP_SettingsPanel
      .top = 10
      .left = 10
      .Font.size = 12
      .CAPTION = "Page Options"
      .font = REP_S_Font
     END WITH

     DIM REP_S_PageColorLAB AS QLABEL
     WITH REP_S_PagecolorLab
      .PARENT = REP_SettingsPanel
      .left = 10
      .top = 45
      .CAPTION = "Background Color"
     END WITH

     DIM REP_S_PageColorBOX AS QEDIT
     WITH REP_S_PageColorBOX
      .PARENT = REP_SettingsPanel
      .left = 130
      .top = 40
      .width = 55
      .text = "#C0C0C0"
     END WITH

     DIM REP_S_PageFontLAB AS QLABEL
     WITH REP_S_PageFontLAB
      .PARENT = REP_SettingsPanel
      .top = 75
      .left = 10
      .CAPTION = "Font Name"
     END WITH

     DIM REP_S_PageFontBox AS QEDIT
     WITH REP_S_PageFontBOX
      .PARENT = REP_SettingsPanel
      .top = 70
      .left = 130
      .width = 55
      .text = "Verdana"
     END WITH

     DIM REP_S_PageFontColorLAB AS QLABEL
     WITH REP_S_PageFontColorLAB
      .PARENT = REP_SettingsPanel
      .top = 105
      .left = 10
      .CAPTION = "Font Color"
     END WITH

     DIM REP_S_PageFontColorBox AS QEDIT
     WITH REP_S_PageFontColorBOX
      .PARENT = REP_SettingsPanel
      .top = 100
      .left = 130
      .width = 55
      .text = "#000000"
     END WITH

     DIM REP_S_PageLinksLAB AS QLABEL
     WITH REP_S_PagelinksLAB
      .PARENT = REP_SettingsPanel
      .top = 135
      .left = 10
      .CAPTION = "Links Color"
     END WITH

     DIM REP_S_PageLinksBOX AS QEDIT
     WITH REP_S_PageLinksBOX
      .PARENT = REP_SettingsPanel
      .top = 130
      .left = 130
      .width = 55
      .text = "#0000FF"
     END WITH

' °°°°°°°°°°°°°°° Page Title

     DIM REP_S_PageTitLAB AS QLABEL
     WITH REP_S_PageTitLAB
      .PARENT = REP_SettingsPanel
      .left = 10
      .top = 180
      .Font = REP_S_Font
      .CAPTION = "Page Title"
     END WITH

     DIM REP_S_TitleColorLAB AS QLABEL
     WITH REP_S_TitleColorLAB
      .PARENT = REP_SettingsPanel
      .top = 215
      .left = 10
      .CAPTION = "Background Color"
     END WITH

     DIM REP_S_TitleColorBOX AS QEDIT
     WITH REP_S_TitleColorBOX
      .PARENT = REP_SettingsPanel
      .top = 210
      .left = 130
      .width = 55
      .text = "#808080"
     END WITH

     DIM REP_S_TitleFontLAB AS QLABEL
     WITH REP_S_TitleFontLAB
      .PARENT = REP_SettingsPanel
      .top = 245
      .left = 10
      .CAPTION = "Font Color"
     END WITH

     DIM REP_S_TitleFontBOX AS QEDIT
     WITH REP_S_TitleFontBOX
      .PARENT = REP_SettingsPanel
      .top = 240
      .left = 130
      .width = 55
      .text = "#C0C0C0"
     END WITH


' °°°°°°°°°°°°°°° Tables
     DIM REP_S_TablesLAB AS QLABEL
     WITH REP_S_TablesLAB
      .PARENT = REP_SettingsPanel
      .left = 210
      .top = 10
      .CAPTION = "Tables"
      .Font = REP_S_Font
     END WITH

     DIM REP_S_TableColorLAB AS QLABEL
     WITH REP_S_TableColorLAB
      .PARENT = REP_SettingsPanel
      .top = 40
      .left = 210
      .CAPTION = "Background Color"
     END WITH

     DIM REP_S_TableColorBOX AS QEDIT
     WITH REP_S_TableColorBOX
      .PARENT = REP_SettingsPanel
      .top = 35
      .left = 330
      .width = 55
      .text = "#C0C0C0"
     END WITH

     DIM REP_S_TableBorderSizeLAB AS QLABEL
     WITH REP_S_TableBorderSizeLAB
      .PARENT = REP_SettingsPanel
      .top = 70
      .left = 210
      .CAPTION = "Border Size"
     END WITH

     DIM REP_S_TableBorderSizeBOX AS QEDIT
     WITH REP_S_TableBorderSizeBOX
      .PARENT = REP_SettingsPanel
      .top = 65
      .left = 330
      .text = "1"
      .width = 55
     END WITH

     DIM REP_S_TableBorderColorLAB AS QLABEL
     WITH REP_S_TableBorderColorLAB
      .PARENT = REP_SettingsPanel
      .top = 100
      .left = 210
      .CAPTION = "Border Color"
     END WITH

     DIM REP_S_TableBorderColorBOX AS QEDIT
     WITH REP_S_TableBorderColorBOX
      .PARENT = REP_SettingsPanel
      .top = 95
      .left = 330
      .width = 55
      .text = "#808080"
     END WITH

     DIM REP_S_TablePaddingLAB AS QLABEL
     WITH REP_S_TablePaddingLAB
      .PARENT = REP_SettingsPanel
      .top = 130
      .left = 210
      .CAPTION = "Cell Padding"
     END WITH

     DIM REP_S_TablePaddingBOX AS QEDIT
     WITH REP_S_TablePaddingBOX
      .PARENT = REP_SettingsPanel
      .top = 125
      .left = 330
      .width = 55
      .text = "2"
     END WITH

     DIM REP_S_TableSpacingLAB AS QLABEL
     WITH REP_S_TableSpacingLAB
      .PARENT = REP_SettingsPanel
      .top = 160
      .left = 210
      .CAPTION = "Cell Spacing"
     END WITH

     DIM REP_S_TableSpacingBOX AS QEDIT
     WITH REP_S_TableSpacingBOX
      .PARENT = REP_SettingsPanel
      .top = 155
      .left = 330
      .width = 55
      .text = "0"
     END WITH

     DIM REP_S_TableCollapseCH AS QCHECKBOX
     WITH REP_S_TableCollapseCH
      .PARENT = REP_SettingsPanel
      .top = 190
      .left = 210
      .CAPTION = "Collapse Border"
      .checked = 1
     END WITH


     DIM REP_S_TableCelLAB AS QLABEL
     WITH REP_S_TableCelLAB
      .PARENT = REP_SettingsPanel
      .top = 230
      .left = 210
      .font = REP_S_Font
      .CAPTION = "Table Cells"
     END WITH

     DIM REP_S_CellFontLAB AS QLABEL
     WITH REP_S_CellFontLAB
      .PARENT = REP_SettingsPanel
      .top = 260
      .left = 210
      .CAPTION = "Font Name"
     END WITH

     DIM REP_S_CellFontBOX AS QEDIT
     WITH REP_S_CellFontBOX
      .PARENT = REP_SettingsPanel
      .top = 255
      .left = 330
      .width = 55
     END WITH

     DIM REP_S_CellColorLAB AS QLABEL
     WITH REP_S_CellColorLAB
      .PARENT = REP_SettingsPanel
      .left = 210
      .top = 290
      .CAPTION = "Font Color"
     END WITH

     DIM REP_S_CellColorBOX AS QEDIT
     WITH REP_S_CellColorBOX
      .PARENT = REP_SettingsPanel
      .top = 285
      .left = 330
      .width = 55
     END WITH

     DIM REP_S_CellSizeLAB AS QLABEL
     WITH REP_S_CellSizeLAB
      .PARENT = REP_SettingsPanel
      .left = 210
      .top = 320
      .CAPTION = "Font Size"
     END WITH

     DIM REP_S_CellSizeBOX AS QEDIT
     WITH REP_S_CellSizeBOX
      .PARENT = REP_SettingsPanel
      .Left = 330
      .top = 315
      .width = 55
      .text = "2"
     END WITH

     DIM REP_S_CellBoldCH AS QCHECKBOX
     WITH REP_S_CellBoldCH
      .PARENT = REP_SettingsPanel
      .left = 210
      .top = 345
      .CAPTION = "Bold"
      .checked = 1
     END WITH

     DIM REP_S_SelectColor AS QBUTTON
     WITH REP_S_SelectColor
      .PARENT = REP_SettingsPanel
      .left = 10
      .top = 300
      .width = 150
      .CAPTION = "Select Color"
     END WITH

     DIM REP_S_ResetBUT AS QBUTTON
     WITH rEP_S_ResetBUT
      .PARENT = REP_SettingsPanel
      .left = 10
      .top = 330
      .width = 150
      .CAPTION = "Reset Default"
     END WITH



     $INCLUDE "Codepart.bas"
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2023-2-6  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-08-28 15:47:00