VERSION 5.00 Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form BackGrnd AutoRedraw = -1 'True BorderStyle = 4 'Fixed ToolWindow Caption = "Data" ClientHeight = 7950 ClientLeft = 45 ClientTop = 315 ClientWidth = 11460 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 7950 ScaleWidth = 11460 ShowInTaskbar = 0 'False Begin MSComDlg.CommonDialog CommonDialog1 Left = 4320 Top = 3120 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.Frame Frame1 Caption = "Color (Column 2)" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1935 Left = 4800 TabIndex = 22 Top = 5760 Width = 4095 Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 20 Left = 3120 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 43 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 19 Left = 2160 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 42 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 18 Left = 1200 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 41 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 17 Left = 240 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 31 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 16 Left = 3120 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 30 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 15 Left = 2160 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 29 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 14 Left = 1200 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 28 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 13 Left = 240 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 27 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 12 Left = 3120 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 26 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 11 Left = 2160 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 25 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 10 Left = 1200 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 24 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 9 Left = 240 ScaleHeight = 345 ScaleWidth = 345 TabIndex = 23 Top = 360 Width = 375 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "4" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 20 Left = 3495 TabIndex = 46 Top = 420 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "8" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 19 Left = 3495 TabIndex = 45 Top = 915 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "12" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 18 Left = 3525 TabIndex = 44 Top = 1395 Width = 495 End Begin VB.Line Line9 X1 = 3000 X2 = 3000 Y1 = 240 Y2 = 1800 End Begin VB.Line Line6 X1 = 1080 X2 = 1080 Y1 = 240 Y2 = 1800 End Begin VB.Line Line5 X1 = 2040 X2 = 2040 Y1 = 240 Y2 = 1800 End Begin VB.Line Line8 X1 = 135 X2 = 3960 Y1 = 780 Y2 = 780 End Begin VB.Line Line7 X1 = 135 X2 = 3960 Y1 = 1260 Y2 = 1260 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 17 Left = 600 TabIndex = 40 Top = 405 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "5" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 16 Left = 600 TabIndex = 39 Top = 900 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "2" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 15 Left = 1560 TabIndex = 38 Top = 420 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "6" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 14 Left = 1560 TabIndex = 37 Top = 915 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "3" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 13 Left = 2535 TabIndex = 36 Top = 420 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "7" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 12 Left = 2535 TabIndex = 35 Top = 915 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "9" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 11 Left = 630 TabIndex = 34 Top = 1380 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "10" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 10 Left = 1590 TabIndex = 33 Top = 1395 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "11" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 9 Left = 2565 TabIndex = 32 Top = 1395 Width = 495 End End Begin VB.Frame Symbol Caption = "Symbol (column 1)" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1935 Left = 240 TabIndex = 3 Top = 5760 Width = 4332 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 23 Left = 3120 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 49 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 22 Left = 2160 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 48 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 21 Left = 1200 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 47 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 8 Left = 240 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 12 Top = 1320 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 7 Left = 3120 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 11 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 6 Left = 2160 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 10 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 5 Left = 1200 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 9 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 4 Left = 240 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 8 Top = 840 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 3 Left = 3120 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 7 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 2 Left = 2160 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 6 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 1 Left = 1200 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 5 Top = 360 Width = 375 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 375 Index = 0 Left = 240 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 23 TabIndex = 4 Top = 360 Width = 375 End Begin VB.Line Line2 X1 = 2040 X2 = 2040 Y1 = 240 Y2 = 1800 End Begin VB.Line Line10 X1 = 3000 X2 = 3000 Y1 = 240 Y2 = 1800 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "11" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 23 Left = 2520 TabIndex = 52 Top = 1380 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "12" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 22 Left = 3480 TabIndex = 51 Top = 1392 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "10" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 21 Left = 1608 TabIndex = 50 Top = 1392 Width = 492 End Begin VB.Line Line1 X1 = 1080 X2 = 1080 Y1 = 240 Y2 = 1800 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "9" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 8 Left = 648 TabIndex = 21 Top = 1392 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "8" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 7 Left = 3516 TabIndex = 20 Top = 912 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "7" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 6 Left = 2556 TabIndex = 19 Top = 900 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "6" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 5 Left = 1572 TabIndex = 18 Top = 912 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "3" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 2535 TabIndex = 17 Top = 420 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "5" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 3 Left = 600 TabIndex = 16 Top = 912 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "2" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 1560 TabIndex = 15 Top = 420 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "4" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 1 Left = 3480 TabIndex = 14 Top = 420 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 600 TabIndex = 13 Top = 405 Width = 495 End Begin VB.Line Line4 X1 = 132 X2 = 4080 Y1 = 1260 Y2 = 1260 End Begin VB.Line Line3 X1 = 132 X2 = 4080 Y1 = 780 Y2 = 780 End End Begin VB.CommandButton Stop Caption = "Hide" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9360 TabIndex = 2 Top = 7320 Width = 1575 End Begin VB.TextBox T1 Appearance = 0 'Flat BackColor = &H00C0FFFF& BorderStyle = 0 'None Height = 285 Left = 1320 MaxLength = 20 TabIndex = 1 Top = 2040 Visible = 0 'False Width = 975 End Begin MSFlexGridLib.MSFlexGrid FG1 Height = 5415 Left = 240 TabIndex = 0 Top = 120 Width = 11055 _ExtentX = 19500 _ExtentY = 9551 _Version = 393216 Rows = 30 Cols = 10 BackColor = 16777215 ScrollTrack = -1 'True FillStyle = 1 Appearance = 0 FormatString = " " BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Rigth click for options " BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9120 TabIndex = 54 Top = 6720 Width = 2295 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Double click to change concentration values " BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9120 TabIndex = 53 Top = 6000 Width = 2295 End End Attribute VB_Name = "BackGrnd" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub FG1_DblClick() '--Attenzione-14-10-03----------- If FG1.col >= 4 And FG1.Row > 0 Then aa1 = FG1.col - 3 aa2 = FG1.Row Form35.Label6.Caption = NomeCamp(aa2) Form35.Label7.Caption = Elementi(aa1) Form35.Label5.Caption = DatiOrigine(aa2, aa1) Form35.Text1.Text = DatiOrigine(aa2, aa1) Form35.Show Form35.SetFocus End If '------------------------ End Sub Private Sub FG1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then TipoCopia = "DATI" MDIForm1.PopupMenu MDIForm1.mnupopup2 End If End Sub Private Sub Form_Load() FG1.ColWidth(0) = 3000 For i = 9 To 20 BackGrnd.Picture1(i).BackColor = QBColor(i - 8) Next i BackGrnd.Picture1(9).BackColor = RGB(1, 1, 1) For i = 0 To 8 BackGrnd.Picture1(i).Scale (0, 10)-(10, 0) Next i For i = 21 To 23 BackGrnd.Picture1(i).Scale (0, 10)-(10, 0) Next i 'picture(0) BackGrnd.Picture1(0).FillColor = QBColor(0) BackGrnd.Picture1(0).FillStyle = 0 BackGrnd.Picture1(0).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B 'picture(1) BackGrnd.Picture1(1).FillColor = QBColor(0) BackGrnd.Picture1(1).FillStyle = 1 BackGrnd.Picture1(1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B 'picture(2) BackGrnd.Picture1(2).FillColor = QBColor(0) BackGrnd.Picture1(2).FillStyle = 0 BackGrnd.Picture1(2).Circle (5, 5), 2, QBColor(0) 'picture(3) BackGrnd.Picture1(3).FillColor = QBColor(0) BackGrnd.Picture1(3).FillStyle = 1 BackGrnd.Picture1(3).Circle (5, 5), 2, QBColor(0) 'picture(4) BackGrnd.Picture1(4).FillStyle = 1 BackGrnd.Picture1(4).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0) BackGrnd.Picture1(4).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0) BackGrnd.Picture1(4).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0) 'picture(5) BackGrnd.Picture1(5).FillStyle = 1 BackGrnd.Picture1(5).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0) BackGrnd.Picture1(5).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0) BackGrnd.Picture1(5).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0) 'picture(6) BackGrnd.Picture1(6).FillStyle = 1 BackGrnd.Picture1(6).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) BackGrnd.Picture1(6).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) BackGrnd.Picture1(6).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) BackGrnd.Picture1(6).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) 'picture(7) BackGrnd.Picture1(7).FillStyle = 1 BackGrnd.Picture1(7).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) BackGrnd.Picture1(7).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) 'picture(8) BackGrnd.Picture1(8).FillStyle = 1 BackGrnd.Picture1(8).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0) BackGrnd.Picture1(8).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0) BackGrnd.Picture1(8).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0) BackGrnd.Picture1(8).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0) 'picture(21) BackGrnd.Picture1(21).FillStyle = 1 BackGrnd.Picture1(21).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) BackGrnd.Picture1(21).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) 'picture(22) BackGrnd.Picture1(22).FillStyle = 1 BackGrnd.Picture1(22).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) 'picture(23) BackGrnd.Picture1(23).FillStyle = 1 BackGrnd.Picture1(23).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) BackGrnd.Picture1(23).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) BackGrnd.Picture1(23).FillColor = QBColor(0) BackGrnd.Picture1(23).FillStyle = 1 BackGrnd.Picture1(23).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B Dim y% With FG1 .ColAlignment(-1) = 1 For y% = 1 To .ColS - 1 .TextMatrix(0, y%) = "Col " + Str(y%) Next For y% = 1 To FG1.Rows - 1 .TextMatrix(y%, 0) = "Row " + Str(y%) Next .Row = 1 .col = 1 .CellBackColor = &HC0FFFF 'lt. yellow ' BackGrnd.CellIndicator = " " + .TextMatrix(.Row, 0) + " : " + .TextMatrix(0, .Col) + " " End With End Sub Private Sub AutoReturn_Click() FG1.SetFocus End Sub Private Sub FG1_KeyPress(KeyAscii As Integer) roww = FG1.Row If FG1.col = 0 Then GoTo poi If FG1.col = 1 Then a = FG1.Clip zz = 0 For ii = 1 To 10000 aas = Mid(a, ii, 1) If aas = Chr$(9) Then zz = zz + 1 If zz = 3 Then zz1 = 0 For iii = 1 To 100 aad = Mid(a, ii + iii, 1) zz1 = zz1 + 1 If aad = Chr$(9) Then lend = zz1 aae = Val(Mid(a, ii, lend)) If aae = DatiOrigine(roww, 1) Then GoTo poi End If Next iii End If End If Next ii End If asd = Int(Val(Chr$(KeyAscii))) If FG1.col > 0 And FG1.col < 4 Then If FG1.col = 3 Then If asd <> 1 And asd <> 0 Then GoTo poi End If If asd > 12 Or asd < 0 Then GoTo poi FG1 = asd T1 = asd Set_TextBox poi: End If End Sub Private Sub Form_Unload(Cancel As Integer) If Fileopen = True Then ris = MsgBox("If you close this window you will loose all data! Do you want to save data in a .PEG file?", vbYesNoCancel, "Attenzione!") If ris = 2 Then Cancel = 1 Exit Sub End If If ris = 6 Then MDIForm1.opzSavePetrograph_Click End If End If Cancel = 0 Fileopen = False CIPWyn = False REEOperation = False For i = 1 To 15 If OpenPic(i) = 1 Then OpenPic(i) = 0 Unload picforms(i) 'Visible = False End If Next i Maxindeks = 0 End Sub Private Sub Picture1_Click(Index As Integer) If Index >= 9 And Index < 21 Then If FG1.col = 2 Then 'FG1.col = 2 '22-06 FG1 = Index - 8 End If End If If Index < 9 Then If FG1.col = 1 Then 'FG1.col = 1 '22-06 FG1 = Index + 1 End If End If If Index >= 21 And Index < 24 Then If FG1.col = 1 Then FG1 = Index - 11 End If End If End Sub Private Sub Picture1_DblClick(Index As Integer) If Index > 9 And Index < 21 Then CommonDialog1.ShowColor Picture1(Index).BackColor = CommonDialog1.Color End If End Sub Private Sub MnuFGridAddCol_Click() End Sub Private Sub INCR_CELL() 'advance to next cell End Sub Private Sub Set_TextBox() 'put textbox over cell End Sub Private Sub Stop_Click() BackGrnd.Visible = False End Sub