pythianproject-cvsmail

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GUISystem
In directory slayer.i.sourceforge.net:/tmp/cvs-serv533/GUISystem

Modified Files:
	StartupForm.pas 
Log Message:
can't remember exact changes, just got cooler that's all -mike

Index: StartupForm.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GUISystem/StartupForm.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** StartupForm.pas	2000/12/12 19:45:47	1.5
--- StartupForm.pas	2000/12/12 20:40:37	1.6
***************
*** 22,25 ****
--- 22,26 ----
      Label1:TvglTextBox;
      SB :TvglScrollbar;
+     LB: TvglSimpleListBox;
      CB: TvglCheckBox;
  
***************
*** 121,124 ****
--- 122,126 ----
  
  procedure TfrmStartup.go;
+ var i:integer;
  begin
    GLForm := TGLForm.Create;
***************
*** 199,208 ****
    SB := TvglScrollBar.Create('ScrollBar1', InterfaceManager.Desktop);
    SB.Kind := sbHorizontal;
!   SB.Left := 260;
!   SB.Top := 60;
    SB.Height := 13;
!   SB.Width := 200;
    SB.Position := 15;
    SB.PageSize := 10;
  
    Hide;
--- 201,223 ----
    SB := TvglScrollBar.Create('ScrollBar1', InterfaceManager.Desktop);
    SB.Kind := sbHorizontal;
!   SB.Left := 60;
!   SB.Top := 260;
    SB.Height := 13;
!   SB.Width := 150;
    SB.Position := 15;
    SB.PageSize := 10;
+ 
+   LB := TvglSimpleListBox.Create('SimpleListBoxTest', InterfaceManager.Desktop);
+   LB.Items.BeginUpdate;
+   LB.Items.Clear;
+   for i := 0 to 100 do
+   begin
+     LB.Items.Add('Item '+IntToStr(i));
+   end;
+   LB.Items.EndUpdate;
+   LB.Color := clBlue;
+   LB.Translucency := 0.5;
+   LB.Bounds := Rect(260, 30, 450, 280);
+   LB.ScrollBars := ssBoth;
  
    Hide;