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