demounit2.dfm

来自「PIC 单片机 PAS SOURCE CODE SAMPLES」· DFM 代码 · 共 71 行

object frmDemo: TfrmDemo
  Left = 192
  Top = 168
  Width = 783
  Height = 540
  Caption = 'Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object memo: TRichEdit
    Left = 0
    Top = 0
    Width = 775
    Height = 506
    Align = alClient
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '//C++ example'
      '#include <windows.h>'
      '#include <lmaccess.h>'
      '#include <stdio.h>'
      '#include <stdlib.h>'
      '#include <string.h>'
      '#include <lmapibuf.h>'
      '#include "pwd.h"'
      '#include "grp.h"'
      'struct passwd *'
      'getpwnam(char *name)'
      '{'
      #9'return (struct passwd *) 0;'
      '}'
      ''
      ''
      'char *'
      'getlogin()'
      '{'
      #9'static char name[256];'
      #9'DWORD max_len = 256;'
      ''
      #9'GetUserName(name, &max_len);'
      #9'return name;'
      '}'
      ''
      'struct passwd *'
      'getpwuid(int user_id)'
      '{'
      #9'pwd.pw_name = getlogin();'
      #9'pwd.pw_dir = home_dir;'
      #9'pwd.pw_shell = login_shell;'
      #9'pwd.pw_uid = 0;'
      ''
      #9'return &pwd;'
      '}')
    ParentFont = False
    PlainText = True
    TabOrder = 0
    OnChange = memoChange
  end
end