camphill.inc

一个用Delphi编写的很好的屏保程序

const
     IDD_SETUP	=	100;

  IDC_SPEED = 201;
  IDC_WITHTEXT = 202;
  IDC_LOOKHEIGHT = 203;
  IDC_LOOKDIST = 204;
  IDC_RAINBOW = 205;
  IDC_BACKCOLOUR = 206;
  IDC_BODYCOLOUR = 208;
  IDC_DEFAULTS	=	212;
  IDC_POLYCHROME_BOX	=	213;
  IDC_TEXTCOLOUR	=	210;
  IDC_TEXTCOLOUR_BUTTON	=	211;
  IDC_POLYCHROME0	=	220;
  IDC_POLYCHROME1	=	221;
  IDC_POLYCHROME2	=	222;
  IDC_POLYCHROME3	=	223;
  IDC_POLYCHROME4	=	224;
  IDC_POLYCHROME5	=	225;
  IDC_TEXT	=	226;
  IDC_OUTLINE	=	227;
  IDC_ROTATING	=	228;
  IDC_BOLD	=	229;
  IDC_ITALIC	=	230;
  IDC_FONTLIST	=	233;
	IDC_FONTDEPTH	=	106;

(*
  TSettings =
  record
    Speed: DWORD;
    WithText: Boolean;
    LookHeight, LookDist: Integer;
    Rainbow: Boolean;
    BackColour,
    BodyColour: TColor;
    Polychrome: array[0..5] of TColor;
  end;
*)