home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / SPANISH / LOTUS027.DSK / MODFRAME.TPL < prev    next >
Text File  |  1995-07-19  |  4KB  |  138 lines
  1. Option Public
  2.     Print "N·mero de columnas = " .Frame.Layout.NumCols
  3.     
  4.     ' Set the layout for this frame to 2 columns
  5.     .Frame.Layout.NumCols = 2
  6.     
  7.     ' turn painting off    
  8.     .BeginChange    
  9.     
  10.     ' set the backcolor for this frame    
  11.     .Frame.Layout.Background.BackColor.Red = 0
  12.     .Frame.Layout.Background.BackColor.Blue = 224
  13.     .Frame.Layout.Background.BackColor.Green = 224
  14.     .Frame.Layout.Background.BackColor.Override = 0
  15.     
  16.     ' set the pattern color for this pattern    
  17.     .Frame.Layout.Background.Color.Red = 255
  18.     .Frame.Layout.Background.Color.Blue = 194
  19.     .Frame.Layout.Background.Color.Green = 255
  20.     .Frame.Layout.Background.Color.Override = 0
  21.     
  22.     ' assign a nice pattern to this frame    
  23.     .Frame.Layout.Background.Pattern = $LtsFillNeToSwGrad
  24.     
  25.     
  26.     .EndChange    
  27. Sub Script
  28.  
  29. End Sub
  30. Sub Main
  31.     
  32.     Print "N·mero de columnas= " .Frame.Layout.NumCols
  33.     
  34.     ' Set the layout for this frame to 2 columns
  35.     .Frame.Layout.NumCols = 2
  36.     
  37.     ' turn painting off    
  38.     .BeginChange    
  39.     
  40.     ' set the backcolor for this frame    
  41.     .Frame.Layout.Background.BackColor.Red = 0
  42.     .Frame.Layout.Background.BackColor.Blue = 224
  43.     .Frame.Layout.Background.BackColor.Green = 224
  44.     .Frame.Layout.Background.BackColor.Override = 0
  45.     
  46.     ' set the pattern color for this pattern    
  47.     .Frame.Layout.Background.Color.Red = 255
  48.     .Frame.Layout.Background.Color.Blue = 194
  49.     .Frame.Layout.Background.Color.Green = 255
  50.     .Frame.Layout.Background.Color.Override = 0
  51.     
  52.     ' assign a nice pattern to this frame    
  53.     .Frame.Layout.Background.Pattern = $LtsFillNeToSwGrad
  54.     
  55.     
  56.     .EndChange    
  57. End Sub
  58. Sub FrameMe
  59.     
  60.     .Frame.Layout.NumCols = 2
  61.     
  62.     
  63.     .BeginChange    
  64.     
  65.     .Frame.Layout.Background.BackColor.Red = 0
  66.     .Frame.Layout.Background.BackColor.Blue = 224
  67.     .Frame.Layout.Background.BackColor.Green = 224
  68.     .Frame.Layout.Background.BackColor.Override = 0
  69.     
  70.     .Frame.Layout.Background.Color.Red = 255
  71.     .Frame.Layout.Background.Color.Blue = 194
  72.     .Frame.Layout.Background.Color.Green = 255
  73.     .Frame.Layout.Background.Color.Override = 0
  74.     .Frame.Layout.Background.Pattern = $LtsFillNeToSwGrad
  75.     .EndChange    
  76. End Sub
  77. Sub StyleInfo
  78.     
  79.     ' styles are stored in a collection
  80.     ' the collection is accessible through the foundry at the division level
  81.     
  82.     Dim MyStyles As ParagraphStyleCollection
  83.     Set MyStyles = .Division.Foundry.ParagraphStyles
  84.     NumberStyles = MyStyles.Count
  85.     
  86.     Forall Style In MyStyles
  87.         
  88.         Print "Nombre: "Style.Name
  89.         Print "Descripci≤n: "Style.Description
  90.         Print "Fuente - Nombre    "Style.Font.FontName
  91.         Print "Fuente - Tama±o " Style.Font.Size
  92.         Print "Fuente - Negrita"Style.Font.Bold
  93.         Print "Fuente - TrueType "Style.Font.FontMetrics.IsTrueType
  94.         Print " --------------------------"
  95.         
  96.     End Forall
  97. End Sub
  98. Sub GetAllLayouts()
  99.     
  100.     'Retrieve all of the layouts in this division
  101.     
  102.     Dim AllLayouts As LayoutCollection
  103.     Set AllLayouts = .Division.Foundry.Layouts
  104.     
  105.     Forall Layout In AllLayouts
  106.         Print "Informaci≤n sobre el formato"
  107.         Print "Nombre de clase ",Layout.ClassName
  108.         Print "Nombre", Layout.Name
  109.         Print "Nombre del editor", Layout.EditorName
  110.         Print "------------------------------------------"
  111.         
  112.     End Forall
  113.     
  114. End Sub
  115. Sub  CommOpen()
  116.     Dim mydlg As LWPCommonDialog
  117.     Set MyDlg = Bind("")
  118.     mydlg.Filter = "Texto|*.*|Ami Pro|*.sam"
  119.     mydlg.text = "Abrir archivo com·n"
  120.     mydlg.FilterIndex = 1
  121.     mydlg.type = 2
  122.     mydlg.InitDir = "d:\"
  123. 'Dim ed As EditBox
  124. 'Set ed = mydlg.EditBoxes(1152)
  125. 'Dim combo As ComboBox
  126. 'Set combo = mydlg.ComboBoxes(1136)
  127. 'On Event Changed From ed Call edchg
  128. 'On Event Changed From combo Call combochange
  129. 'On Event DialogEvent From mydlg Call DlgProc
  130.     mydlg.Show(0)
  131.     Print mydlg.FileName
  132. End Sub
  133. Sub MyDialogEvent(Source As LWPCustomDialog, Controlid As Integer, Why As Integer)
  134.     If (Controlid = 0) And (Why = 7007) Then
  135.         Messagebox ThisDialog.GetControlText( 8000 )
  136.     End If
  137. End Sub
  138.