|
From: Michael H. <mh...@us...> - 2000-12-12 20:40:40
|
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; |