Дефлорация Pascal Scripts - Русские субтитры

(2 Страниц)
1
2
→

Вы не можете создать новую тему
Вы не можете ответить в тему

Дефлорация Pascal Scripts команды, методы и контролы, доступные из скриптов

#1 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 16 Ноябрь 2007 - 14:02

#2 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 17 Ноябрь 2007 - 05:14

Intermission

Скрытый текст

#3 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 17 Ноябрь 2007 - 12:48

D!ig (17.11.2007, 3:14) писал:

Но если поставить 2 таких блока, 2-й спойлер не работает. Пытался уже, сначала вроде ОК, а после редактирования сообщения 2-й ломается.

D!ig (17.11.2007, 3:14) писал:

2. Так как возможно придется со временем инфу править, особенно это классов касается. Все в 1 пост сваливать не стану, а значит кто-то должен вставлять пост-разделитель

варианта два: либо просить кого-то постоянно писать, либо зарегать виртуального юзера

#4 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 20 Ноябрь 2007 - 00:35

Ключевые слова & операторы
Скрытый текст
- Логические и поразрядные операции
  not
  xor
  and
  or
  shl
  shr
- Условные операторы выбора
  if
  then
  else
  case // вроде, только простая форма "CASE OF 0:; 1:; и тд.", форма "CASE OF 0..100:; 101..200:; и тд." не поддерживается. Хотя см. комментарии к Set, In
- Операторы цикла
  for
  to
  downto
  
  while
  repeat
  until
- Program structure and syntax
  program
  unit // В SW вроде не работает
  uses // В SW вроде не работает
  Interface // В SW вроде не работает
  implementation // В SW вроде не работает
  export // В SW вроде не работает
  begin
  end
- Объявление переменных, типов, констант
  var
  type
  record
  const // вроде, только вида "const XXXX = yyyyy", типизированные не поддерживаются
  
  array
  set // только вида "TSET = set of TSETITEM", "TSET = set of [xxx, yyy]" не поддерживается
- Объявление классов
  class // В SW вроде не работает
  property // В SW вроде не работает
  constructor // В SW вроде не работает
  destructor // В SW вроде не работает
  private // В SW вроде не работает
  protected // В SW вроде не работает
  public // В SW вроде не работает
  published // В SW вроде не работает
  inherited // В SW вроде не работает
- Объявление процедур и функций
  procedure
  function
  external // В SW вроде не работает
  forward
  override
  virtual
- Flow control routines
  break
  continue
  exit
  
  goto
  label
- Прочее
  div
  mod
  
  chr
  ord
  
  with
  
  of // Case of, Array of
  do // For do, While do, With do и т.д.
  as // Для классов. В SW вроде не работает
  is // Для классов.
  in // Для uses, в SW вроде не работает. Для set'ов только для предопределенных type'ов. (type TSET = set of TSetItem; var s: TSET; if (xxx in s); - работает; if (xxx in TSET) - не работает; if (xxx in [xxx,yyy]) - не работает)
  
  try
  except
  finally

Базовые типы

Скрытый текст
Byte
Boolean
Char
WideChar
WideString
ShortInt
Word
SmallInt
LongInt
LongWord
Integer
Cardinal
string
Int64
Single
Double
Extended
PChar
Variant
TVariantArray
TDateTime

Функции и процедуры
Скрытый текст
- Работа с указателями и адресами
  function Assigned(I: Longint): boolean
- Преобразования типов
  function IntToStr (i: LongInt ): String ;
  function Int64ToStr(i: Int64): string;
  Function Round(e: Extended): LongInt;
  Function Trunc(e: Extended): LongInt;
  Function Int (e: Extended): Extended; // тоже что и Trunc, но возвращает Extended
  function FloatToStr (e: Extended): String ;
  function StrToInt (s: String ): LongInt;
  function StrToInt64(s: string): Int64;
  function StrToIntDef(s: string; default: LongInt): LongInt;
  function StrToFloat(const S: string): Extended;
- Работы со строками
  Function Length (s: String): LongInt;
  procedure SetLength(var s: String; l: LongInt);
  
  function Pos (subStr, s: String): LongInt;
  function Copy (s: String; iFrom, iCount: LongInt): String;
  procedure Delete(var s: String; iFrom, iCount: LongInt): String;
  procedure Insert(s: String; var s2: String; iPos: LongInt): String;
  
  function AnsiUpperCase(const S: string): string;
  function AnsiLowercase(const S: string): string;
  Function UpperCase(s: String): String ;
  Function LowerCase(s: String): String ;
  
  Function Trim(s: String): String ;
  
  Function Padl(s: String; I: longInt): String; // добавляет в начало строки пробелы до указанной общей длины строки и возвращает получившуюся строку
  Function Padr(s: String; I: longInt): String; // добавляет в начало строки нули до указанной общей длины строки и возвращает получившуюся строку
  Function Padz(s: String; I: longInt): String; // добавляет в конец строки пробелы до указанной общей длины строки и возвращает получившуюся строку
  Function Replicate (c: char; i: longInt): String; //тоже что и StrOfChar
  Function StringOfChar(c: char; i: longInt): String;
  
  Function StrGet(var S: String; I: Integer): Char; // - вроде тоже что и c:=s[i];
  procedure StrSet(c: Char; I: Integer; var s: String); // - вроде тоже что и s[i]=c;
- Математика
  Function Sin (e: Extended): Extended;
  Function Cos (e: Extended): Extended;
  Function Sqrt (e: Extended): Extended;
  Function Pi : Extended;
  Function Abs (e: Extended): Extended;
- Массивы
  function GetArrayLength(var v: Array): Integer;
  procedure SetArrayLength(var v: Array; i: Integer);
- Дата и время
  const SecsPerDay;
  const MSecPerDay;
  const DateDelta;
  
  function Now: TDateTime;
  function Date: TDateTime;
  function Time: TDateTime;
  function EncodeDate(Year, Month, Day: Word): TDateTime;
  function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;
  function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
  function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
  procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
  procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
  function DayOfWeek(Date: TDateTime): Integer;
  function DateTimeToUnix(const AValue: TDateTime): Int64;
  function UnixToDateTime(const AValue: Int64): TDateTime;
  function DateToStr(D: TDateTime): string
  function StrToDate(const S: string): TDateTime;
  function FormatDateTime(const Format: String; DateTime: TDateTime): String;
  function GetYear : Integer;
  function GetMonth : Integer;
  function GetDay : Integer;
  function GetHour : Integer;
  function GetMinute : Integer;
  function GetSecond : Integer;
  function GetDate : String;
  function GetTime : String;
  function GetDateTime: String;
- Функции для работы с типом Variant
  type TVarType = (vtNull, vtString, vtU64, vtS32, vtU32, vtS16, vtU16, vtS8, vtU8, vtSingle, vtDouble, vtExtended, vtResourcePointer, vtArray, vtRecord);
  function VarGetType(x: Variant): TVarType;
  function Null: Variant;
- Вызов и обработка исключений
  type TIFException = (erNoError, erCannotImport, erInvalidType, erInternalError,
  erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc,
  erOutOfGlobalVarsRange, erOutOfProcRange, erOutOfRange, erOutOfStackRange,
  erTypeMismatch, erUnexpectedEof, erVersionerror, erDivideByZero, erMathError,
  erCouldNotCallProc, erOuTofRecordRange, erOuTofMemory, erException,
  erNullPoInterException, erNullVariantError, erCusTomError);
  
  procedure RaiseLastException;
  procedure RaiseException(ex: TIFException; param: String);
  function ExceptionType: TIFException;
  function ExceptionParam: String;
  function ExceptionProc: Cardinal;
  function ExceptionPos: Cardinal;
  function ExceptionToString(er: TIFException; param: String): String;
- Управление SubtitleWorkshop
  function IsTranslatedLoaded: Boolean;
  procedure EnableWorkArea;
  function GetSubtitleCount: Integer;
  function IsSubtitleSelected(const Num: Integer): Boolean;
  function GetSubtitleText(const Num: Integer): String;
  procedure SetSubtitleText(const Num: Integer; const Text: String);
  function GetSubtitleTrans(const Num: Integer): String;
  procedure SetSubtitleTrans(const Num: Integer; const Text: String);
  function GetSubtitleInitialTime(const Num: Integer): Integer;
  procedure SetSubtitleInitialTime(const Num: Integer; const InitialTime: Integer);
  function GetSubtitleFinalTime(const Num: Integer): Integer;
  procedure SetSubtitleFinalTime(const Num: Integer; const FinalTime: Integer);
  procedure InsertSubtitle(const Pos: Integer; const InitialTime, FinalTime: Integer; const Text, Translation: String);
  procedure DeleteSubtitle(const Num: Integer);
  function MsgBox(const AMsg, BCap1, BCap2, BCap3: String; const IconInd: Integer): Integer;

#5 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 20 Ноябрь 2007 - 01:48

D!ig (19.11.2007, 22:35) писал:

Призываю сепаратор!

Yarrr!

#6 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 20 Ноябрь 2007 - 02:33

Компоненты

Типы
- Типы
  
  Скрытый текст
  
  type HWND = Longint;
  type THANDLE = Longint;
  type TPoint = record x,y: Longint; end;
  type TRect = record Left, Top, Right, Bottom: Longint; end;
  type TCursor = -32768..32767;
  type TColor = integer;
  
  type THelpContext = LongInt;
  type TBevelWidth = LongInt;
  type TBorderWidth = LongInt;
  
  type HMenu = Cardinal;
  type HAccel = Cardinal;
  type TShortcut = Word;
- Используемые базовыми компонентами
  
  Скрытый текст
  
  type TComponentStateE = (csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification, csInline, csDesignInstance);
  type TComponentState = set of TComponentStateE;
- Используемые невизуальными компонентами
  
  Скрытый текст
  
  type TDuplicates = (dupIgnore, dupAccept, dupError);
  type TSeekOrigin = (soFromBeginning, soFromCurrent, soFromEnd);
- Используемые графическими компонентами
  
  Скрытый текст
  
  type TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  type TFontStyles = set of TFontStyle;
  type TFontPitch = (fpDefault, fpVariable, fpFixed);
  type TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame);
  type TPenMode = (pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor);
  type TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross);
- Используемых контролами
  
  Скрытый текст
  
  type TEShiftState = (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
  type TShiftState = set of TEShiftState;
  type TMouseButton = (mbLeft, mbRight, mbMiddle);
  type TDragMode = (dmManual, dmAutomatic);
  type TDragState = (dsDragEnter, dsDragLeave, dsDragMove);
  type TDragKind = (dkDrag, dkDock);
  type TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
  type TAnchorKind = (akTop, akLeft, akRight, akBottom);
  type TAnchors = set of TAnchorKind;
  type TModalResult = Integer; //константа mr******
  type TAlignment = (taLeftJustify, taRightJustify, taCenter);
  type TOperation = (opInsert, opRemove);
  
  type TScrollBarKind = (sbHorizontal, sbVertical);
  type TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);
  type TBorderStyle = (bsNone..bsSingle); // TBorderStyle : ??????
  type TWindowState = (wsNormal, wsMinimized, wsMaximized)
  type TFormStyle = (fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop);
  type TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);
  type TPrintScale = (poNone, poProportional, poPrintToFit);
  type TCloseAction = (caNone, caHide, caFree, caMinimize);
  type TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);
  type TBorderIcons = set of TBorderIcon;
  
  type TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
  type TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);
  type TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, scEndScroll);
  type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
  type TComboBoxStyle = (csDropDown, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable);
  type TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable);
  type TTextLayout = (tlTop, tlCenter, tlBottom );
  Type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);
  type TBevelStyle = (bsLowered, bsRaised);
  type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine, bsSpacer):
  type TPanelBevel = (bvNone, bvLowered, bvRaised,bvSpace) :
  type TEOwnerDrawState = (odSelected, odGrayed, odDisabled, odChecked, odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect, odReserved1, odReserved2, odComboBoxEdit)
  type TOwnerDrawState = set of TEOwnerDrawState;
- Используемые меню
  
  Скрытый текст
  
  type EMenuError = Exception;
  type TMenuBreak = (mbNone, mbBreak, mbBarBreak);
  type TMenuItemAutoFlag = (maAutomatic, maManual, maParent);
  type TMenuAutoFlag = TMenuItemAutoFlag;
  
  type TMenuActionLink = TActionLink;
  type TFindItemKind = (fkCommand, fkHandle, fkShortCut);
  type TPopupAlignment = (paLeft, paRight, paCenter);
  type TTrackButton = (tbRightButton, tbLeftButton);
  type TMenuAnimations = (maLeftToRight, maRightToLeft, maTopToBottom, maBottomToTop, maNone);
  type TMenuAnimation = set of TMenuAnimations;

События

Скрытый текст

//Вся инфа выдиралась из SubtitleWorkShop.exe с помощью Win32Dasm, описания некоторых функции и событий неполные, есть только начало. Поэтому полное описание брал из Delphi7, но похоже что SW написан на более ранней версии Delphi поэтому описания функций немного отличаются. Поэтому в комментарии для спорных функции приведено то, что выдал Win32dasm.
type TNotifyEvent = procedure(Sender: TObject) of object;
type TMouseEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object; // procedure(Sender: TObject; Shift:
type TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object; // procedure (Sender: TObject; var
type TKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of object;
type TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object;
type TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
type TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object; //TDragDropEvent = ?????????, описания нет, поэтому может не поддерживаться.
type TStartDragEvent = procedure(Sender: TObject; var DragObject: TDragObject) of object; //TDragDropEvent = ?????????, описания нет, поэтому может не поддерживаться.
type TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object; //TDragDropEvent = ?????????, описания нет, поэтому может не поддерживаться.
type THelpEvent = function (HelpType: THelpType; HelpContext: Integer; HelpKeyword: string; HelpFile: string; var Handled: Boolean): Boolean of object;
type TGetStrProc = procedure(const S: string);

type TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
type TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;
type TIdleEvent = procedure(Sender: TObject; var Done: Boolean) of object;
type TDrawItemEvent = procedure(Sender: TObject; Index: Integer Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
type TMeasureItemEvent= procedure(Control: TWidgetControl; Index: Integer; var Height: Integer);
type TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
type TSectionEvent = procedure(Sender: TObject; ASection, AWidth: Integer);

type TMenuDrawItemEvent = procedure (Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
type TAdvancedMenuDrawItemEvent = procedure (Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
type TMenuMeasureItemEvent = procedure (Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
type TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object;

Константы
- Цвет
  
  Скрытый текст
  
  const clScrollBar;
  const clBackground;
  const clActiveCaption;
  const clInactiveCaption;
  const clMenu;
  const clWindow;
  const clWindowFrame;
  const clMenuText;
  const clWindowText;
  const clCaptionText;
  const clActiveBorder;
  const clInactiveBorder;
  const clAppWorkSpace;
  const clHighlight;
  const clHighlightText;
  const clBtnFace;
  const clBtnShadow;
  const clGrayText;
  const clBtnText;
  const clInactiveCaptionText;
  const clBtnHighlight;
  const cl3DDkShadow;
  const cl3DLight;
  const clInfoText;
  const clInfoBk;
  const clBlack;
  const clMaroon;
  const clGreen;
  const clOlive;
  const clNavy;
  const clPurple;
  const clTeal;
  const clGray;
  const clSilver;
  const clRed;
  const clLime;
  const clYellow;
  const clBlue;
  const clFuchsia;
  const clAqua;
  const clLtGray;
  const clDkGray;
  const clWhite;
  const clNone;
  const clDefault;
- Курсоры
  
  Скрытый текст
  
  const crDefault = TCursor(0);
  const crNone = TCursor(-1);
  const crArrow = TCursor(-2);
  const crCross = TCursor(-3);
  const crIBeam = TCursor(-4);
  const crSize = TCursor(-22);
  const crSizeNESW = TCursor(-6);
  const crSizeNS = TCursor(-7);
  const crSizeNWSE = TCursor(-8);
  const crSizeWE = TCursor(-9);
  const crUpArrow = TCursor(-10);
  const crHourGlass = TCursor(-11);
  const crDrag = TCursor(-12);
  const crNoDrop = TCursor(-13);
  const crHSplit = TCursor(-14);
  const crVSplit = TCursor(-15);
  const crMultiDrag = TCursor(-16);
  const crSQLWait = TCursor(-17);
  const crNo = TCursor(-18);
  const crAppStart = TCursor(-19);
  const crHelp = TCursor(-20);
  const crHandPoint = TCursor(-21);
  const crSizeAll = TCursor(-22);
- ModalResult
  
  Скрытый текст
  
  const mrNone = 0;
  const mrOk = 1;
  const mrCancel = 2;
  const mrAbort = 3;
  const mrRetry = 4;
  const mrIgnore = 5;
  const mrYes = 6;
  const mrNo = 7;
  const mrAll = 8;
  const mrNoToAll = 9;
  const mrYesToAll = 10;
- FileMode
  
  Скрытый текст
  
  const fmCreate : LongInt = $FFFF;
  const fmOpenRead : LongInt = $0000;
  const fmOpenWrite : LongInt = $0001;
  const fmOpenReadWrite : LongInt = $0002;
  const fmShareCompat : LongInt = $0000;
  const fmShareExclusive : LongInt = $0010;
  const fmShareDenyWrite : LongInt = $0020;
  const fmShareDenyRead : LongInt = $0030;
- TParser special tokens
  
  Скрытый текст
  
  const toEOF = Char(0);
  const toSymbol = Char(1);
  const toString = Char(2);
  const toInteger = Char(3);
  const toFloat = Char(4);
  [color="#33CC00"]//const toWString = Char(5);

---
Явись, Великий сепаратор.

#7 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 20 Ноябрь 2007 - 12:25

D!ig (20.11.2007, 0:33) писал:

Явись, Великий сепаратор.

/пробегает на бэкграунде/

#8 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 20 Ноябрь 2007 - 20:39

КОМПОНЕНТЫ

Базовые классы
- TObject
  
  Скрытый текст
  class TObject;
  constructor Create;
  procedure Free;
- TPersistent
  
  Скрытый текст
  class TPersistent; // Tobject -> TPersistent
  procedure Assign(Source: TPersistent);
- TComponent
  
  Скрытый текст
  class TComponent; // Tobject -> TPersistent -> TComponent
  Owner : TComponent;
  Components[Index: Integer]: TComponent;
  ComponentCount : Integer;
  ComponentIndex : Byte;
  ComponentState : LongInt; //TComponentState?
  DesignInfo: Longint;
  Name : string;
  Tag : LongInt;
  constructor Create(AOwner: TComponent);
  procedure Destroying;
  function FindComponent(const AName: string): TComponent;
  procedure FreeNotification(AComponent: TComponent);
  procedure InsertComponent(AComponent: TComponent);
  procedure RemoveComponent(AComponent: TComponent);
  procedure DestroyComponents;
Невизуальные компоненты
- TStrings
  
  Скрытый текст
  class TStrings; // TObject - > TPersistent -> TStrings
  Strings[Index: Integer]: string; default;
  Names [Index: Integer]: string;
  Values [Index: Integer]: string;
  Objects[Index: Integer]: TObject;
  Count : Integer;
  
  Text : String;
  CommaText : String;
  
  function Add(S: string): Integer;
  procedure Append(S: string);
  procedure Insert(Index: Integer; const S: string); virtual; abstract;
  procedure Delete(Index: Integer);
  procedure Move(CurIndex, NewIndex: Integer); virtual;
  procedure Exchange(Index1, Index2: Integer); virtual;
  procedure Clear;
  function IndexOf(const S: string):
  function IndexOfName(const Name: string): Integer; virtual;
  
  function AddObject(const S: string; AObject: TObject): Integer; virtual;
  procedure InsertObject(Index: Integer; const S: string; AObject: TObject) virtual;
  function IndexOfObject(AObject: TObject): Integer;
  
  function GetText : PChar;
  procedure SetText(Text: PChar);
  
  procedure AddStrings(Strings: TStrings); virtual;
  function Equals(Strings: TStrings): Boolean;
  
  procedure LoadFromFile (FileName: string); virtual;
  procedure SaveToFile (FileName: string); virtual;
  procedure LoadFromStream(Stream: TStream); virtual;
  procedure SaveToStream (Stream: TStream); virtual;
  
  procedure BeginUpdate;
  procedure EndUpdate;
- TStringList
  
  Скрытый текст
  class TStringList; // TObject - > TPersistent -> TStrings --> TStringList;
  DUPLICATES : TDuplicates;
  Sorted : boolean;
  onchange : TNotifyEvent;
  OnChanging : TNotifyEvent;
  
  function Find(S: String; var index: Integer): boolean;
  procedure Sort;
- TBits
  
  Скрытый текст
  class TBits; // Tobject -> TBits
  Bits [Index: Integer]: Boolean
  Size : Integer;
  
  function OpenBit: Integer; // возвращает нопер первого открытого бита
- TStream
  
  Скрытый текст
  class TStream; // Tobject -> TStream;
  Position : LongInt;
  Size : LongInt;
  
  function Seek(Offset: LongInt; Origin: WORD):LongInt;
  function Read (Buffer: String; Count: LongInt):LongInt;
  function Write(Buffer: String; Count: LongInt):LongInt;
  procedure ReadBuffer(Buffer: String; Count: LongInt);
  procedure WriteBuffer(Buffer: String; Count: LongInt);
  
  function CopyFrom(Source: TStream; Count: LongInt): LongInt;
- THandleStream
  
  Скрытый текст
  class THandleStream; // Tobject -> TStream -> THandleStream
  Handle : integer;
  constructor Create(AHandle:Integer);
- TFileStream
  
  Скрытый текст
  class TFileStream; //Tobject -> TStream -> THandleStream -> TFileStream
  constructor Create(FileName: String; Mode: Word);
- TCustomMemoryStream
  
  Скрытый текст
  class TCustomMemoryStream; //Tobject -> TStream -> TCustomMemoryStream
  procedure SaveToFile(FileName: String);
  procedure SaveToStream(Stream: TStream);
- TMemoryStream
  
  Скрытый текст
  class TMemoryStream; // Tobject -> TStream -> TCustomMemoryStream -> TMemoryStream
  procedure SetSize(NewSize : LongInt);
  procedure Clear;
  procedure LoadFromFile(FileName: string);
  procedure LoadFromStream(Stream: Tstream);
- TResourceStream
  
  Скрытый текст
  class TResourceStream; // Tobject -> TStream -> TCustomMemoryStream -> TResourceStream
  constructor Create(Instance: THandle; ResName: string; ResType: PChar);
  constructor CreateFromID(Instance: THandle; ResID: Integer; ResType: PChar);
- TParser
  
  Скрытый текст
  class TParser; // TObject -> TParser
  SourceLine: Integer;
  TOKEN : Char;
  
  constructor Create(Stream: TStream);
  
  function SourcePos: LongInt;
  procedure CheckToken(T: Char);
  procedure CheckTokenSymbol(S: String);
  function NextToken: Char;
  function TokenComponentIdent: String;
  function TokenSymbolis(S: String): Boolean;
  function TokenFloat : Extended;
  function TokenInt : LongInt;
  function TokenString: String;
  
  procedure Error(Ident: Integer);
  procedure ErrorStr(Message: String);
  procedure HexToBinary(Stream: TStream);
- TCollection
  
  Скрытый текст
  class TCollection; // TObject -> TPersistent -> TCollection
  Items[Index: Integer]: TCollectionItem;
  Count : Integer;
  ItemClass: TCollectionItemClass;
  
  function Owner : TPersistent;
  function Add : TCollectionItem;
  function Insert(Index: Integer): TCollectionItem;
  procedure Delete( Index : Integer);
  procedure Clear;
  
  function FindItemID(ID: Integer): TCollectionItem;
  
  procedure BeginUpdate;
  procedure EndupDate;
- TCollectionItemClass
  
  Скрытый текст
  class TCollectionItemClass = class of TCollectionItem;
- TCollectionItem
  
  Скрытый текст
  class TCollectionItem; // TObject -> TPersistent -> TCollectionItem
  DisplayName : String;
  Index : Integer;
  Collection : TCollection;
  
  constructor Create(Collection: TCollection); virtual;
- TOwnedCollection
  
  Скрытый текст
  class TOwnedCollection; // TObject -> TPersistent -> TCollection -> TOwnedCollection
- TTimer
  
  Скрытый текст
  class TTimer; // Tobject -> TPersistent -> TComponent -> TTimer
  Enabled := Boolean;
  Interval:= Cardinal;
  OnTimer := TNotifyEvent;

"Графические" классы

TGraphicsObject

Скрытый текст

class TGraphicsObject; // TObject -> TPersistent -> TGraphicsObject
onchange : TNotifyEvent;
TFont

Скрытый текст

class TFont; // TObject -> TPersistent -> TGraphicsObject -> TFont
constructor Create;
Handle : Integer;
Name : String;
Size : Integer;
Height : Integer;
Color : Integer;
Style : TFontStyles;
Pitch : Byte;
PixelsPerInch : Integer;
TCanvas

Скрытый текст

class TCanvas; // TObject -> TPersistent -> TCanvas
Handle : Integer;
Font : TFont;
Brush : TBrush;
Pen : TPen;
CopyMode : Byte;
Pixels[X, Y: Integer]: TColor
procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);
procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);
procedure Ellipse(X1, Y1, X2, Y2: Integer);
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
procedure LineTo(X, Y: Integer);
procedure MoveTo(X, Y: Integer);
procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);
procedure Rectangle(X1, Y1, X2, Y2: Integer);
procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);
function TextHeight(Text: String): Integer;
function TextWidth(Text: String): Integer;
procedure TextOut(X, Y: Integer; Text: String);
procedure Refresh;
TPen

Скрытый текст

class TPen; // TObject -> TPersistent -> TGraphicsObject -> TPen;
Color : TColor;
Width : Integer;
Mode : TPenMode;
Style : TPenStyle;
constructor Create;
TBrush

Скрытый текст

class TBrush; // TObject -> TPersistent -> TGraphicsObject -> TBrush;
Color : TColor;
Style : TBrushStyle;
constructor Create;

-----

BedaZzle (20.11.2007, 11:25) писал:

/пробегает на бэкграунде/

Отвлекся, э... :oops:

по делу, по важному. Требую сцену повторить.

#9 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 20 Ноябрь 2007 - 21:32

D!ig (20.11.2007, 18:39) писал:

Отвлекся, э... :oops:

по делу, по важному. Требую сцену повторить.

/появляется на секунду, показывает язык, исчезает/

#10 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 21 Ноябрь 2007 - 01:21

Контролы

Application & Form

TApplication(хоть это и не контрол)

Скрытый текст

class TApplication; // TObject -> TPersistent -> TComponent -> TApplication
Title : String
Handle : LongInt;
ExeName : String;
Icon : TIcon;

Hint : String;
ShowHint : Boolean;

Active : Boolean;
Terminated : Boolean;

MainForm : TForm;
ShowMainForm : Boolean;

DialogHandle : LongInt;
UpdateFormatSettings: Boolean;

HelpFile : String;
HintColor : TColor;
HintPause : Integer;
HintShortPause: Integer;
HintHidePause : Integer;

onactivate : TNotifyEvent
ondeactivate : TNotifyEvent
OnMinimize : TNotifyEvent
OnRestore : TNotifyEvent
OnHint : TNotifyEvent
OnIdle : TIdleEvent
onhelp : THelpEvent;

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
procedure Minimize;
procedure Restore;
procedure Terminate;
procedure BringToFront;
procedure ProcessMessages;

procedure ControlDestroyed(Control: TControl);

procedure HideHint;
procedure CancelHint;

procedure HandleMessage;
procedure HandleException(Sender: TObject);

procedure NormalizeAllTopMosts;
procedure NormalizeTopMosts;

function HelpCommand(Command: Integer; Data: Longint): Boolean;
function HelpContext(Context: THelpContext): Boolean;
function HelpJump(const JumpID: string): Boolean;

procedure Initialize;
procedure Run;
procedure CreateHandle;
TForm

Скрытый текст

class TForm; // TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TScrollingwinControl -> TForm
Active : Boolean;
ActiveControl : TWinControl;
BorderIcons : TBorderIcons;
BorderStyle : TFormBorderStyle;
FormStyle : TFormStyle;
WindowState : TWindowState;
Icon : TIcon;
Caption : String;
Color : TColor;
Font : TFont;
Canvas : TCanvas;
Ctl3D : Boolean;
KeyPreview : Boolean;
AutoScroll : Boolean;
Position : TPosition;
ModalResult : LongInt;

DropTarget : Boolean;

PixelsPerInch : Integer;
Scaled : Boolean;
PrintScale : TPrintScale;

WindowMenu : TMenuItem;
PopupMenu : TPopupMenu; // вроде не работает в SW
Menu : TMainMenu;
ObjectMenuItem: TMenuItem;

ActiveMdiChild: TForm;
MdiChildCount : Integer;
MDIChildren [I: Integer]: TForm;
TileMode : TTileMode;

ClientHandle : LongInt;
ActiveOleControl: TWinControl;
OleFormObject : TOleFormObject;

onclick : TNotifyEvent;
ondblclick : TNotifyEvent;
OnCreate : TNotifyEvent;
OnDestroy : TNotifyEvent;
OnShow : TNotifyEvent;
OnHide : TNotifyEvent;
OnClose : TCloseEvent;
OnCloseQuery : TCloseQueryEvent;
onresize : TNotifyEvent;
onactivate : TNotifyEvent;
ondeactivate : TNotifyEvent;
onmousedown : TMouseEvent;
onmouseup : TMouseEvent;
onmousemove : TMouseMoveEvent;
onkeydown : TKeyEvent;
onkeypress : TKeyPressEvent;
onkeyup : TKeyEvent;
ondragdrop : TDragDropEvent;
ondragOver : TDragOverEvent;
OnPaint : TNotifyEvent;

constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); virtual;

procedure Show;
function ShowModal: Integer; virtual;
procedure Hide;
procedure Close;

procedure Release;
procedure ArrangeIcons;
procedure Print;
procedure SendCancelMode(Sender: TControl);

procedure Cascade;
function CloseQuery: Boolean;
procedure DeFocusControl(Control: TWinControl; Removing: Boolean);
procedure FocusControl(Control: TWinControl);
procedure Next;
procedure Previous;
function SetFocusedControl(Control: TWinControl): Boolean; virtual;
procedure Tile;

Базовые контролы

TControl

Скрытый текст

class TControl; // TObject -> TPersistent -> TComponent -> TControl
Left : Integer;
Top : Integer;
Width : Integer;
Height : Integer;
ClientWidth : LongInt;
ClientHeight: LongInt;
Align : TAlign ;
Visible : Boolean;
Enabled : Boolean;
ShowHint : Boolean;
Hint : String ;
Cursor : TCursor;

constructor Create(AOwner: TComponent);
procedure SetBounds(x,y,w,h: Integer);virtual;
function ClientToScreen(Point: TPoint):TPoint;
function ScreenToClient(Point: TPoint):TPOINT;
function Perform(Msg: Cardinal; WParam, LParam: LongInt): LongInt;
procedure Show;
procedure Hide;
procedure BringToFront;
procedure SendToBack;
function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
function GetTextLen: Integer;
procedure SetTextBuf(Buffer: PChar);
procedure Invalidate;virtual;
procedure Refresh;
procedure Repaint;virtual;
procedure Update;virtual;
function HasParent: Boolean;
function Dragging: Boolean;
procedure BeginDrag(Immediate: Boolean);
procedure EndDrag(Drop: Boolean);
[/color]
TGraphicControl

Скрытый текст
class TGraphicControl; // TObject -> TPersistent -> TComponent -> TControl -> TGraphicControl
TWinControl

Скрытый текст

class TWinControl; // TObject -> TPersistent -> TComponent -> TControl -> TWinControl
Parent : TWinControl;
Handle : LongInt;
TabOrder : Integer;
TabStop : Boolean;
Showing : Boolean;
Controls[Index: Integer] : TControl;
ControlCount: Integer;
Brush : TBrush;
HelpContext : LongInt;

function Focused : Boolean;
function CanFocus: Boolean;
procedure SetFocus; virtual;

function HandleAllocated: Boolean;
procedure HandleNeeded;

procedure EnableAlign;
procedure DisableAlign;
procedure Realign;

function ContainsControl(Control: TControl): Boolean;
procedure RemoveControl(AControl: TControl);
procedure InserTControl(AControl: TControl);

procedure ScaleBy(M, D: Integer);
procedure ScrollBy(DeltaX, DeltaY: Integer);

procedure UpdateControlState;
procedure PaintTo(DC:LongInt; X,Y: Integer);
TCustomControl

Скрытый текст
class TCustomControl; // TObject -> TPersistent -> TComponent -> TWinControl -> TCustomControl;
TControlScrollbar

Скрытый текст

class TControlScrollbar; // TObject -> TPersistent -> TControlScrollbar;
ScrollPos : Integer;
Increment : TScrollbarInc
Range : Integer;
Position : Integer;
Kind : TSCrollbarKind;
Margin : Word;
Tracking : Boolean;
Visible : Boolean;
TScrollingWinControl

Скрытый текст

class TScrollingWinControl ; // TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TScrollingWinControl
HorzScrollbar : TControlScrollbar;
VertScrollbar : TControlScrollbar;
procedure ScrollinView(AControl:TControl)
TScrollBox

Скрытый текст

class TScrollBox; // TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TScrollingWinControl -> TScrollBox;
Color : TColor;
Font : TFont;
Ctl3D : Boolean;
BorderStyle : TBorderStyle;
AutoScroll : Boolean;
DragCursor : TCursor;
DragMode : TDragMode;
PopupMenu : TPopupMenu; // вроде не работает в SW
ParentColor : Boolean;
ParentFont : Boolean;
ParentCtl3D : Boolean;
ParentShowHint: Boolean;

onclick : TNotifyEvent;
ondblclick : TNotifyEvent;
onresize : TNotifyEvent;
onmouseup : TMouseEvent;
onmousedown : TMouseEvent;
onmousemove : TMouseMoveEvent;
OnEnter : TNotifyEvent;
OnExit : TNotifyEvent;
ondragdrop : TDragDropEvent;
ondragOver : TDragOverEvent;
onendDrag : TEndDragEvent;

-----

Цитата

/появляется на секунду, показывает язык, исчезает/

А за жувачку?

#11 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 21 Ноябрь 2007 - 03:25

D!ig (20.11.2007, 23:21) писал:

А за жувачку?

За неё признаюсь, что воркшоп писался на седьмом дельфи.

#12 D!ig

Группа: Members
Сообщений: 140
Регистрация: 11 Март 06
Страна:

Отправлено 22 Ноябрь 2007 - 00:21

Контролы

Кнопки, переключатели, флажки

TButtonControl

Скрытый текст

class TButtonControl; // TObject -> TPersistent -> TComponent -> TWinControl -> class TButtonControl;
TButton

Скрытый текст

class TButton; // TObject -> TPersistent -> TComponent -> TWinControl -> TButtonControl -> TButton;
Default : Boolean;
Cancel : Boolean;
ModalResult : LongInt;

Caption : String;
Font : TFont;

ParentFont : Boolean;
ParentShowHint: Boolean;

DragCursor : LongInt;
DragMode : TDragMode;

PopupMenu : TPopupMenu;

onclick : TNotifyEvent;
onmousedown : TMouseEvent;
onmouseup : TMouseEvent;
onmousemove : TMouseMoveEvent;
OnEnter : TNotifyEvent;
OnExit : TNotifyEvent;

onkeydown : TKeyEvent;
onkeyup : TKeyEvent;
onkeypress : TKeyPressEvent;

onstartDrag : TStartDragEvent;
ondragdrop : TDragDropEvent;
ondragOver : TDragOverEvent;
onendDrag : TEndDragEvent;
TCustomCheckBox

Скрытый текст

class TCustomCheckBox; // TObject -> TPersistent -> TComponent -> TWinControl -> TButtonControl -> TCustomCheckBox;
TCheckBox

Скрытый текст

class TCheckBox; // TObject -> TPersistent -> TComponent -> TWinControl -> TButtonControl -> TCustomCheckBox -> TCheckBox;
Caption : String;
Checked : Boolean;
AllowGrayed : Boolean;
State : TCheckBoxState;

Alignment : TAlignment;

Color : LongInt;
Ctl3D : Boolean;
Font : TFont;

ParentColor : Boolean;
ParentCtl3D : Boolean;
ParentFont : Boolean;
ParentShowHint: Boolean;

DragCursor : LongInt;
DragMode : TDragMode;

PopupMenu : TPopupMenu;

onclick : TNotifyEvent;
onmousedown : TMouseEvent;
onmouseup : TMouseEvent;
onmousemove : TMouseMoveEvent;
OnEnter : TNotifyEvent;
OnExit : TNotifyEvent;

onkeydown : TKeyEvent;
onkeyup : TKeyEvent;
onkeypress : TKeyPressEvent;

onstartDrag : TStartDragEvent;
ondragdrop : TDragDropEvent;
ondragOver : TDragOverEvent;
onendDrag : TEndDragEvent;
TRadioButton

Скрытый текст

class TRadioButton // TObject -> TPersistent -> TComponent -> TWinControl -> TButtonControl -> TRadioButton
Caption : String;
Checked : Boolean;
Alignment : Talignment;
Color : LongInt;
Ctl3D : Boolean;
Font : TFont;

ParentColor: Boolean;
ParentCtl3D: Boolean;
ParentFont : Boolean;
ParentShowHint: Boolean;

DragCursor : LongInt;
DragMode : TDragMode;

PopupMenu : TPopupMenu;

onclick : TNotifyEvent;
ondblclick : TNotifyEvent;
onmousedown : TMouseEvent;
onmouseup : TMouseEvent;
onmousemove : TMouseMoveEvent;
OnEnter : TNotifyEvent;
ONExit : TNotifyEvent;

onkeydown : TKeyEvent;
onkeypress : TKeyPressEvent;
onkeyup : TKeyEvent;

onstartDrag : TStartDragEvent;
ondragdrop : TDragDropEvent;
ondragOver : TDragOverEvent;
onendDrag : TEndDragEvent;

-----

Скрытый текст

Эта..., сепаратор, приди и вставь.

#13 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 22 Ноябрь 2007 - 01:09

D!ig (21.11.2007, 22:21) писал:

Эта..., сепаратор, приди и вставь.

Русский мужик приходит к хозяину-эстонцу в понедельник.
- Эта... слышь, Айвар,... не могу работать, отпусти домой, руки тттрясутся после вчерашнего.
Поглядел тот на него и говорит:
- Неет, Иван, вооосьми в сарае сиито, буудешь песок просеееивать.

#14 НуПогоди

Группа: Избранные
Сообщений: 832
Регистрация: 31 Июль 06
Страна:
Прислал(a) субтитров: 45
Своих переводов: 19

Отправлено 20 Май 2009 - 14:14

@Bodkin: Полез в эту тему и заметил, что на новом форуме не раскрываются тэги оффтопа. Ты не мог бы как-нибудь на досуге поправить?

#15 Bodkin

Группа: Admin
Сообщений: 1 141
Регистрация: 28 Сентябрь 03
Пол:Мужчина
Страна:
Прислал(a) субтитров: 116

Отправлено 20 Май 2009 - 16:02

НуПогоди (20.5.2009, 14:14) писал:

Ага, гляну.

Update:
Сделал, вроде работает.

#16 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 20 Май 2009 - 23:34

Bodkin (20.5.2009, 15:02) писал:

Ага, гляну.

Update:
Сделал, вроде работает.

Под лисой не работает, под оперой - ок.

#17 Bodkin

Группа: Admin
Сообщений: 1 141
Регистрация: 28 Сентябрь 03
Пол:Мужчина
Страна:
Прислал(a) субтитров: 116

Отправлено 21 Май 2009 - 00:23

BedaZzle (20.5.2009, 23:34) писал:

Под лисой не работает, под оперой - ок.

Обнови кэш, там один .js-файл обновился. FF 3.0.10 - работает.

#18 BedaZzle

Группа: Admin
Сообщений: 2 991
Регистрация: 22 Октябрь 02
Страна:
Прислал(a) субтитров: 96
Своих переводов: 16

Отправлено 21 Май 2009 - 00:46

Bodkin (20.5.2009, 23:23) писал:

Обнови кэш, там один .js-файл обновился. FF 3.0.10 - работает.

Mea culpa, mea maxima culpa.

Работает.

#19 ЯсенСвет

Группа: Members
Сообщений: 43
Регистрация: 08 Июль 06

Отправлено 07 Октябрь 2009 - 22:29

А название темы зажигает не па-детцки. Чуть глазик не выпал при беглом прочтении. :rolleyes:

"Лишение девственности" паскаль скрипта. :lol:

#20 НуПогоди

Группа: Избранные
Сообщений: 832
Регистрация: 31 Июль 06
Страна:
Прислал(a) субтитров: 45
Своих переводов: 19

Отправлено 07 Февраль 2010 - 17:55

Понадобились кое-какие детали для скрипта и выяснилось, в который уже раз, что на новом IPB-движке спойлер-таг не работает и до их содержимого никак не добраться.

Ну да ладно... Если я не ошибаюсь, там всё равно нет ответа на мой вопрос: Как из паскаль-скрипта добраться до содержимого Virtual TreeView? Иначе говоря, как программно задать функцию скроллинга VTV к титру №ХХ (аналогично команде Ctrl-G, только без интерактивного окошка для введения номера титра)? Может, кто подскажет?

(2 Страниц)
1
2
→

Вы не можете создать новую тему
Вы не можете ответить в тему

Русские субтитры: Дефлорация Pascal Scripts - Русские субтитры

Дефлорация Pascal Scripts команды, методы и контролы, доступные из скриптов

#1 BedaZzle

#2 D!ig

#3 BedaZzle

#4 D!ig

#5 BedaZzle

#6 D!ig

#7 BedaZzle

#8 D!ig

#9 BedaZzle

#10 D!ig

#11 BedaZzle

#12 D!ig

#13 BedaZzle

#14 НуПогоди

#15 Bodkin

#16 BedaZzle

#17 Bodkin

#18 BedaZzle

#19 ЯсенСвет

#20 НуПогоди

Внешний вид

Статистика работы системы