paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 21:48:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

added interbase package

Browse Source 
git-svn-id: trunk@4151 -
This commit is contained in:
mattias 2003-05-12 23:37:06 +00:00
parent 4fd409f5b3
commit 3754ce22a8
18 changed files with 511 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.gitattributes vendored
View File

@ -58,6 +58,15 @@ components/htmllite/litereadthd.pas svneol=native#text/pascal
components/htmllite/litesbs1.pas svneol=native#text/pascal
components/htmllite/litesubs.pas svneol=native#text/pascal
components/htmllite/liteun2.pas svneol=native#text/pascal
components/interbase/interbaselaz.lpk svneol=native#text/pascal
components/interbase/interbaselaz.pas svneol=native#text/pascal
components/interbase/registerinterbase.lrs svneol=native#text/pascal
components/interbase/registerinterbase.pas svneol=native#text/pascal
components/interbase/tibdatabase.ico -text svneol=unset#image/x-icon
components/interbase/tibdatabase.xpm -text svneol=native#image/x-xpixmap
components/interbase/tibquery.ico -text svneol=unset#image/x-icon
components/interbase/tibquery.xpm -text svneol=native#image/x-xpixmap
components/interbase/tibtransaction.xpm -text svneol=native#image/x-xpixmap
components/mpaslex/mpaslex.pp svneol=native#text/pascal
components/synedit/allunits.pp svneol=native#text/pascal
components/synedit/design/tsynautocomplete.xpm -text svneol=native#image/x-xpixmap
@ -380,10 +389,6 @@ images/components/tfontdialog.ico -text svneol=unset#image/x-icon
images/components/tfontdialog.xpm -text svneol=native#image/x-xpixmap
images/components/tgroupbox.ico -text svneol=unset#image/x-icon
images/components/tgroupbox.xpm -text svneol=native#image/x-xpixmap
images/components/tibdatabase.ico -text svneol=native#image/x-icon
images/components/tibdatabase.xpm -text svneol=native#image/x-xpixmap
images/components/tibquery.ico -text svneol=native#image/x-icon
images/components/tibquery.xpm -text svneol=native#image/x-xpixmap
images/components/tidletimer.xpm -text svneol=native#image/x-xpixmap
images/components/timage.ico -text svneol=unset#image/x-icon
images/components/timage.xpm -text svneol=native#image/x-xpixmap

51
components/interbase/interbaselaz.lpk Normal file
View File

@ -0,0 +1,51 @@
<?xml version="1.0"?>
<CONFIG>
<Package>
<Name Value="InterbaseLaz"/>
<Author Value="Lazarus"/>
<Description Value="Lazarus package for the FCL Interbase components."/>
<License Value="LGPL2"/>
<Version Major="1"/>
<Files Count="3">
<Item1>
<Filename Value="registerinterbase.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="RegisterInterbase"/>
</Item1>
<Item2>
<Filename Value="interbase.pp"/>
<Type Value="Virtual Unit"/>
<UnitName Value="Interbase"/>
</Item2>
<Item3>
<Filename Value="registerinterbase.lrs"/>
<Type Value="LRS"/>
</Item3>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
<CompilerOptions>
<SearchPaths>
<CompilerPath Value="$(CompPath)"/>
<UnitOutputDirectory Value="lib/"/>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
</CompilerOptions>
</CONFIG>

22
components/interbase/interbaselaz.pas Normal file
View File

@ -0,0 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package InterbaseLaz 1.0.
}
unit InterbaseLaz;
interface
uses
RegisterInterbase, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('RegisterInterbase', @RegisterInterbase.Register);
end;
initialization
RegisterPackage('InterbaseLaz', @Register)
end.

2
components/interbase/lib/README Normal file
View File

@ -0,0 +1,2 @@
This is the output directory of the interbase package for lazarus

168
components/interbase/registerinterbase.lrs Normal file
View File

@ -0,0 +1,168 @@
LazarusResources.Add('tibdatabase','XPM',[
'/* XPM */'#10'static char * tibdatabase_xpm[] = {'#10'"20 17 193 2",'#10'" '
+#9'c None",'#10'". '#9'c #010000",'#10'"+ '#9'c #040301",'#10'"@ '#9'c #0604'
+'05",'#10'"# '#9'c #050304",'#10'"$ '#9'c #090708",'#10'"% '#9'c #020100",'
+#10'"& '#9'c #030000",'#10'"* '#9'c #060203",'#10'"= '#9'c #030002",'#10'"- '
+#9'c #0E090F",'#10'"; '#9'c #030004",'#10'"> '#9'c #010004",'#10'", '#9'c #0'
+'A080D",'#10'"'' '#9'c #010103",'#10'") '#9'c #C8C8CA",'#10'"! '#9'c #040404'
+'",'#10'"~ '#9'c #F9F9F7",'#10'"{ '#9'c #BFBFBD",'#10'"] '#9'c #C4C4C2",'#10
+'"^ '#9'c #BEBEBE",'#10'"/ '#9'c #BFBFBF",'#10'"( '#9'c #FFFEFF",'#10'"_ '#9
+'c #C2C0C1",'#10'": '#9'c #CECCCD",'#10'"< '#9'c #BFBDBE",'#10'"[ '#9'c #BDB'
+'BBE",'#10'"} '#9'c #CECCCF",'#10'"| '#9'c #C5C3C6",'#10'"1 '#9'c #010002",'
+#10'"2 '#9'c #000005",'#10'"3 '#9'c #000000",'#10'"4 '#9'c #040500",'#10'"5 '
+#9'c #060701",'#10'"6 '#9'c #000100",'#10'"7 '#9'c #101012",'#10'"8 '#9'c #0'
+'20003",'#10'"9 '#9'c #09070A",'#10'"0 '#9'c #0D0B0C",'#10'"a '#9'c #070803"'
+','#10'"b '#9'c #C7C7C7",'#10'"c '#9'c #000009",'#10'"d '#9'c #FFFDFF",'#10
+'"e '#9'c #CECECC",'#10'"f '#9'c #BABBB3",'#10'"g '#9'c #C4C5BD",'#10'"h '#9
+'c #C5C6C1",'#10'"i '#9'c #BCBBC1",'#10'"j '#9'c #BEBDC3",'#10'"k '#9'c #C4C'
+'3C8",'#10'"l '#9'c #C5C5C7",'#10'"m '#9'c #C8C8C8",'#10'"n '#9'c #C0C0BE",'
+#10'"o '#9'c #010200",'#10'"p '#9'c #C3C2C0",'#10'"q '#9'c #030104",'#10'"r '
+#9'c #00000E",'#10'"s '#9'c #050213",'#10'"t '#9'c #020400",'#10'"u '#9'c #0'
+'30301",'#10'"v '#9'c #00000B",'#10'"w '#9'c #02000B",'#10'"x '#9'c #020107"'
+','#10'"y '#9'c #000002",'#10'"z '#9'c #030303",'#10'"A '#9'c #D3D2CE",'#10
+'"B '#9'c #060700",'#10'"C '#9'c #FCFCFC",'#10'"D '#9'c #C5C1D8",'#10'"E '#9
+'c #C4C0D7",'#10'"F '#9'c #BFC1C0",'#10'"G '#9'c #C9CCC3",'#10'"H '#9'c #FEF'
+'FFA",'#10'"I '#9'c #BABBBD",'#10'"J '#9'c #CFCEDE",'#10'"K '#9'c #C1BFD4",'
+#10'"L '#9'c #C7C6D4",'#10'"M '#9'c #C1C1CB",'#10'"N '#9'c #C6C7CC",'#10'"O '
+#9'c #030504",'#10'"P '#9'c #C1C2BD",'#10'"Q '#9'c #CECFC9",'#10'"R '#9'c #0'
+'10100",'#10'"S '#9'c #08080A",'#10'"T '#9'c #04001F",'#10'"U '#9'c #00001B"'
+','#10'"V '#9'c #000004",'#10'"W '#9'c #000300",'#10'"X '#9'c #010300",'#10
+'"Y '#9'c #02020A",'#10'"Z '#9'c #000017",'#10'"` '#9'c #02001E",'#10'" .'#9
+'c #000013",'#10'"..'#9'c #00000C",'#10'"+.'#9'c #06060E",'#10'"@.'#9'c #BFC'
+'0BB",'#10'"#.'#9'c #0D0E08",'#10'"$.'#9'c #BDBEB6",'#10'"%.'#9'c #070709",'
+#10'"&.'#9'c #C2C2C0",'#10'"*.'#9'c #000200",'#10'"=.'#9'c #F6F1FF",'#10'"-.'
+#9'c #FEF9FF",'#10'";.'#9'c #FEFEFF",'#10'">.'#9'c #C5C7C2",'#10'",.'#9'c #F'
+'AFEFD",'#10'"''.'#9'c #FCFEFF",'#10'").'#9'c #FCFAFF",'#10'"!.'#9'c #F9F7FF'
+'",'#10'"~.'#9'c #FBFAFF",'#10'"{.'#9'c #FCFDFF",'#10'"].'#9'c #F6F6FF",'#10
+'"^.'#9'c #000105",'#10'"/.'#9'c #C3C5C2",'#10'"(.'#9'c #C6C7BF",'#10'"_.'#9
+'c #FFFFFD",'#10'":.'#9'c #2C6B2C",'#10'"<.'#9'c #FEFDFF",'#10'"[.'#9'c #BEC'
+'2C1",'#10'"}.'#9'c #F9FCFF",'#10'"|.'#9'c #FDFCFF",'#10'"1.'#9'c #010109",'
+#10'"2.'#9'c #C8CAC7",'#10'"3.'#9'c #C8C9C1",'#10'"4.'#9'c #FEF7FF",'#10'"5.'
+#9'c #FEF6FF",'#10'"6.'#9'c #C5C9CC",'#10'"7.'#9'c #FBFDFF",'#10'"8.'#9'c #F'
+'BFCFF",'#10'"9.'#9'c #F9F6FF",'#10'"0.'#9'c #F7F3FF",'#10'"a.'#9'c #FCF9FF"'
+','#10'"b.'#9'c #FCFBFF",'#10'"c.'#9'c #F8F9FF",'#10'"d.'#9'c #00030C",'#10
+'"e.'#9'c #C6C8C7",'#10'"f.'#9'c #040700",'#10'"g.'#9'c #FFFFFF",'#10'"h.'#9
+'c #0B0D02",'#10'"i.'#9'c #F6F7FF",'#10'"j.'#9'c #BEC1C8",'#10'"k.'#9'c #F8F'
+'BFF",'#10'"l.'#9'c #FCFCFF",'#10'"m.'#9'c #BCBDBF",'#10'"n.'#9'c #B7BAB3",'
+#10'"o.'#9'c #090C05",'#10'"p.'#9'c #C5C5C5",'#10'"q.'#9'c #F3F1FE",'#10'"r.'
+#9'c #FEF5FF",'#10'"s.'#9'c #FBF1FF",'#10'"t.'#9'c #C2C5CE",'#10'"u.'#9'c #F'
+'BFEFF",'#10'"v.'#9'c #FAFAFF",'#10'"w.'#9'c #FAF4FF",'#10'"x.'#9'c #F1EAFF"'
+','#10'"y.'#9'c #FAF7FF",'#10'"z.'#9'c #F7F7FF",'#10'"A.'#9'c #C0C4C7",'#10
+'"B.'#9'c #070C06",'#10'"C.'#9'c #C4C7C0",'#10'"D.'#9'c #B7B9C8",'#10'"E.'#9
+'c #FEFCFF",'#10'"F.'#9'c #C5C6CA",'#10'"G.'#9'c #C3C4C9",'#10'"H.'#9'c #060'
+'70C",'#10'"I.'#9'c #FEFAFF",'#10'"J.'#9'c #FEFBFF",'#10'"K.'#9'c #C9C6E1",'
+#10'"L.'#9'c #F6F3FF",'#10'"M.'#9'c #FBF9FF",'#10'"N.'#9'c #FEF8FF",'#10'"O.'
+#9'c #FDF9FF",'#10'"P.'#9'c #05040A",'#10'"Q.'#9'c #C3C3C5",'#10'"R.'#9'c #0'
+'50505",'#10'"S.'#9'c #08090D",'#10'"T.'#9'c #C9C6E3",'#10'"U.'#9'c #F4F2F5"'
+','#10'"V.'#9'c #070508",'#10'"W.'#9'c #040205",'#10'"X.'#9'c #BDBEC3",'#10
+'"Y.'#9'c #0A0A12",'#10'"Z.'#9'c #F5F4FF",'#10'"`.'#9'c #C4C3D5",'#10'" +'#9
+'c #F3F1FF",'#10'".+'#9'c #FBF9FC",'#10'"++'#9'c #020106",'#10'"@+'#9'c #050'
+'60A",'#10'"#+'#9'c #010008",'#10'"$+'#9'c #06040F",'#10'"%+'#9'c #01000A",'
+#10'"&+'#9'c #050511",'#10'"*+'#9'c #040207",'#10'" . + . . @ # $ % &'
+' * & = - ; > , ",'#10'" '' ) ! ~ { ] ^ / ( _ : < [ } | 1 ",'#10'" '
+' + . 2 2 3 4 5 6 3 7 8 9 . . 0 . . 0 ",'#10'" a b c d e f g h ( i j k l '
+'m n o p . ",'#10'"q . 6 3 r s 3 t 6 u c v w x y z 6 6 A . ",'#10'"y { B C D'
+' E F G H I J K L M N O P 6 Q 6 ",'#10'"y R 6 S T U V W X Y Z ` ...+.y @.#.'
,'$.o ",'#10'"%.&.*.( =.-.;.>.,.''.).!.~.{.].^./.*.(.o ",'#10'"y _.*.( :.:.<.'
+'[.}.:.:.:.:.:.|.1.2.*.3.6 ",'#10'"S ^ *.( 4.5.{.6.7.8.9.0.a.b.c.d.e.f.G *."'
+','#10'"y g.h.).:.:.i.j.k.:.:.:.:.).l...m.*.n.o.",'#10'"y p.t q.r.s.l.t.u.v.'
+'w.x.y.z.l.r A.B.C.*.",'#10'"y g.6 d :.:.l.D.l.:.:.:.:.:.E.v F.6 X o ",'#10
+'"V G.H.b.I.0.J.K.L.M.N.N.O.d b.P.Q.R. ",'#10'"S.;.c <.:.:.!.T.J.:.:.:.:.'
+'( U.V.W.1 ",'#10'"V X.Y.;.;.Z.<.`. +!.E.<.J..+( V. ",'#10'"++@+2'
+' 2 #+Y $+c %+&+v c *+1 9 1 "};'#10
]);
LazarusResources.Add('tibquery','XPM',[
'/* XPM */'#10'static char * tibquery_xpm[] = {'#10'"22 23 167 2",'#10'" '#9
+'c None",'#10'". '#9'c #08060B",'#10'"+ '#9'c #010002",'#10'"@ '#9'c #000000'
+'",'#10'"# '#9'c #000100",'#10'"$ '#9'c #000200",'#10'"% '#9'c #070705",'#10
+'"& '#9'c #000002",'#10'"* '#9'c #010007",'#10'"= '#9'c #020500",'#10'"- '#9
+'c #06040F",'#10'"; '#9'c #000007",'#10'"> '#9'c #010300",'#10'", '#9'c #040'
+'700",'#10'"'' '#9'c #060300",'#10'") '#9'c #050102",'#10'"! '#9'c #C6C6C4",'
+#10'"~ '#9'c #030400",'#10'"{ '#9'c #CBCDCA",'#10'"] '#9'c #C1C2C6",'#10'"^ '
+#9'c #C8C8D0",'#10'"/ '#9'c #C4C5CA",'#10'"( '#9'c #C6C5CA",'#10'"_ '#9'c #B'
+'CBCBC",'#10'": '#9'c #CCCCCC",'#10'"< '#9'c #C8C5CC",'#10'"[ '#9'c #CBCBC9"'
+','#10'"} '#9'c #C8CEB4",'#10'"| '#9'c #C4CCB5",'#10'"1 '#9'c #BCBCC6",'#10
+'"2 '#9'c #C2C2CE",'#10'"3 '#9'c #C6C9B8",'#10'"4 '#9'c #CBCDB5",'#10'"5 '#9
+'c #C0C0B8",'#10'"6 '#9'c #030000",'#10'"7 '#9'c #060604",'#10'"8 '#9'c #0A0'
+'D04",'#10'"9 '#9'c #010312",'#10'"0 '#9'c #000013",'#10'"a '#9'c #020317",'
+#10'"b '#9'c #00000C",'#10'"c '#9'c #020305",'#10'"d '#9'c #020403",'#10'"e '
+#9'c #000005",'#10'"f '#9'c #000004",'#10'"g '#9'c #000300",'#10'"h '#9'c #0'
+'00400",'#10'"i '#9'c #020410",'#10'"j '#9'c #060817",'#10'"k '#9'c #000008"'
+','#10'"l '#9'c #050507",'#10'"m '#9'c #060503",'#10'"n '#9'c #C7CDC1",'#10
+'"o '#9'c #FCFFFF",'#10'"p '#9'c #F9F9FF",'#10'"q '#9'c #F3F1FF",'#10'"r '#9
+'c #FCFBFF",'#10'"s '#9'c #FCFCFF",'#10'"t '#9'c #FBFCFF",'#10'"u '#9'c #C8C'
+'AC9",'#10'"v '#9'c #F3F2FA",'#10'"w '#9'c #FEFDFF",'#10'"x '#9'c #F6FBFF",'
+#10'"y '#9'c #F8FDFF",'#10'"z '#9'c #EEEFFF",'#10'"A '#9'c #F7F4FF",'#10'"B '
+#9'c #FBF9FF",'#10'"C '#9'c #F4F3FF",'#10'"D '#9'c #FEFEFF",'#10'"E '#9'c #F'
+'1F7E9",'#10'"F '#9'c #010700",'#10'"G '#9'c #FAF9FF",'#10'"H '#9'c #FBF8FF"'
+','#10'"I '#9'c #EDEBFF",'#10'"J '#9'c #FAFAFF",'#10'"K '#9'c #FCFEFF",'#10
+'"L '#9'c #C0C4C7",'#10'"M '#9'c #F3F2FF",'#10'"N '#9'c #4CAA4E",'#10'"O '#9
+'c #F9F1FF",'#10'"P '#9'c #C8CEC2",'#10'"Q '#9'c #FBFFFF",'#10'"R '#9'c #2C6'
+'B2C",'#10'"S '#9'c #FCFDFF",'#10'"T '#9'c #BDC0C5",'#10'"U '#9'c #FDFDFF",'
+#10'"V '#9'c #FBFDFF",'#10'"W '#9'c #030804",'#10'"X '#9'c #F1F7ED",'#10'"Y '
+#9'c #050C05",'#10'"Z '#9'c #FAFDFF",'#10'"` '#9'c #F7F1FF",'#10'" .'#9'c #F'
+'BF6FF",'#10'"..'#9'c #F9F7FF",'#10'"+.'#9'c #BFC2CB",'#10'"@.'#9'c #EFF5FF"'
+','#10'"#.'#9'c #F7FAFF",'#10'"$.'#9'c #F8F6FF",'#10'"%.'#9'c #000302",'#10
+'"&.'#9'c #C7CCC6",'#10'"*.'#9'c #BCBECA",'#10'"=.'#9'c #FAFCFF",'#10'"-.'#9
+'c #FBFEFF",'#10'";.'#9'c #F7FFFF",'#10'">.'#9'c #F5FEFF",'#10'",.'#9'c #E7E'
+'CFF",'#10'"''.'#9'c #F5F6FF",'#10'").'#9'c #070904",'#10'"!.'#9'c #000102",'
+#10'"~.'#9'c #FAFFFB",'#10'"{.'#9'c #010609",'#10'"].'#9'c #ECE7FF",'#10'"^.'
+#9'c #EFEDFF",'#10'"/.'#9'c #C5C7D3",'#10'"(.'#9'c #F1F7FF",'#10'"_.'#9'c #F'
+'5FAFF",'#10'":.'#9'c #F4F5FF",'#10'"<.'#9'c #0A0B0D",'#10'"[.'#9'c #C1C5C4"'
+','#10'"}.'#9'c #F6F9FF",'#10'"|.'#9'c #C6C8D4",'#10'"1.'#9'c #F6F6FE",'#10
+'"2.'#9'c #F7F8FF",'#10'"3.'#9'c #F8FCFF",'#10'"4.'#9'c #FBFAFF",'#10'"5.'#9
+'c #F8FAFF",'#10'"6.'#9'c #FEFFFF",'#10'"7.'#9'c #FBFFFE",'#10'"8.'#9'c #010'
+'409",'#10'"9.'#9'c #FCFAFF",'#10'"0.'#9'c #F8F7FF",'#10'"a.'#9'c #C3C3CB",'
+#10'"b.'#9'c #F9FCFF",'#10'"c.'#9'c #EDEFFF",'#10'"d.'#9'c #020202",'#10'"e.'
+#9'c #090907",'#10'"f.'#9'c #C4C6C5",'#10'"g.'#9'c #F7F6FF",'#10'"h.'#9'c #C'
+'3C4C9",'#10'"i.'#9'c #F0F3FC",'#10'"j.'#9'c #F0F3FF",'#10'"k.'#9'c #FFFEFF"'
+','#10'"l.'#9'c #010100",'#10'"m.'#9'c #F7F9F8",'#10'"n.'#9'c #05060B",'#10
+'"o.'#9'c #F5F7FF",'#10'"p.'#9'c #BDBEC2",'#10'"q.'#9'c #F8F8F6",'#10'"r.'#9
+'c #FBFBFF",'#10'"s.'#9'c #FDFEFF",'#10'"t.'#9'c #F9F9FB",'#10'"u.'#9'c #010'
+'000",'#10'"v.'#9'c #CECECE",'#10'"w.'#9'c #F8F8FF",'#10'"x.'#9'c #F7F7FF",'
+#10'"y.'#9'c #C8C9CE",'#10'"z.'#9'c #F8FBFF",'#10'"A.'#9'c #050409",'#10'"B.'
+#9'c #08080A",'#10'"C.'#9'c #000105",'#10'"D.'#9'c #01040B",'#10'"E.'#9'c #0'
+'0010A",'#10'"F.'#9'c #00000B",'#10'"G.'#9'c #000012",'#10'"H.'#9'c #02050A"'
+','#10'"I.'#9'c #000205",'#10'"J.'#9'c #06060E",'#10'" . + @ @ # $ # # % & '
+'* + = $ - ; > , '' ) ",'#10'" + ! ~ { ] ^ / ( _ : < [ } | 1 2 3 4 5 6 '
+'",'#10'" 7 8 $ # 9 0 a b c d e f g h i j k f l m ",'#10'" $ n g o p q r'
+' s t u v w x y z A B C D # ",'#10'" $ E F y G H I J K L D M N N N N N O '
+'D , ",'#10'" $ P h Q R R R R S T U N N N N N N N V $ ",'#10'" W X Y Z'
+' A ` ...S +.K N N @.#.$.N N S $ ",'#10'" %.&.$ #.R R R R s *.=.-.;.>.,.'
+'N N N ''.). ",'#10'" !.~.{.V H ]. .^.p /.D -.(._.N N N :.o # ",'#10'" '
+'<.[.e }.R R R R S |.1.2.3.N N N 4.5.6.# ",'#10'" # 7.8.S r 9.^.0.w a.6.K'
+' b.N N p c.b.6.d. ",'#10'" e.f.e =.R R R R g.h.6.i.j.N N J K 6.k.@ ",'
+#10'" l.m.n.D K o.w w D p.q.D r.''.4.t o.s.t.& ",'#10'" u.v.f 6.w.o x.s '
+'J y.6.z.J N N V K 6.t.A. ",'#10'" u.@ B.& C.e D.E.F.F.b G. N N H.I.e J'
+'. ",'#10'" ",'#10'"N N N N N '
+' N N N N N ",'#10'" N N N N N N N '
,' N ",'#10'" N N N N N N N ",'#10'" N '
+' N N N N N N ",'#10'" N N N N N N '
+' N N N ",'#10'"N N N N N N N N N N N N N ",'#10'"'
+' N "};'#10
]);
LazarusResources.Add('tibtransaction','XPM',[
'/* XPM */'#10'static char * tibtransaction_xpm[] = {'#10'"13 20 55 1",'#10'"'
+' '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #191919",'#10'"@'#9'c #0808'
+'08",'#10'"#'#9'c #828282",'#10'"$'#9'c #101010",'#10'"%'#9'c #151515",'#10
+'"&'#9'c #949494",'#10'"*'#9'c #6F6F6F",'#10'"='#9'c #030303",'#10'"-'#9'c #'
+'313131",'#10'";'#9'c #5B5B5B",'#10'">'#9'c #3B3B3B",'#10'",'#9'c #010101",'
+#10'"'''#9'c #090909",'#10'")'#9'c #636363",'#10'"!'#9'c #1E1E1E",'#10'"~'#9
+'c #696969",'#10'"{'#9'c #616161",'#10'"]'#9'c #646464",'#10'"^'#9'c #3E3E3E'
+'",'#10'"/'#9'c #141414",'#10'"('#9'c #5D5D5D",'#10'"_'#9'c #181818",'#10'":'
+#9'c #161616",'#10'"<'#9'c #1F1F1F",'#10'"['#9'c #171717",'#10'"}'#9'c #4444'
+'44",'#10'"|'#9'c #222222",'#10'"1'#9'c #353535",'#10'"2'#9'c #1A1A1A",'#10
+'"3'#9'c #070707",'#10'"4'#9'c #6B6B6B",'#10'"5'#9'c #404040",'#10'"6'#9'c #'
+'050505",'#10'"7'#9'c #414141",'#10'"8'#9'c #6D6D6D",'#10'"9'#9'c #443E20",'
+#10'"0'#9'c #363636",'#10'"a'#9'c #857838",'#10'"b'#9'c #605725",'#10'"c'#9
+'c #666666",'#10'"d'#9'c #FFFFFF",'#10'"e'#9'c #CFBE80",'#10'"f'#9'c #787878'
+'",'#10'"g'#9'c #272727",'#10'"h'#9'c #3A3A3A",'#10'"i'#9'c #5F5F5F",'#10'"j'
+#9'c #0B0B0B",'#10'"k'#9'c #525252",'#10'"l'#9'c #0F0F0F",'#10'"m'#9'c #4848'
+'48",'#10'"n'#9'c #131313",'#10'"o'#9'c #494949",'#10'"p'#9'c #7C7C7C",'#10
+'" . ",'#10'" +@ ",'#10'" +#$.. ",'#10'" %&*=-;>, '
+' ",'#10'"''&)!,..~{. ",'#10'" .]^...,/(. ",'#10'" .]_..:<[}. ",'#10'" '
+' .$ {|1234",'#10'" @ 5)67",'#10'" {8<3",'#10'" 9 .0.'
+'",'#10'" ab .c.",'#10'" adeb. .fg",'#10'" 9bea9 .{h",'#10'" b'
+'9 i.j ",'#10'" . .*k ",'#10'" .*. ",'#10'" lm. ",'
+#10'" ($+. ",'#10'" ..,nop "};'#10
]);

44
components/interbase/registerinterbase.pas Normal file
View File

@ -0,0 +1,44 @@
{ $Id$ }
{
*****************************************************************************
* *
* See the file COPYING.modifiedLGPL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
Author: Mattias Gaertner
This unit registers the interbase components of the FCL.
}
unit RegisterInterbase;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Interbase, LazarusPackageIntf;
procedure Register;
implementation
procedure RegisterUnitInterbase;
begin
RegisterComponents('Interbase',[TIBDatabase,TIBTransaction,TIBQuery]);
end;
procedure Register;
begin
RegisterUnit('Interbase',@RegisterUnitInterbase);
end;
initialization
{$i registerinterbase.lrs}
end.

BIN
components/interbase/tibdatabase.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

0
images/components/tibdatabase.xpm → components/interbase/tibdatabase.xpm
View File

BIN
images/components/tibquery.ico → components/interbase/tibquery.ico
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.6 KiB

After

Width:  |  Height:  |  Size: 1.6 KiB

0
images/components/tibquery.xpm → components/interbase/tibquery.xpm
View File

78
components/interbase/tibtransaction.xpm Normal file
View File

@ -0,0 +1,78 @@
/* XPM */
static char * tibtransaction_xpm[] = {
"13 20 55 1",
" c None",
". c #000000",
"+ c #191919",
"@ c #080808",
"# c #828282",
"$ c #101010",
"% c #151515",
"& c #949494",
"* c #6F6F6F",
"= c #030303",
"- c #313131",
"; c #5B5B5B",
"> c #3B3B3B",
", c #010101",
"' c #090909",
") c #636363",
"! c #1E1E1E",
"~ c #696969",
"{ c #616161",
"] c #646464",
"^ c #3E3E3E",
"/ c #141414",
"( c #5D5D5D",
"_ c #181818",
": c #161616",
"< c #1F1F1F",
"[ c #171717",
"} c #444444",
"| c #222222",
"1 c #353535",
"2 c #1A1A1A",
"3 c #070707",
"4 c #6B6B6B",
"5 c #404040",
"6 c #050505",
"7 c #414141",
"8 c #6D6D6D",
"9 c #443E20",
"0 c #363636",
"a c #857838",
"b c #605725",
"c c #666666",
"d c #FFFFFF",
"e c #CFBE80",
"f c #787878",
"g c #272727",
"h c #3A3A3A",
"i c #5F5F5F",
"j c #0B0B0B",
"k c #525252",
"l c #0F0F0F",
"m c #484848",
"n c #131313",
"o c #494949",
"p c #7C7C7C",
" . ",
" +@ ",
" +#$.. ",
" %&*=-;>, ",
"'&)!,..~{. ",
" .]^...,/(. ",
" .]_..:<[}. ",
" .$ {|1234",
" @ 5)67",
" {8<3",
" 9 .0.",
" ab .c.",
" adeb. .fg",
" 9bea9 .{h",
" b9 i.j ",
" . .*k ",
" .*. ",
" lm. ",
" ($+. ",
" ..,nop "};

2
ide/lazarusidestrconsts.pas
View File

@ -1421,6 +1421,7 @@ resourcestring
// packages
lisPkgFileTypeUnit = 'Unit';
lisPkgFileTypeVirtualUnit = 'Virtual Unit';
lisPkgFileTypeLFM = 'LFM - Lazarus form text';
lisPkgFileTypeLRS = 'LRS - Lazarus resource';
lisPkgFileTypeInclude = 'Include file';
@ -1857,6 +1858,7 @@ resourcestring
+'package %s.';
lisAF2PUnitName = 'Unit Name: ';
lisAF2PHasRegisterProcedure = 'Has Register procedure';
lisAF2PIsVirtualUnit = 'Virtual unit (file is not in package)';
lisAF2PFileType = 'File Type';
lisAF2PDestinationPackage = 'Destination Package';
lisAF2PShowAll = 'Show All';

BIN
images/components/tibdatabase.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 1.4 KiB

8
packager/addfiletoapackagedlg.pas
View File

@ -253,7 +253,7 @@ begin
with Items do begin
BeginUpdate;
for pft:=Low(TPkgFileType) to High(TPkgFileType) do begin
if pft=pftUnit then continue;
if pft in [pftUnit,pftVirtualUnit] then continue;
Add(GetPkgFileTypeLocalizedName(pft));
end;
EndUpdate;
@ -349,7 +349,7 @@ begin
if FileTypeRadioGroup.Visible then begin
i:=0;
for CurPFT:=Low(TPkgFileType) to High(TPkgFileType) do begin
if CurPFT=pftUnit then continue;
if CurPFT in [pftUnit,pftVirtualUnit] then continue;
if FileTypeRadioGroup.ItemIndex=i then begin
Result:=CurPFT;
exit;
@ -381,7 +381,7 @@ begin
if FileType=AValue then exit;
i:=0;
for CurPFT:=Low(TPkgFileType) to High(TPkgFileType) do begin
if CurPFT=pftUnit then continue;
if CurPFT in [pftUnit,pftVirtualUnit] then continue;
if CurPFT=AValue then break;
inc(i);
end;
@ -390,7 +390,7 @@ begin
else
FileTypeRadioGroup.ItemIndex:=-1;
ShowUnitProps:=(AValue=pftUnit);
ShowUnitProps:=(AValue in [pftUnit,pftVirtualUnit]);
UnitNameLabel.Visible:=ShowUnitProps;
UnitNameEdit.Visible:=ShowUnitProps;
HasRegisterProcCheckBox.Visible:=ShowUnitProps;

130
packager/addtopackagedlg.pas
View File

@ -46,6 +46,7 @@ uses
type
TAddToPkgType = (
d2ptUnit,
d2ptVirtualUnit,
d2ptNewComponent,
d2ptRequiredPkg,
d2ptFile
@ -83,6 +84,7 @@ type
AddUnitSrcNameLabel: TLabel;
AddUnitSrcNameEdit: TEdit;
AddUnitHasRegisterCheckBox: TCheckBox;
AddUnitIsVirtualCheckBox: TCheckBox;
AddSecondaryFilesCheckBox: TCheckBox;
AddUnitUpdateButton: TButton;
AddUnitButton: TButton;
@ -124,6 +126,7 @@ type
procedure AddToPackageDlgClose(Sender: TObject; var Action: TCloseAction);
procedure AddUnitButtonClick(Sender: TObject);
procedure AddUnitFileBrowseButtonClick(Sender: TObject);
procedure AddUnitIsVirtualCheckBoxClick(Sender: TObject);
procedure AddUnitPageResize(Sender: TObject);
procedure AddUnitUpdateButtonClick(Sender: TObject);
procedure AncestorComboBoxCloseUp(Sender: TObject);
@ -210,7 +213,8 @@ begin
// normalize filename
AFilename:=TrimFilename(AFilename);
if (not FilenameIsAbsolute(AFilename)) then begin
if (AddFileType<>d2ptVirtualUnit) and (not FilenameIsAbsolute(AFilename)) then
begin
if LazPackage.HasDirectory then
AFilename:=LazPackage.Directory+AFilename
else begin
@ -223,17 +227,19 @@ begin
end;
// check if file exists
if not FileExists(AFilename) then begin
if AddFileType=d2ptUnit then begin
MessageDlg(lisFileNotFound,
Format(lisPkgMangFileNotFound, ['"', AFilename, '"']), mtError, [
mbCancel], 0);
exit;
if (FilenameIsAbsolute(AFilename)) then begin
if (not FileExists(AFilename)) then begin
if AddFileType=d2ptUnit then begin
MessageDlg(lisFileNotFound,
Format(lisPkgMangFileNotFound, ['"', AFilename, '"']), mtError, [
mbCancel], 0);
exit;
end;
end;
end;
// check file extension
if AddFileType in [d2ptUnit,d2ptNewComponent] then begin
if AddFileType in [d2ptUnit,d2ptNewComponent,d2ptVirtualUnit] then begin
if not FilenameIsPascalUnit(AFilename) then begin
MessageDlg(lisA2PFileNotUnit,
lisA2PPascalUnitsMustHaveTheExtensionPPOrPas,
@ -243,7 +249,7 @@ begin
end;
// check unitname
if AddFileType in [d2ptUnit,d2ptNewComponent] then begin
if AddFileType in [d2ptUnit,d2ptNewComponent,d2ptVirtualUnit] then begin
AnUnitName:=ExtractFileNameOnly(AFilename);
if not IsValidIdent(AnUnitName) then begin
MessageDlg(lisA2PFileNotUnit,
@ -283,33 +289,31 @@ begin
end;
// check if file already exists in package
PkgFile:=LazPackage.FindPkgFile(AFilename,true,true);
if PkgFile<>nil then begin
Msg:=Format(lisA2PFileAlreadyExistsInTheProject, ['"', AFilename, '"']);
if PkgFile.Filename<>AFilename then
Msg:=Format(lisA2PExistingFile, [#13, '"', PkgFile.Filename, '"']);
MessageDlg(lisA2PFileAlreadyExists, Msg, mtError, [mbCancel], 0);
exit;
if FilenameIsAbsolute(AFilename) then begin
PkgFile:=LazPackage.FindPkgFile(AFilename,true,true);
if PkgFile<>nil then begin
Msg:=Format(lisA2PFileAlreadyExistsInTheProject, ['"', AFilename, '"']);
if PkgFile.Filename<>AFilename then
Msg:=Format(lisA2PExistingFile, [#13, '"', PkgFile.Filename, '"']);
MessageDlg(lisA2PFileAlreadyExists, Msg, mtError, [mbCancel], 0);
exit;
end;
end;
// check if file is part of project
if Assigned(OnGetIDEFileInfo) then begin
IDEFileFlags:=[];
OnGetIDEFileInfo(nil,AFilename,[ifsPartOfProject{,ifsReadOnly}],
IDEFileFlags);
if (ifsPartOfProject in IDEFileFlags) then begin
MessageDlg(lisA2PFileIsUsed,
Format(lisA2PTheFileIsPartOfTheCurrentProjectItIsABadIdea, ['"',
AFilename, '"', #13]),
mtError,[mbCancel],0);
exit;
if FilenameIsAbsolute(AFilename) then begin
if Assigned(OnGetIDEFileInfo) then begin
IDEFileFlags:=[];
OnGetIDEFileInfo(nil,AFilename,[ifsPartOfProject],
IDEFileFlags);
if (ifsPartOfProject in IDEFileFlags) then begin
MessageDlg(lisA2PFileIsUsed,
Format(lisA2PTheFileIsPartOfTheCurrentProjectItIsABadIdea, ['"',
AFilename, '"', #13]),
mtError,[mbCancel],0);
exit;
end;
end;
{if (ifsReadOnly in IDEFileFlags) then begin
MessageDlg('File is readonly',
'The file "'+AFilename+'" is marked as readonly.',
mtError,[mbCancel],0);
exit;
end;}
end;
// ok
@ -373,21 +377,34 @@ end;
procedure TAddToPackageDlg.AddUnitButtonClick(Sender: TObject);
begin
FillChar(Params,SizeOf(Params),0);
Params.AddType:=d2ptUnit;
if not AddUnitIsVirtualCheckBox.Checked then begin
// normal unit
Params.AddType:=d2ptUnit;
Params.UnitFilename:=AddUnitFilenameEdit.Text;
Params.UnitName:=AddUnitSrcNameEdit.Text;
Params.FileType:=pftUnit;
Params.PkgFileFlags:=[];
Params.AutoAddLFMFile:=AddSecondaryFilesCheckBox.Checked;
Params.AutoAddLRSFile:=AddSecondaryFilesCheckBox.Checked;
if AddUnitHasRegisterCheckBox.Checked then
Include(Params.PkgFileFlags,pffHasRegisterProc);
Params.UnitFilename:=AddUnitFilenameEdit.Text;
Params.UnitName:=AddUnitSrcNameEdit.Text;
Params.FileType:=pftUnit;
Params.PkgFileFlags:=[];
Params.AutoAddLFMFile:=AddSecondaryFilesCheckBox.Checked;
Params.AutoAddLRSFile:=AddSecondaryFilesCheckBox.Checked;
if AddUnitHasRegisterCheckBox.Checked then
Include(Params.PkgFileFlags,pffHasRegisterProc);
end else begin
// virtual unit
Params.AddType:=d2ptVirtualUnit;
Params.UnitFilename:=ExtractFilename(AddUnitFilenameEdit.Text);
Params.UnitName:=AddUnitSrcNameEdit.Text;
Params.FileType:=pftVirtualUnit;
Params.PkgFileFlags:=[];
Params.AutoAddLFMFile:=false;
Params.AutoAddLRSFile:=false;
end;
// check filename
if not CheckAddingUnitFilename(LazPackage,Params.AddType,
OnGetIDEFileInfo,Params.UnitFilename) then exit;
// check unitname
if AnsiCompareText(Params.UnitName,ExtractFileNameOnly(Params.UnitFilename))<>0
then begin
@ -534,6 +551,17 @@ begin
end;
end;
procedure TAddToPackageDlg.AddUnitIsVirtualCheckBoxClick(Sender: TObject);
var
VirtualFile: Boolean;
begin
VirtualFile:=AddUnitIsVirtualCheckBox.Checked;
AddUnitFileBrowseButton.Enabled:=not VirtualFile;
AddUnitHasRegisterCheckBox.Enabled:=not VirtualFile;
AddUnitUpdateButton.Enabled:=not VirtualFile;
AddSecondaryFilesCheckBox.Enabled:=not VirtualFile;
end;
procedure TAddToPackageDlg.AddUnitPageResize(Sender: TObject);
var
x: Integer;
@ -567,6 +595,10 @@ begin
SetBounds(x,y,Parent.ClientWidth-2*x,Height);
inc(y,AddUnitHasRegisterCheckBox.Height+5);
with AddUnitIsVirtualCheckBox do
SetBounds(x,y,Parent.ClientWidth-2*x,Height);
inc(y,AddUnitIsVirtualCheckBox.Height+5);
with AddSecondaryFilesCheckBox do
SetBounds(x,y,Parent.ClientWidth-2*x,Height);
inc(y,AddSecondaryFilesCheckBox.Height+5);
@ -997,6 +1029,14 @@ begin
Caption:=lisAF2PHasRegisterProcedure;
end;
AddUnitIsVirtualCheckBox:=TCheckBox.Create(Self);
with AddUnitIsVirtualCheckBox do begin
Name:='AddUnitIsVirtualCheckBox';
Parent:=AddUnitPage;
Caption:=lisAF2PIsVirtualUnit;
OnClick:=@AddUnitIsVirtualCheckBoxClick;
end;
AddSecondaryFilesCheckBox:=TCheckBox.Create(Self);
with AddSecondaryFilesCheckBox do begin
Name:='AddSecondaryFilesCheckBox';
@ -1327,11 +1367,11 @@ var
HasRegisterProc: boolean;
Filename: String;
begin
if Assigned(OnGetUnitRegisterInfo) then begin
if Assigned(OnGetUnitRegisterInfo) and not AddUnitIsVirtualCheckBox.Checked
then begin
Filename:=AddUnitFilenameEdit.Text;
LazPackage.LongenFilename(Filename);
OnGetUnitRegisterInfo(Self,Filename,
AnUnitName,HasRegisterProc);
OnGetUnitRegisterInfo(Self,Filename,AnUnitName,HasRegisterProc);
AddUnitSrcNameEdit.Text:=AnUnitName;
AddUnitHasRegisterCheckBox.Checked:=HasRegisterProc;
end;

7
packager/packagedefs.pas
View File

@ -115,6 +115,7 @@ type
TPkgFileType = (
pftUnit, // file is pascal unit
pftVirtualUnit,// file is virtual pascal unit
pftLFM, // lazarus form text file
pftLRS, // lazarus resource file
pftInclude, // include file
@ -662,9 +663,10 @@ const
LazPkgXMLFileVersion = 1;
PkgFileTypeNames: array[TPkgFileType] of string = (
'pftUnit', 'pftLFM', 'pftLRS', 'pftInclude', 'pftText', 'pftBinary');
'pftUnit', 'pftVirtualUnit', 'pftLFM', 'pftLRS', 'pftInclude', 'pftText',
'pftBinary');
PkgFileTypeIdents: array[TPkgFileType] of string = (
'Unit', 'LFM', 'LRS', 'Include', 'Text', 'Binary');
'Unit', 'Virtual Unit', 'LFM', 'LRS', 'Include', 'Text', 'Binary');
PkgFileFlag: array[TPkgFileFlag] of string = (
'pffHasRegisterProc', 'pffReportedAsRemoved');
PkgDependencyFlagNames: array[TPkgDependencyFlag] of string = (
@ -750,6 +752,7 @@ function GetPkgFileTypeLocalizedName(FileType: TPkgFileType): string;
begin
case FileType of
pftUnit: Result:=lisPkgFileTypeUnit;
pftVirtualUnit: Result:=lisPkgFileTypeUnit;
pftLFM: Result:=lisPkgFileTypeLFM;
pftLRS: Result:=lisPkgFileTypeLRS;
pftInclude: Result:=lisPkgFileTypeInclude;

39
packager/packageeditor.pas
View File

@ -364,9 +364,12 @@ begin
if Removed then begin
// re-add file
AFilename:=PkgFile.Filename;
if PkgFile.FIleType=pftUnit then begin
if PkgFile.FileType=pftUnit then begin
if not CheckAddingUnitFilename(LazPackage,d2ptUnit,
PackageEditors.OnGetIDEFileInfo,AFilename) then exit;
end else if PkgFile.FileType=pftVirtualUnit then begin
if not CheckAddingUnitFilename(LazPackage,d2ptVirtualUnit,
PackageEditors.OnGetIDEFileInfo,AFilename) then exit;
end else begin
if not CheckAddingUnitFilename(LazPackage,d2ptFile,
PackageEditors.OnGetIDEFileInfo,AFilename) then exit;
@ -422,8 +425,16 @@ var
NewMenuItem:=TMenuItem.Create(Self);
NewMenuItem.Caption:=GetPkgFileTypeLocalizedName(CurPFT);
NewMenuItem.OnClick:=@ChangeFileTypeMenuItemClick;
NewMenuItem.Enabled:=(CurPFT<>pftUnit)
or FilenameIsPascalUnit(CurFile.Filename);
if CurPFT=CurFile.FileType then
NewMenuItem.Enabled:=true
else if CurFile.FileType=pftVirtualUnit then
NewMenuItem.Enabled:=false
else if (CurPFT<>pftUnit) then
NewMenuItem.Enabled:=true
else if FilenameIsPascalUnit(CurFile.Filename) then
NewMenuItem.Enabled:=true
else
NewMenuItem.Enabled:=false;
FileTypeMenuItem.Add(NewMenuItem);
end;
end;
@ -817,6 +828,15 @@ begin
UpdateAll;
end;
d2ptVirtualUnit:
begin
// add virtual unit file
with AddParams do
LazPackage.AddFile(UnitFilename,UnitName,FileType,PkgFileFlags,cpNormal);
PackageEditors.DeleteAmbigiousFiles(LazPackage,AddParams.UnitFilename);
UpdateAll;
end;
d2ptNewComponent:
begin
ExtendUnitPathForNewUnit(AddParams.UnitFilename);
@ -939,8 +959,8 @@ begin
if CurFile=nil then exit;
for CurPFT:=Low(TPkgFileType) to High(TPkgFileType) do begin
if CurItem.Caption=GetPkgFileTypeLocalizedName(CurPFT) then begin
if (not FilenameIsPascalUnit(CurFIle.Filename))
and (CurPFT=pftUnit) then exit;
if (not FilenameIsPascalUnit(CurFile.Filename))
and (CurPFT in [pftUnit,pftVirtualUnit]) then exit;
CurFile.FileType:=CurPFT;
UpdateAll;
exit;
@ -1275,7 +1295,7 @@ procedure TPackageEditorForm.UpdateFiles;
procedure SetImageIndex(ANode: TTreeNode; PkgFile: TPkgFile);
begin
case PkgFile.FileType of
pftUnit:
pftUnit,pftVirtualUnit:
if PkgFile.HasRegisterProc then
ANode.ImageIndex:=ImageIndexRegisterUnit
else
@ -1614,10 +1634,14 @@ var
NewDirectory: String;
UnitPath: String;
i: Integer;
ShortDirectory: String;
begin
if LazPackage=nil then exit;
// check if directory is already in the unit path of the package
NewDirectory:=ExtractFilePath(AFilename);
ShortDirectory:=NewDirectory;
LazPackage.ShortenFilename(ShortDirectory);
if ShortDirectory='' then exit;
UnitPath:=LazPackage.GetUnitPath(false);
i:=SearchDirectoryInSearchPath(UnitPath,NewDirectory,1);
if i>=1 then begin
@ -1625,10 +1649,9 @@ begin
exit;
end;
// ask user to add the unit path
LazPackage.ShortenFilename(NewDirectory);
if MessageDlg(lisPkgEditNewUnitNotInUnitpath,
Format(lisPkgEditTheFileIsCurrentlyNotInTheUnitpathOfThePackage, ['"',
AFilename, '"', #13, #13, #13, '"', NewDirectory, '"']),
AFilename, '"', #13, #13, #13, '"', ShortDirectory, '"']),
mtConfirmation,[mbYes,mbNo],0)<>mrYes
then exit;
// add path

28
packager/registration/lazaruspackageintf.pas
View File

@ -7,24 +7,16 @@
***************************************************************************/
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
*****************************************************************************
* *
* See the file COPYING.modifiedLGPL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
Author: Mattias Gaertner