mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 14:38:01 +02:00
* Registration of library loading component
git-svn-id: trunk@38318 -
This commit is contained in:
michael
parent
e230baecc7
commit
e8078ba93f
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -2394,6 +2394,7 @@ components/sqldb/Makefile svneol=native#text/plain
|
||||
components/sqldb/Makefile.compiled svneol=native#text/plain
|
||||
components/sqldb/Makefile.fpc svneol=native#text/plain
|
||||
components/sqldb/design/registersqldb.bat svneol=native#text/x-msdos-program
|
||||
components/sqldb/design/registersqldb.sh svneol=native#text/plain
|
||||
components/sqldb/design/registersqldb.txt svneol=native#text/plain
|
||||
components/sqldb/design/tfbadmin.png -text svneol=unset#image/png
|
||||
components/sqldb/design/tfbeventmonitor.png -text
|
||||
|
||||
1
components/sqldb/design/registersqldb.sh
Normal file
1
components/sqldb/design/registersqldb.sh
Normal file
@ -0,0 +1 @@
|
||||
../../../tools/lazres ../registersqldb.lrs @registersqldb.txt
|
||||
@ -18,3 +18,4 @@ tsqlquery.png
|
||||
tsqlscript.png
|
||||
tsqltransaction.png
|
||||
tsybaseconnection.png
|
||||
tsqldblibraryloader.png
|
||||
|
||||
@ -1007,3 +1007,73 @@ LazarusResources.Add('tsybaseconnection','PNG',[
|
||||
+#241#196#254#141#225#203'1'#231#28#162'(B'#215'uH'#210#221#19#198'97.'#215'c'
|
||||
+'5'#0#224'/'#228#202#172#215'z'#155#180'5'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('tsqldblibraryloader','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#2#0#0#0'o'#21#170#175
|
||||
+#0#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#0'H'#0#0#0
|
||||
+'H'#0'F'#201'k>'#0#0#5#187'IDAT8'#203'5'#210#235#139']W'#25#6#240'w]'#246#245
|
||||
+#156'}ns'#230#218#210#177'q'#172#177#23#168' F'#27#18'C+x'#161')H'#17#161#141
|
||||
+#189#128'4(B'#17'B?Y'#209'J'#4'K'#219'/#M'#167'E'#148'VC!(Ni)'#222':M'#19#173
|
||||
+'m'#180#197#148#25't'#218#12'q&13g'#206#158'9g'#159's'#246'^k'#175#181#222
|
||||
+#215#15#131#207#31#240#192#195#239#225#165'5'#165#213#132#214'YE'#228',QOcF'
|
||||
+#212'!z'#241#141#15#142#255#228#133'GN>'#255#196#207#127#247#212'K'#139'?'
|
||||
+#158#255#229#207'N'#191#242#236#226'_O'#191#245#175#223#252#237#210#210#202
|
||||
+#230#242'fq)-7z'#186' '#226'$$'#9#223'2'#129'"H'#179#226#183#175#254#254#228
|
||||
+#147#207#252#240#167#167#158#158'?'#253#199#165#179#189'A'#145'4['#211'3'#215
|
||||
+'_?'#187'o'#238#147#251'g?'#182'orr2'#142#227'j'#181#170#181'^^^^XX'#152#159
|
||||
+#159#239#238#20'|y'#189#255#250#249#139#207#191#252#234's'#167'_y'#225#229
|
||||
+#197#215#207#190'{i'#171'?Bo'#234#198#253'G'#190't'#244#190#135#191'u'#215
|
||||
+#151#239#158#158#253'8p'#223#143#171'$'#188'tggeeeiiiqqq}}'#189'('#138#209'h'
|
||||
+#212'nE'#252#201#133#151'^;'#255#254#135'[C'#209#152#190#237#142#187#190#250
|
||||
+#141#135#190'r'#239#177#155'n'#255#188#243#147#29'eW'#214'6'#222'z'#251#239
|
||||
+#239#188'w'#241#163#203#235'y'#233#182#186'i'#165'Rm4'#26#253'~'#255#220#185
|
||||
+'s'#253'~'#191#209'hdY6'#24'!'#183#213#169#171#3'<'#251#254#234#155#239#173
|
||||
+'^'#188#220#217#28#145'l'#204'$S7'#142#207'~b'#234#134'}s7'#223't'#232#206
|
||||
+#131'G'#191'v'#248'S'#183#221#222#217'N'#159'='#181'p'#230#204#153'+W'#174#0
|
||||
+'@Q'#20#173'Vkrr'#178#213'j%'#21#206#171#147#179#25#5#255#29#24#23'7Yel#'#29
|
||||
+'}xe'#251'?'#155#233'?'#255#189'v'#225#131#213#183'/'#172#254#225#207#255#248
|
||||
+#211#27#203#239#188'{Ak'#29#134'!'#0'$I'#18#134'a'#165'R'#169#215#235#195#225
|
||||
+'PkM'#0#188#167#161'_'#178'th'#135'%'#140#28#223#205'm'#166#177';(v3'#165'-'
|
||||
+#8#207''''#162','#203#186#219#157'('#244#199#219#173'8'#142'k'#181#154'1'#134
|
||||
+#136#170#213#170#231'y'#227#227#227#12#128'#'#147#205#246'D'#181#209'*'#12'f'
|
||||
+'#'#205#253#192#15#227'B'#217'('#174'*'#165#210'4'#213#170#168#198'Q3'#137'c'
|
||||
+'_'#168'a'#127''''#237#214#235#245#137#137#137'$I'#132#16#136#24#4#193'0'''
|
||||
+#30#5'>Z'#163'TADD'#164#148'RJ'#161'3'#195'A'#191#158'$'#28'-9'#211#235'\'
|
||||
+#173#4'^='#246'c_'#250#190#12#130#0#0#140'1'#158#231#5'A0'#26#141#162#136'q'
|
||||
+#143#129' '#146#224#152#179#204'Y'#142#142#156'!r'#214'Z[j@'#203#209#0#161
|
||||
+'''('#242'x '#128#17#16#17'"""'#17#9'!|'#223#23#12'x(H'#160#246#25'2'#171#208
|
||||
+'(Bk'#180'b'#228#208#150#186','#172'-'#17#29'9'#235#11#30#133#129#244#132#144
|
||||
+'LJ'#201#24#179#214#26'c'#172#181#214'Z'#0#224#161#7#2'K'#143#17#150#133#209
|
||||
+#10#208#153'R9'#231#16#173'1'#198'9'#135#136#214'Z'#206'y'#16#4#140'1g'#137
|
||||
+#136#248#255'#'#165#20'B'#0#0#143#4#9#178'>''gJ[*@Wh'#133#136#8#188'4'#174'D'
|
||||
+'V"'#20#165'u'#140'3/0'#14#242'<'#183#214'2'#198#164#148'{'''#136#227#24#0
|
||||
+#184#239'I '#20#156'9kl'#169#17'Qkm'#28'!0UZ'#227#160'DV'#24'kA0'#17'XG'#196
|
||||
+'8'#231#156'1'#134#136'eY'#22'E1'#28#14#11#13#220#151#156#3'J'#14'{'#155#17
|
||||
+#209#148#14#129#149#150#10#131#218#146'v'#164',9&'#152#23'X'#224'RJ)'#229#158
|
||||
+#218#30'qQ'#20'y'#174'8p'#238#136#136'1"r'#132#8#228#156#3#164#189'^'#231#204
|
||||
+#30#16'0'#198#164#0#198#172's'#6#29#162#5'@'#223#147'I%j5'#146#177'f'#200#195
|
||||
+'Z'#189'7'#24#137' @'#14'D'#148#231'C'#198'Q'#23#131'b'#212'kT#'#143#3#150'9'
|
||||
+#144#209#249#192#25#21'F'#129#177':'#142'#'#165'r)'#216'_'#206#191'y'#248#224
|
||||
+'gO<'#250'm'#15#128'{'#130'#9gJr'#150#129#19#224'$8'#193#137#185'r'#216'Ow'
|
||||
+#211#173'<'#235'K'#14#19#237#177'8'#12'v'#211#174#214#133#181#229#196#248#24
|
||||
+'C'#188#243#200#161#27'f'#218'F'#171#172#191#195'}'#176'>'#149#2'KI'#134';'
|
||||
+#237#138#129#26#236#142'z'#219'c'#181#170'Uy'#228#201'f'#163'F'#206'u'#187
|
||||
+#221#193'`PO*'#211#19#227#27'k'#151#186#155#215'~'#253#171#23#143#28#252#12#0
|
||||
+#8'!'#154#245#6'oW'#252#196'''iF:'#219'V'#253#14#152'"'#9#229'D3'#201#210#173
|
||||
+'"'#219'ah'#243'a'#127'7'#221'vF'#251#146''''#213#184#179#177#190#241#209#234
|
||||
+#137#239'>0V'#143#4#128'3'#24'H'#207'Z'#203#139#157'k13'#147#181#176#29#201
|
||||
+#152#25#174'3'#181#187#181's'#245'r'#192']'#179#26'$'#129#24#244'R'#178'f'
|
||||
+#188#221#242#132#204#179','#240#216#227#143#29#23#0#137#15#233'v?'#242'8#('
|
||||
+#242#156#223's'#228#150#7#238'=z'#244#139#135#246#207'N'#213'$%'#158'kW'#188
|
||||
+#177#138#15'j'#144'n^'#25#244#183#27'QX'#9#188#141#181#181#206#214#181';>w'
|
||||
+#224#23#207#157#234#165#185#7#224#12'L'#143#215#173'q'#224'\'#146#212'x'#0'p'
|
||||
+#248#192#173#199#239#191#231#233#31#157'8'#249#248#247#190#243#208#177'/'#28
|
||||
+#248#244'u'#237'Z'#187#22'V$'#11#25#132'>'#151'@'#219#157#173'('#240#31'~'
|
||||
+#240#190#153'vez,'#238'\'#235'F'#30#244#210#30#153#18'8'#235'mw'#185#0#176
|
||||
+#170#148#0'y'#174#2#6#183#204#205'|'#253#238#195#143'='#250#205''''#190#255
|
||||
+#200'3O'#253#224#193'c'#247#183#155#141'J'#28#222'z'#243#254#185#185'9'#143
|
||||
+'A'#145#27#14'p'#221'd'#219#26#215'l6<'#207'#'#165#27'c'#237#255#1#209#211
|
||||
,#148#199#250#253'~'#163#0#0#0'%tEXtdate:create'#0'2012-08-21T21:32:21+02:00'
|
||||
+#200'h'#229#202#0#0#0'%tEXtdate:modify'#0'2012-08-21T21:32:21+02:00'#185'5]v'
|
||||
+#0#0#0#17'tEXtjpeg:colorspace'#0'2,uU'#159#0#0#0' tEXtjpeg:sampling-factor'#0
|
||||
+'2x2,1x1,1x1I'#250#166#180#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
|
||||
@ -49,6 +49,7 @@ unit registersqldb;
|
||||
{$DEFINE HASFBADMIN}
|
||||
{$DEFINE HASPQEVENT}
|
||||
{$DEFINE HASFBEVENT}
|
||||
{$DEFINE HASLIBLOADER}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF Solaris}
|
||||
@ -100,6 +101,9 @@ uses
|
||||
sqlstringspropertyeditordlg,
|
||||
controls,
|
||||
forms,
|
||||
{$IFDEF HASLIBLOADER}
|
||||
sqldblib,
|
||||
{$ENDIF}
|
||||
{$IFDEF HASSQLPARSER}
|
||||
sqlscript, fpsqltree, fpsqlparser,
|
||||
{$ENDIF HASSQLPARSER}
|
||||
@ -139,6 +143,24 @@ Type
|
||||
{%H-}ResourceName: string): string; override;
|
||||
end;
|
||||
|
||||
{ TSQLDBConnectorTypePropertyEditor }
|
||||
|
||||
TSQLDBConnectorTypePropertyEditor = class(TStringPropertyEditor)
|
||||
public
|
||||
function GetAttributes: TPropertyAttributes; override;
|
||||
procedure GetValues(Proc: TGetStrProc); override;
|
||||
end;
|
||||
|
||||
{$IFDEF HASLIBLOADER}
|
||||
|
||||
{ TSQLDBLibraryLoaderLibraryNamePropertyEditor }
|
||||
|
||||
TSQLDBLibraryLoaderLibraryNamePropertyEditor=class(TFileNamePropertyEditor)
|
||||
public
|
||||
function GetFilter: String; override;
|
||||
end;
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF HASSQLPARSER}
|
||||
TSQLSyntaxChecker = Class(TComponent)
|
||||
@ -161,6 +183,8 @@ procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses dynlibs;
|
||||
|
||||
procedure RegisterUnitSQLdb;
|
||||
begin
|
||||
RegisterComponents('SQLdb',[
|
||||
@ -206,6 +230,9 @@ begin
|
||||
{$ENDIF}
|
||||
{$IFDEF HASFBEVENT}
|
||||
,TFBEventMonitor
|
||||
{$ENDIF}
|
||||
{$IFDEF HASLIBLOADER}
|
||||
,TSQLDBLibraryLoader
|
||||
{$ENDIF}
|
||||
]);
|
||||
end;
|
||||
@ -220,6 +247,39 @@ Resourcestring
|
||||
SInterbaseDatabases = 'Interbase databases';
|
||||
SSQLStringsPropertyEditorDlgTitle = 'Editing %s';
|
||||
|
||||
sLibraries = 'Shared libraries';
|
||||
|
||||
{ TSQLDBLibraryLoaderConnectionTypePropertyEditor }
|
||||
|
||||
function TSQLDBConnectorTypePropertyEditor.GetAttributes: TPropertyAttributes;
|
||||
begin
|
||||
Result := [paMultiSelect, paSortList, paValueList, paRevertable];
|
||||
end;
|
||||
|
||||
procedure TSQLDBConnectorTypePropertyEditor.GetValues(
|
||||
Proc: TGetStrProc);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
I : Integer;
|
||||
begin
|
||||
L:=TStringList.Create;
|
||||
try
|
||||
for I:=0 to L.Count-1 do
|
||||
Proc(L[i]);
|
||||
finally
|
||||
L.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TSQLDBLibraryLoaderLibraryNamePropertyEditor }
|
||||
|
||||
function TSQLDBLibraryLoaderLibraryNamePropertyEditor.GetFilter: String;
|
||||
begin
|
||||
Result := sLibraries+'|*.'+SharedSuffix;
|
||||
Result := Result+ '|'+ inherited GetFilter;
|
||||
end;
|
||||
|
||||
{ TDbfFileNamePropertyEditor }
|
||||
|
||||
function TSQLFirebirdFileNamePropertyEditor.GetFilter: String;
|
||||
@ -420,6 +480,14 @@ procedure Register;
|
||||
begin
|
||||
RegisterPropertyEditor(TypeInfo(AnsiString),
|
||||
TIBConnection, 'DatabaseName', TSQLFirebirdFileNamePropertyEditor);
|
||||
RegisterPropertyEditor(TypeInfo(AnsiString),
|
||||
TSQLConnector, 'ConnectorType', TSQLDBConnectorTypePropertyEditor);
|
||||
{$IFDEF HASLIBLOADER}
|
||||
RegisterPropertyEditor(TypeInfo(AnsiString),
|
||||
TSQLDBLibraryLoader, 'LibraryName', TSQLDBLibraryLoaderLibraryNamePropertyEditor);
|
||||
RegisterPropertyEditor(TypeInfo(AnsiString),
|
||||
TSQLDBLibraryLoader, 'ConnectionType', TSQLDBConnectorTypePropertyEditor);
|
||||
{$endif}
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLQuery, 'SQL' , TSQLStringsPropertyEditor);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLQuery, 'InsertSQL', TSQLStringsPropertyEditor);
|
||||
RegisterPropertyEditor(TStrings.ClassInfo, TSQLQuery, 'DeleteSQL', TSQLStringsPropertyEditor);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user