[Gambas-user] Question about Key in ColumnView

[Charlie Reinl]

Salut,

where am I wrong, in the this Sub I Update tow equal ColumnView shown here :

  WITH cvwTranslate
    .Columns.Count = 4
    .Columns[0].Text = ("Untranslated")
    .Columns[0].AutoResize = FALSE
    .Columns[1].AutoResize = FALSE
    .Columns[2].Text = ("Comments")
    .Columns[2].AutoResize = FALSE
    .Columns[3].Text = ("myKey")
    .Columns[3].AutoResize = FALSE
  END WITH
  cvwTranslateORG = NEW ColumnView(ME)
    WITH cvwTranslateORG
    .Visible = FALSE
    .Columns.Count = 4
    .Columns[0].Text = ("Untranslated")
    .Columns[0].AutoResize = FALSE
    .Columns[1].AutoResize = FALSE
    .Columns[2].Text = ("Comments")
    .Columns[2].AutoResize = FALSE
    .Columns[3].Text = ("myKey")
    .Columns[3].AutoResize = FALSE
  END WITH

(I added .Columns[3] to store the Key)

I thought I can read the .Key from the ColumnView to set him in the seconde 
ColumnView.

But I alway get "1", who is my mistake ?

PRIVATE SUB UpdateOrg(OPTIONAL bNew AS Boolean = FALSE)
DIM nI AS Integer
DIM sKey AS String
  IF bNew THEN cvwTranslateORG.Clear
  WITH cvwTranslate
    .MoveFirst
    DO WHILE .Available
      'sKey = .Key
      sKey = CStr(.item[3])
      IF bNew THEN 
        cvwTranslateORG.Add(sKey, .item[0])
        FOR ni = 1 TO .Columns.Count - 1
          cvwTranslateORG.Item[nI] = .item[nI]
        NEXT  
      ELSE
        cvwTranslateORG.MoveTo(sKey)
        cvwTranslateORG.Item[1] = .item[1] 
      ENDIF 
      .MoveNext
    LOOP
  END WITH
END

This Sub writes the hole cvwTranslate to cvwTranslateORG if  bNew  is TRUE, or 
if after initialisation keeps only the Values found by sKey.

You find this Sub in the attached *.class file , if you want to try it, this 
comes from gambas2 IDE (1.9.41) the translation tool

You will find left to the buttons a ComboBox where you can switch down to each 
file.

Amicalment
Charlie
-------------- next part --------------
A non-text attachment was scrubbed...
Name: FTranslate.class
Type: application/x-java
Size: 19061 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20060902/b77e3b28/attachment.bin>
-------------- next part --------------
# Gambas Form File 1.0

{ FTranslate Form
  MoveScaled(7.1429,15.4286,101,79)
  'Move(50,108,707,553)
  Text = ("Project translation")
  Icon = Picture["icon:/16/language"]
  Arrangement = Arrange.Vertical
  Spacing = 8
  Padding = 8
  { Panel4 Panel
    MoveScaled(1,1,93,6)
    'Move(7,7,651,42)
    Background = Color.SelectedBackground
    Arrangement = Arrange.Horizontal
    Spacing = 8
    Padding = 8
    { PictureBox1 PictureBox
      MoveScaled(1,1,5,5)
      'Move(7,7,35,35)
      Picture = Picture["icon:/32/language"]
    }
    { Label2 Label
      MoveScaled(7,1,31,4)
      'Move(49,7,217,28)
      Font = Font["Bold,+2"]
      Foreground = Color.SelectedForeground
      AutoResize = True
      Text = ("Project translation")
    }
  }
  { HBox2 HBox
    MoveScaled(1,8,115,65)
    'Move(7,56,805,455)
    Expand = True
    Spacing = 8
    { cvwLang ColumnView
      MoveScaled(0,3,29,59)
      'Move(0,21,203,413)
      Sorted = True
      AutoResize = True
      Header = False
      ScrollBar = Scroll.Vertical
    }
    { VBox1 VBox
      MoveScaled(30,1,84,61)
      'Move(210,7,588,427)
      Expand = True
      Spacing = 8
      { ToolBar1 ToolBar
        MoveScaled(3,1,78,3)
        'Move(21,7,546,21)
        { cbxFileChoice ComboBox
          MoveScaled(52,-1,29,4)
          'Move(364,-7,203,28)
          Text = ("ComboBox1")
        }
        { btnClear ToolButton
          MoveScaled(0,0,3,3)
          'Move(0,0,21,21)
          ToolTip = ("Clear this translation")
          Text = ("")
          Picture = Picture["icon:/16/clear"]
        }
        { btnDoNotTranslate ToolButton
          MoveScaled(3,0,3,3)
          'Move(21,0,21,21)
          ToolTip = ("This string must not be translated")
          Text = ("")
          Picture = Picture["icon:/16/warning"]
        }
        { btnCopy ToolButton
          MoveScaled(6,0,3,3)
          'Move(42,0,21,21)
          ToolTip = ("Copy untranslated string")
          Text = ("")
          Picture = Picture["icon:/16/paste"]
        }
        { btnVerify ToolButton
          MoveScaled(9,0,3,3)
          'Move(63,0,21,21)
          ToolTip = ("Verify the translation")
          Text = ("")
          Picture = Picture["icon:/16/watch"]
        }
        { btnNext ToolButton
          MoveScaled(12,0,3,3)
          'Move(84,0,21,21)
          ToolTip = ("Find next untranslated string")
          Text = ("")
          Picture = Picture["icon:/16/down"]
        }
        { btnPrevious ToolButton
          MoveScaled(15,0,3,3)
          'Move(105,0,21,21)
          ToolTip = ("Find previous untranslated string")
          Text = ("")
          Picture = Picture["icon:/16/up"]
        }
        { txtFind TextBox
          MoveScaled(18,0,31,3)
          'Move(126,0,217,21)
          Text = ("")
        }
        { btnFind ToolButton
          MoveScaled(49,0,3,3)
          'Move(343,0,21,21)
          ToolTip = ("Find a string in translation")
          Text = ("")
          Picture = Picture["icon:/16/find"]
        }
        { Panel2 Panel
          MoveScaled(69,0,1,3)
          'Move(483,0,7,21)
          Visible = False
        }
      }
      { cvwTranslate ColumnView
        MoveScaled(3,6,80,29)
        'Move(21,42,560,203)
        Expand = True
        Sorted = True
        Resizable = False
        ScrollBar = Scroll.Vertical
      }
      { VBox2 VBox
        MoveScaled(2,37,80,19)
        'Move(14,259,560,133)
        Expand = True
        Spacing = 8
        { lblComment Label
          MoveScaled(1,1,48,3)
          'Move(7,7,336,21)
          Text = ("")
        }
        { txtOrig TextArea
          MoveScaled(4,4,73,7)
          'Move(28,28,511,49)
          Background = Color.Background
          Expand = True
          Text = ("")
          ReadOnly = True
          Wrap = True
        }
        { txtTranslate TextArea
          MoveScaled(3,12,73,5)
          'Move(21,84,511,35)
          Expand = True
          Text = ("")
          Wrap = True
        }
      }
      { lblInfo Label
        MoveScaled(2,56,73,3)
        'Move(14,392,511,21)
        Text = ("")
      }
    }
  }
  { VBox3 VBox
    MoveScaled(0,74,106,4)
    'Move(0,518,742,28)
    { Panel3 Panel
      MoveScaled(55,0,3,1)
      'Move(385,0,21,7)
    }
    { HBox1 HBox
      MoveScaled(0,1,101,3)
      'Move(0,7,707,21)
      Spacing = 8
      { btnNew Button
        MoveScaled(0,0,15,3)
        'Move(0,0,105,21)
        ToolTip = ("New translation")
        Text = ("&New...")
      }
      { btnUndo Button
        MoveScaled(16,0,15,3)
        'Move(112,0,105,21)
        ToolTip = ("Reload translation")
        Text = ("&Reload")
      }
      { btnDelete Button
        MoveScaled(32,0,15,3)
        'Move(224,0,105,21)
        ToolTip = ("Delete translation")
        Text = ("&Delete")
      }
      { btnImport Button
        MoveScaled(48,0,15,3)
        'Move(336,0,105,21)
        ToolTip = ("Import a translation file")
        Text = ("&Import...")
      }
      { btnExport Button
        MoveScaled(64,0,15,3)
        'Move(448,0,105,21)
        ToolTip = ("Export to a translation file")
        Text = ("&Export...")
      }
      { Panel1 Panel
        MoveScaled(81,0,3,3)
        'Move(567,0,21,21)
        Expand = True
      }
      { btnOK Button
        MoveScaled(85,0,15,3)
        'Move(595,0,105,21)
        Text = ("&Close")
      }
    }
  }
}