[BedaZzle]

=)

[D!ig]

Intermission

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

1. Хотелось бы оформить Spoiler'oм.
<color>Заголовок</color>
<spoiler>
<code>
....
</code>
</spoiler>
Но если поставить 2 таких блока, 2-й спойлер не работает. Пытался уже, сначала вроде ОК, а после редактирования сообщения 2-й ломается.

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

[BedaZzle]

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

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

:/

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

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

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

[D!ig]

• Ключевые слова & операторы
  
  Скрытый текст

  • Логические и поразрядные операции
    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;
    

[BedaZzle]

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

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

Yarrr!

[D!ig]

• Компоненты

• Типы
  • Типы
    
    Скрытый текст

    
    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);
    

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

[BedaZzle]

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

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

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

[D!ig]

• КОМПОНЕНТЫ

• Базовые классы
  • 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]

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

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

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

[D!ig]

• Контролы

• 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;
  

-----

Цитата

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

А за жувачку?

[BedaZzle]

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

А за жувачку?

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

[D!ig]

• Контролы

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

• 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;
  

-----

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

BedaZzle (21.11.2007, 2:25) писал:

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

Хм... а почему тогда прототипы методов и событий отличаются?
---
Я вот тут патчик для SW решил нарисовать, хакер *ля . Чтобы он при старте мою длл'ку подгружал. А из нее я загружу скрипт, а из скрипта можно будет грузить другие скрипты.
С ассемблером я не дружу, знаю, только, самые главные хакерские команды: nop, je, jne и jmp ну еще есть push и pop, но нафига они не ясно. Но каким то чудом мне удалось найти место куда вставить свой код, и я его даже вставил, и SW после этого не сломался, но вот dll'ка похоже не работает (Я ей в секции Initialize\Finilize по MessageBox'у воткнул, а они не появляются. ).

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

[BedaZzle]

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

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

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

[НуПогоди]

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

[Bodkin]

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

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

Ага, гляну.

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

[BedaZzle]

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

Ага, гляну.

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

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

[Bodkin]

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

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

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

[BedaZzle]

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

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

Mea culpa, mea maxima culpa.


Работает.

[ЯсенСвет]

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

[НуПогоди]

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

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