camphill.rc

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

#include "Screensaver.inc"
#include "Camphill.inc"

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_UK

STRINGTABLE PRELOAD
BEGIN
    IDS_DESCRIPTION         "Camphill Communities (Open GL)"
END

IDI_APP ICON 
{
 '00 00 01 00 01 00 20 20 10 00 00 00 00 00 E8 02'
 '00 00 16 00 00 00 28 00 00 00 20 00 00 00 40 00'
 '00 00 01 00 04 00 00 00 00 00 80 02 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 80 00 00 80 00 00 00 80 80 00 80 00'
 '00 00 80 00 80 00 80 80 00 00 80 80 80 00 C0 C0'
 'C0 00 00 00 FF 00 00 FF 00 00 00 FF FF 00 FF 00'
 '00 00 FF 00 FF 00 FF FF 00 00 FF FF FF 00 04 44'
 '00 40 40 40 40 40 40 00 44 04 04 40 40 40 44 44'
 '04 44 40 40 40 40 40 00 44 04 04 40 40 40 44 00'
 '04 40 40 40 40 40 44 00 44 04 04 40 40 40 44 00'
 '04 00 40 40 40 40 44 40 44 44 04 40 40 40 44 44'
 '04 44 40 44 44 40 40 40 44 44 00 00 40 40 04 44'
 '00 44 40 44 44 40 44 40 44 00 04 40 40 40 00 00'
 '00 00 00 00 00 00 04 00 44 00 04 40 40 40 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 8D 55'
 '72 95 08 55 72 95 39 55 32 95 3B 55 10 95 08 41'
 '50 F5 8C 41 13 95 FF FF B3 95 FF FD BF FF FF F9'
 '9F FF FF F9 9F FF FF F9 9F FF FF F1 8F FF FF F1'
 '8F FF FF F1 8F FF FF E1 87 FF FF E1 87 FF FF E3'
 'C7 FF FF 83 C1 FF FF 03 C0 FF FE 03 C0 7F FC 03'
 'C0 3F 00 1F F8 00 80 1F F8 01 C0 1F F8 03 F0 1F'
 'F8 07 F8 0F F0 1F FC 07 E0 3F FF 03 C0 FF FF 81'
 '81 FF FF C0 03 FF FF F0 0F FF FF F8 1F FF'
}

IDD_SETUP DIALOG 0, 1, 253, 211
STYLE WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Sheiling Screen saver setup"
FONT 8, "MS Sans Serif"
{
 CONTROL "Te&xt Message", -1, "static", SS_LEFT | WS_CHILD | WS_VISIBLE, 12, 16, 48, 8
 CONTROL "Sheiling School", IDC_TEXT, "edit", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 64, 12, 184, 12
 CONTROL "", IDC_TEXTCOLOUR, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 32, 36, 13
 CONTROL "Te&xt colour", IDC_TEXTCOLOUR, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 32, 50, 14
 CONTROL "", IDC_BACKCOLOUR, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 52, 36, 13
 CONTROL "Bac&k colour", IDC_BACKCOLOUR, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 52, 50, 14
 CONTROL "", IDC_BODYCOLOUR, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 68, 36, 13
 CONTROL "Bod&y colour", IDC_BODYCOLOUR, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 68, 50, 14
 CONTROL "Polychrome", IDC_POLYCHROME_BOX, "button", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_GROUP, 12, 88, 108, 116
 CONTROL "", IDC_POLYCHROME0, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 100, 36, 13
 CONTROL "Poly colour &1", IDC_POLYCHROME0, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 100, 50, 14
 CONTROL "", IDC_POLYCHROME1, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 116, 36, 13
 CONTROL "Poly colour &2", IDC_POLYCHROME1, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 116, 50, 14
 CONTROL "", IDC_POLYCHROME2, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 132, 36, 13
 CONTROL "Poly colour &3", IDC_POLYCHROME2, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 132, 50, 14
 CONTROL "", IDC_POLYCHROME3, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 148, 36, 13
 CONTROL "Poly colour &4", IDC_POLYCHROME3, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 148, 50, 14
 CONTROL "", IDC_POLYCHROME4, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 164, 36, 13
 CONTROL "Poly colour &5", IDC_POLYCHROME4, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 164, 50, 14
 CONTROL "", IDC_POLYCHROME5, "static", SS_OWNERDRAW | WS_CHILD | WS_VISIBLE, 20, 180, 36, 13
 CONTROL "Poly colour &6", IDC_POLYCHROME5, "button", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 64, 180, 50, 14
 CONTROL "Ty&peface", -1, "static", SS_RIGHT | WS_CHILD | WS_VISIBLE, 124, 36, 40, 8
 CONTROL "", IDC_FONTLIST, "combobox", CBS_DROPDOWNLIST | CBS_SORT | CBS_DISABLENOSCROLL | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 168, 32, 80, 96
 CONTROL "I&talic", IDC_ITALIC, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 124, 48, 52, 8
 CONTROL "&Bold", IDC_BOLD, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 196, 48, 48, 8
 CONTROL "&Outline", IDC_OUTLINE, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 132, 60, 44, 8
 CONTROL "&Rotating", IDC_ROTATING, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 196, 60, 48, 8
 CONTROL "&Polychrome", IDC_RAINBOW, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 128, 72, 48, 8
 CONTROL "&Show text", IDC_WITHTEXT, "button", BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_RIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 204, 72, 40, 8
 CONTROL "Te&xt depth", -1, "static", SS_RIGHT | WS_CHILD | WS_VISIBLE, 160, 88, 36, 8
 CONTROL "", -1, "edit", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 84, 36, 12
 CONTROL "", IDC_FONTDEPTH, "msctls_updown32", UDS_SETBUDDYINT | UDS_AUTOBUDDY | UDS_ARROWKEYS | WS_CHILD | WS_VISIBLE, 236, 84, 8, 12
 CONTROL "&Speed", -1, "static", SS_RIGHT | WS_CHILD | WS_VISIBLE, 156, 108, 36, 8
 CONTROL "", -1, "edit", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 104, 36, 12
 CONTROL "", IDC_SPEED, "msctls_updown32", UDS_SETBUDDYINT | UDS_AUTOBUDDY | UDS_ARROWKEYS | WS_CHILD | WS_VISIBLE, 236, 104, 8, 12
 CONTROL "Look &distance", -1, "static", SS_RIGHT | WS_CHILD | WS_VISIBLE, 140, 128, 56, 8
 CONTROL "", -1, "edit", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 124, 36, 12
 CONTROL "", IDC_LOOKDIST, "msctls_updown32", UDS_SETBUDDYINT | UDS_AUTOBUDDY | UDS_ARROWKEYS | WS_CHILD | WS_VISIBLE, 236, 124, 8, 12
 CONTROL "Look &height", -1, "static", SS_RIGHT | WS_CHILD | WS_VISIBLE, 156, 148, 36, 8
 CONTROL "", 101, "edit", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 144, 36, 12
 CONTROL "", IDC_LOOKHEIGHT, "msctls_updown32", UDS_SETBUDDYINT | UDS_AUTOBUDDY | UDS_ARROWKEYS | WS_CHILD | WS_VISIBLE, 236, 144, 8, 12
 CONTROL "&Defaults", IDC_DEFAULTS, "BUTTON", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 128, 184, 50, 14
 CONTROL "OK", IDOK, "BUTTON", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 196, 164, 50, 14
 CONTROL "Cancel", IDCANCEL, "BUTTON", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 196, 184, 50, 14
}

1 VERSIONINFO LOADONCALL MOVEABLE DISCARDABLE IMPURE
FILEVERSION 1, 0, 0, 0
PRODUCTVERSION 1, 0, 0, 0
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
BEGIN
 BLOCK "StringFileInfo"
 BEGIN
  BLOCK "080904E4"
  BEGIN
   VALUE "CompanyName", "Production Robots Eng. Ltd\000"
   VALUE "FileDescription", "Camphill Communities Screensaver\000"
   VALUE "FileVersion", "Version 1.01\000"
   VALUE "InternalName", "CAMPHILL_SCR\000"
   VALUE "LegalCopyright", "Copyright \251 1999, Production Robots Eng. Ltd\000"
  END
 END

 BLOCK "VarFileInfo"
 BEGIN
  VALUE "Translation", 2057, 1252
 END

END