procedure TForm1.Screen1Initialize(Sender: TObject); var Pal : Array[0..4] of TPaletteEntry; Loop : Integer; begin For Loop := 0 to 4 do begin Pal[Loop].peRed := 95 + (Loop * 40); Pal[Loop].peGreen := 95 + (Loop * 40); Pal[Loop].peBlue := 95 + (Loop * 40); end; Screen1.Palette.SetEntries(0,240,5,@Pal); Stars.Generate; With Screen1.Back.Canvas do begin Font.Color := clRed; Release; end; ViewText := True; end; |
{ Demo5 プログラムです! 注意! : : Note: The TDGCStarField component uses palette entries 240-244 to color the stars. 244 is the brightest star and 240 is the dimest. These palette entries can be set using the Image Library Editor and reloading the .IML file into the Image Library component (the .IML files do not come withe the demos though). } |