[00000026]
" Class_DColorPropPage: TGUID = '{5CFF5D59-5946-11D0-BDEF-00A024D1875C}';
"
[00000121]
" IPerPropertyBrowsing,
"
[00000271]
" { IPerPropertyBrowsing }
"
[00002743]
"{ TActiveXControl.IPerPropertyBrowsing }
"
[00000085]
" TGetStrProc = procedure(const S: string) of object;
"
[00000648]
" TReaderProc = procedure(Reader: TReader) of object;
"
[00000649]
" TWriterProc = procedure(Writer: TWriter) of object;
"
[00000666]
" ReadData: TReaderProc; WriteData: TWriterProc;
"
[00000729]
" ReadData: TReaderProc; WriteData: TWriterProc;
"
[00000796]
" ReadData: TReaderProc; WriteData: TWriterProc;
"
[00004053]
" ReadData: TReaderProc; WriteData: TWriterProc; HasData: Boolean);
"
[00004668]
" SetStrProp(Instance, PropInfo, ReadString);
"
[00005066]
" ReadData: TReaderProc; WriteData: TWriterProc; HasData: Boolean);
"
[00005498]
" procedure WriteStrProp;
"
[00005505]
" Result := Value = GetStrProp(Ancestor, PropInfo) else
"
[00005510]
" Value := GetStrProp(Instance, PropInfo);
"
[00005668]
" tkString, tkLString, tkWString: WriteStrProp;
"
[00001939]
" FDefHeaderProc: Pointer;
"
[00011024]
" SetWindowLong(FHeaderHandle, GWL_WNDPROC, LongInt(FDefHeaderProc));
"
[00011202]
" Result := CallWindowProc(FDefHeaderProc, FHeaderHandle, Msg, WParam, LParam);
"
[00011204]
" FDefHeaderProc := nil;
"
[00011208]
" Result := CallWindowProc(FDefHeaderProc, FHeaderHandle, Msg, WParam, LParam);
"
[00011558]
" FDefHeaderProc := Pointer(GetWindowLong(FHeaderHandle, GWL_WNDPROC));
"
[00000213]
" SColorPrefix = 'Color';
"
[00001494]
"procedure GetCursorValues(Proc: TGetStrProc);
"
[00001654]
"procedure GetCursorValues(Proc: TGetStrProc);
"
[00000204]
" RPR;
"
[00001167]
" CreateProviderProc: function(DataSet: TDBDataSet): IProvider = nil;
"
[00003650]
" CursorProps: CurProps;
"
[00003655]
" DbiGetCursorProps(FHandle, CursorProps);
"
[00003656]
" FldDescCount := CursorProps.iFields;
"
[00003662]
" DbiGetCursorProps(FHandle, CursorProps);
"
[00003663]
" HiddenFieldCount := CursorProps.iFields - FldDescCount;
"
[00003664]
" FldDescCount := CursorProps.iFields;
"
[00003673]
" for I := 1 to CursorProps.iValChecks do
"
[00003726]
" CursorProps: CurProps;
"
[00003729]
" DbiGetCursorProps(FHandle, CursorProps);
"
[00003730]
" FRecordSize := CursorProps.iRecBufSize;
"
[00003731]
" BookmarkSize := CursorProps.iBookmarkSize;
"
[00003732]
" FCanModify := (CursorProps.eOpenMode = dbiReadWrite)
"
[00003733]
" and not CursorProps.bTempTable;
"
[00003738]
" FRecNoStatus := TRecNoStatus(CursorProps.ISeqNums);
"
[00003806]
" CursorProps: CurProps;
"
[00003810]
" Check(DbiGetCursorProps(FHandle, CursorProps));
"
[00003811]
" BookmarkSize := CursorProps.iBookmarkSize;
"
[00003812]
" FRecordSize := CursorProps.iRecBufSize;
"
[00005677]
" CursorProps: CURProps;
"
[00005681]
" DbiGetCursorProps(Handle, CursorProps);
"
[00005682]
" if CursorProps.szLangDriver[0] <> #0 then
"
[00005683]
" CreateAttribute(List, 'SERVER_COL', StrPas(CursorProps.szLangDriver), False);
"
[00005697]
" if Assigned(CreateProviderProc) then
"
[00005698]
" FProvIntf := CreateProviderProc(Self) else
"
[00006493]
" CursorProps: CurProps;
"
[00006507]
" DbiGetCursorProps(Cursor, CursorProps);
"
[00006508]
" if CursorProps.iIndexes > 0 then
"
[00006510]
" SetLength(IndexDescs, CursorProps.iIndexes);
"
[00006512]
" for I := 0 to CursorProps.iIndexes - 1 do
"
[00000845]
" ColorPrefix, ColorTags: string;
"
[00000852]
" FCustomColors.Values[ColorPrefix + ColorTags[I + 1]] :=
"
[00000863]
" Value := FCustomColors.Values[ColorPrefix + ColorTags[I + 1]];
"
[00000871]
" ColorPrefix := SColorPrefix;
"
[00000286]
" FDefClientProc: TFarProc;
"
[00000287]
" FClientInstance: TFarProc;
"
[00005674]
"procedure HintTimerProc(Wnd: HWnd; Msg, TimerID, SysTime: Longint); stdcall;
"
[00006760]
" FTimerHandle := SetTimer(0, 0, Value, @HintTimerProc);
"
[00000930]
"procedure GetColorValues(Proc: TGetStrProc);
"
[00000933]
"procedure GetCharsetValues(Proc: TGetStrProc);
"
[00001269]
"procedure GetColorValues(Proc: TGetStrProc);
"
[00001326]
"procedure GetCharsetValues(Proc: TGetStrProc);
"
[00000060]
" procedure GetStrings(Proc: TGetStrProc);
"
[00000095]
" FPropBrowsing: IPerPropertyBrowsing;
"
[00000214]
" function GetColorProp(Index: Integer): TColor;
"
[00000215]
" function GetTColorProp(Index: Integer): TColor;
"
[00000220]
" function GetIntegerProp(Index: Integer): Integer;
"
[00000245]
" procedure SetColorProp(Index: Integer; Value: TColor);
"
[00000246]
" procedure SetTColorProp(Index: Integer; Value: TColor);
"
[00000251]
" procedure SetIntegerProp(Index: Integer; Value: Integer);
"
[00000295]
" property PerPropBrowsing: IPerPropertyBrowsing read FPropBrowsing;
"
[00000475]
"procedure TEnumPropDesc.GetStrings(Proc: TGetStrProc);
"
[00000636]
" FOleObject.QueryInterface(IPerPropertyBrowsing, FPropBrowsing);
"
[00000911]
" Result := GetIntegerProp(Index);
"
[00000914]
"function TOleControl.GetColorProp(Index: Integer): TColor;
"
[00000916]
" Result := GetIntegerProp(Index);
"
[00000919]
"function TOleControl.GetTColorProp(Index: Integer): TColor;
"
[00000921]
" Result := GetIntegerProp(Index);
"
[00001090]
"function TOleControl.GetIntegerProp(Index: Integer): Integer;
"
[00001187]
" Result := GetIntegerProp(Index);
"
[00001192]
" Result := GetIntegerProp(Index);
"
[00001277]
" Result := GetIntegerProp(Index);
"
[00001317]
" Result := GetIntegerProp(Index);
"
[00001711]
" SetIntegerProp(Index, Value);
"
[00001714]
"procedure TOleControl.SetColorProp(Index: Integer; Value: TColor);
"
[00001716]
" SetIntegerProp(Index, Value);
"
[00001719]
"procedure TOleControl.SetTColorProp(Index: Integer; Value: TColor);
"
[00001721]
" SetIntegerProp(Index, Value);
"
[00001760]
"procedure TOleControl.SetIntegerProp(Index: Integer; Value: Integer);
"
[00001859]
" SetIntegerProp(Index, Value);
"
[00001864]
" SetIntegerProp(Index, Value);
"
[00001961]
" SetIntegerProp(Index, Value);
"
[00002030]
" SetIntegerProp(Index, Value);
"
[00002223]
" SetColorProp(DISPID_BACKCOLOR, Color);
"
[00002254]
" SetIntegerProp(DISPID_FORECOLOR, Font.Color);
"
[00002672]
" Color := GetIntegerProp(DISPID_BACKCOLOR);
"
[00002702]
" Font.Color := GetIntegerProp(DISPID_FORECOLOR);
"
[00000236]
" L := CharPrev(Text, Text+L) - Text;
"
[00000444]
" TSocketErrorProc = procedure (ErrorCode: Integer);
"
[00000446]
"function SetErrorProc(ErrorProc: TSocketErrorProc): TSocketErrorProc;
"
[00000453]
" SocketErrorProc: TSocketErrorProc;
"
[00000458]
"function SetErrorProc(ErrorProc: TSocketErrorProc): TSocketErrorProc;
"
[00000460]
" Result := SocketErrorProc;
"
[00000461]
" SocketErrorProc := ErrorProc;
"
[00000470]
" if Assigned(SocketErrorProc) then
"
[00000471]
" SocketErrorProc(Result)
"
[00001800]
" RPR;
"
[00001945]
" RPR;
"
[00000157]
"function GetStrProp(Instance: TObject; PropInfo: PPropInfo): string;
"
[00000158]
"procedure SetStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000716]
"procedure GetShortStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000761]
"procedure SetShortStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000815]
"procedure GetShortStrPropAsLongStr(Instance: TObject; PropInfo: PPropInfo;
"
[00000820]
" GetShortStrProp(Instance, PropInfo, Temp);
"
[00000824]
"procedure SetShortStrPropAsLongStr(Instance: TObject; PropInfo: PPropInfo;
"
[00000830]
" SetShortStrProp(Instance, PropInfo, Temp);
"
[00000838]
"procedure GetLongStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000880]
"procedure SetLongStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000927]
"procedure GetWideStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00000969]
"procedure SetWideStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00001011]
"procedure GetWideStrPropAsLongStr(Instance: TObject; PropInfo: PPropInfo;
"
[00001016]
" GetWideStrProp(Instance, PropInfo, Temp);
"
[00001020]
"procedure SetWideStrPropAsLongStr(Instance: TObject; PropInfo: PPropInfo;
"
[00001026]
" SetWideStrProp(Instance, PropInfo, Temp);
"
[00001029]
"function GetStrProp(Instance: TObject; PropInfo: PPropInfo): string;
"
[00001032]
" tkString: GetShortStrPropAsLongStr(Instance, PropInfo, Result);
"
[00001033]
" tkLString: GetLongStrProp(Instance, PropInfo, Result);
"
[00001034]
" tkWString: GetWideStrPropAsLongStr(Instance, PropInfo, Result);
"
[00001040]
"procedure SetStrProp(Instance: TObject; PropInfo: PPropInfo;
"
[00001044]
" tkString: SetShortStrPropAsLongStr(Instance, PropInfo, Value);
"
[00001045]
" tkLString: SetLongStrProp(Instance, PropInfo, Value);
"
[00001046]
" tkWString: SetWideStrPropAsLongStr(Instance, PropInfo, Value);
"