git-svn-id: trunk@5606 -
This commit is contained in:
mattias 2004-06-28 17:03:37 +00:00
parent 67dd913236
commit a0099c31b4
25 changed files with 181 additions and 82 deletions

View File

@ -3001,11 +3001,11 @@ var
repeat
AFilename:=FileInfo.Name;
if (AFilename='.') or (AFilename='..') then continue;
writeln('Browse Filename=',AFilename,' IsDir=',(FileInfo.Attr and faDirectory)>0);
//writeln('Browse Filename=',AFilename,' IsDir=',(FileInfo.Attr and faDirectory)>0);
i:=High(IgnoreDirs);
while (i>=Low(IgnoreDirs)) and (AFilename<>IgnoreDirs[i]) do dec(i);
if CompareText(AFilename,'fcl')=0 then
writeln('Browse ',AFilename,' IsDir=',(FileInfo.Attr and faDirectory)>0,' Ignore=',i>=Low(IgnoreDirs));
//if CompareText(AFilename,'fcl')=0 then
// writeln('Browse ',AFilename,' IsDir=',(FileInfo.Attr and faDirectory)>0,' Ignore=',i>=Low(IgnoreDirs));
if i>=Low(IgnoreDirs) then continue;
AFilename:=ADirPath+AFilename;
if (FileInfo.Attr and faDirectory)>0 then begin

View File

@ -128,7 +128,7 @@ msgstr "Sivu: %d"
#: syneditstrconst:syns_filterpascal
msgid "Pascal Files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc"
msgstr ""
msgstr "Pascal tiedostot (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc"
#: syneditstrconst:syns_filterperl
msgid "Perl Files (*.pl,*.pm,*.cgi)|*.pl;*.pm;*.cgi"

View File

@ -1312,6 +1312,8 @@ begin
fFontDummy.Free;
Lines.Free;
{$ELSE}
fHookedCommandHandlers:=nil;
fPlugins:=nil;
FreeAndNil(fScrollTimer);
FreeAndNil(fTSearch);
FreeAndNil(fMarkList);

View File

@ -2222,6 +2222,10 @@ msgstr ""
msgid "Generate code for gprof"
msgstr "Generar codi pel gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Generar informació de depuració pel DBX (Compilació més lenta)"

View File

@ -2232,6 +2232,10 @@ msgstr ""
msgid "Generate code for gprof"
msgstr ""
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr ""

View File

@ -2233,6 +2233,10 @@ msgstr "Opciones Generales"
msgid "Generate code for gprof"
msgstr "Generar código para gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Generar información de depuración para DBX (Lento Compilando)"

View File

@ -2233,6 +2233,10 @@ msgstr "Opciones Generales"
msgid "Generate code for gprof"
msgstr "Generar código para gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Generar información de depuración para DBX (Lento Compilando)"

View File

@ -148,11 +148,11 @@ msgstr "&Tiedosto"
#: lazarusidestrconsts:uemfinddeclaration
msgid "&Find Declaration"
msgstr ""
msgstr "&Etsi määrittely"
#: lazarusidestrconsts:uemgotobookmark
msgid "&Goto Bookmark"
msgstr ""
msgstr "&Siirry kirjaimerkkiin"
#: lazarusidestrconsts:lismenuhelp
msgid "&Help"
@ -160,7 +160,7 @@ msgstr "&Ohje"
#: lazarusidestrconsts:uemopenfileatcursor
msgid "&Open file at cursor"
msgstr ""
msgstr "&Avaa kohdistimen osoittama tiedosto"
#: lazarusidestrconsts:lismenuproject
msgid "&Project"
@ -184,7 +184,7 @@ msgstr "&Etsi"
#: lazarusidestrconsts:uemsetbookmark
msgid "&Set Bookmark"
msgstr ""
msgstr "&Merkitse kirjainmerkiksi"
#: lazarusidestrconsts:dlgtexttofing
msgid "&Text to Find"
@ -232,7 +232,7 @@ msgstr ""
#: lazarusidestrconsts:lisafilealreadyexistsreplaceit
msgid "A file %s%s%s already exists.%sReplace it?"
msgstr ""
msgstr "Tiedosto %s%s%s on jo olemassa.%skorvataanko se? "
#: lazarusidestrconsts:lisa2papascalunitmusthavetheextensionpporpas
msgid "A pascal unit must have the extension .pp or .pas"
@ -296,7 +296,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuaddtoproject
msgid "Add editor file to Project"
msgstr ""
msgstr "Lisää editorin tiedosto projektiin"
#: lazarusidestrconsts:lisa2paddfile
msgid "Add File"
@ -736,7 +736,7 @@ msgstr ""
#: lazarusidestrconsts:lisdiffdlgcaseinsensitive
msgid "Case Insensitive"
msgstr "Sama kirjainkoko"
msgstr "Kirjaimen koolla ei väliä"
#: lazarusidestrconsts:dlgcasesensitive
msgid "Case Sensitive"
@ -992,7 +992,7 @@ msgstr ""
#: lazarusidestrconsts:lismenucommentselection
msgid "Comment selection"
msgstr ""
msgstr "Laita lohko kommentiksi (//)"
#: lazarusidestrconsts:liscodetemplcomment
msgid "Comment:"
@ -1112,7 +1112,7 @@ msgstr ""
#: lazarusidestrconsts:lisprojinspconfirmremovingfile
msgid "Confirm removing file"
msgstr ""
msgstr "Vahvista tiedoston poistaminen"
#: lazarusidestrconsts:srkmconflic
msgid "Conflict "
@ -1204,7 +1204,7 @@ msgstr ""
#: lazarusidestrconsts:lisnewdlgcreateanewpascalunit
msgid "Create a new pascal unit."
msgstr ""
msgstr "Tee uusi pascal käännösyksikkö (unit)"
#: lazarusidestrconsts:lisnewdlgcreateanewcustomprogram
msgid "Create a new program."
@ -1228,7 +1228,7 @@ msgstr ""
#: lazarusidestrconsts:lisnewdlgcreateanewunitwithalclform
msgid "Create a new unit with a LCL form."
msgstr ""
msgstr "Tee uusi unit ja lomake (LCL form)"
#: lazarusidestrconsts:liscreateaprojectfirst
msgid "Create a project first!"
@ -1272,7 +1272,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuinsertdatetime
msgid "Current date and time"
msgstr ""
msgstr "Päivämäärä ja aika"
#: lazarusidestrconsts:lisedtdefcurrentproject
msgid "Current Project"
@ -1284,7 +1284,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuinsertusername
msgid "Current username"
msgstr ""
msgstr "Käyttäjätunnus"
#: lazarusidestrconsts:dlgcursorbeyondeol
msgid "Cursor beyond EOL"
@ -1588,7 +1588,7 @@ msgstr "Eroavuudet"
#: lazarusidestrconsts:dlgdirection
msgid "Direction"
msgstr ""
msgstr "Suunta"
#: lazarusidestrconsts:liscodetoolsdefsinsertbehinddirectory
msgid "Directory"
@ -1760,7 +1760,7 @@ msgstr ""
#: lazarusidestrconsts:dlgentirescope
msgid "Entire Scope"
msgstr ""
msgstr "Ulottuvuuden alkukohta"
#: lazarusidestrconsts:dlgrunoenvironment
msgid "Environment"
@ -1964,7 +1964,7 @@ msgstr ""
#: lazarusidestrconsts:dlgfileexts
msgid "File extensions:"
msgstr "Tiedostopäätteet"
msgstr "Tiedostopäätteet:"
#: lazarusidestrconsts:lispkgmangfileisalreadyinpackage
msgid "File is already in package"
@ -2060,7 +2060,7 @@ msgstr "Etsi"
#: lazarusidestrconsts:lismenufindinfiles
msgid "Find &in files"
msgstr ""
msgstr "Etsi tiedostoista"
#: lazarusidestrconsts:lismenufindnext
msgid "Find &Next"
@ -2088,11 +2088,11 @@ msgstr "Etsi määrittely"
#: lazarusidestrconsts:lismenufinddeclarationatcursor
msgid "Find Declaration at cursor"
msgstr ""
msgstr "Etsi kohdistimen osoittaman kohdan määrittely"
#: lazarusidestrconsts:srkmecfindinfiles
msgid "Find in files"
msgstr ""
msgstr "Etsi tiedostoista"
#: lazarusidestrconsts:srkmecfindnext
msgid "Find next"
@ -2180,7 +2180,7 @@ msgstr "ranska"
#: lazarusidestrconsts:dlgfromcursor
msgid "From Cursor"
msgstr ""
msgstr "Kohdistimen osoittama kohta"
#: lazarusidestrconsts:listmfunctionappendpathdelimiter
msgid "Function: append path delimiter"
@ -2222,6 +2222,10 @@ msgstr ""
msgid "Generate code for gprof"
msgstr ""
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr ""
@ -2240,7 +2244,7 @@ msgstr ""
#: lazarusidestrconsts:dlgglobal
msgid "Global"
msgstr ""
msgstr "Kaikki"
#: lazarusidestrconsts:lisedtdefglobalsourcepathaddition
msgid "Global Source Path addition"
@ -2355,7 +2359,7 @@ msgid "Half Page Scroll"
msgstr ""
#: lazarusidestrconsts:lismenueditorhandleonclickevent
msgid "Handle OnCLick Event"
msgid "Handle OnClick Event"
msgstr ""
#: lazarusidestrconsts:srvk_hanja
@ -2480,11 +2484,11 @@ msgstr "Ohita"
#: lazarusidestrconsts:lisdiffdlgignoreifspacecharswereadd
msgid "Ignore amount of space chars"
msgstr ""
msgstr "Jätä huomiotta välilyöntien määrä merkkien välissä "
#: lazarusidestrconsts:lisdiffdlgignoreiflineendcharsdiffe
msgid "Ignore difference in line ends (e.g. #10 = #13#10)"
msgstr "Jätä huomiotta erilaiset rivinloppumerkinnät (esim. #10 = #13#10) "
msgstr "Jätä huomiotta erilaiset rivinloppumerkinnät (esim. #10 = #13#10)"
#: lazarusidestrconsts:lisdiskdiffignorediskchanges
msgid "Ignore disk changes"
@ -2492,7 +2496,7 @@ msgstr ""
#: lazarusidestrconsts:lisdiffdlgignoreifemptylineswereadd
msgid "Ignore if empty lines were added or removed"
msgstr ""
msgstr "Jätä huomiotta tyhjät rivit"
#: lazarusidestrconsts:lissortselignorespace
msgid "Ignore Space"
@ -2500,15 +2504,15 @@ msgstr ""
#: lazarusidestrconsts:lisdiffdlgignorespaces
msgid "Ignore spaces (newline chars not included)"
msgstr ""
msgstr "Jätä välilyönnit huomiotta (ei koske tyhjiä rivejä)"
#: lazarusidestrconsts:lisdiffdlgignorespacesatendofline
msgid "Ignore spaces at end of line"
msgstr "Ei huomioida välilyöntejä rivin lopussa"
msgstr "Jätä huomiotta välilyöntejä rivin lopussa"
#: lazarusidestrconsts:lisdiffdlgignorespacesatstartofline
msgid "Ignore spaces at start of line"
msgstr ""
msgstr "Jätä huomiotta välilyönnit rivin alussa"
#: lazarusidestrconsts:srkmecimestr
msgid "Ime Str"
@ -2756,7 +2760,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuinserttext
msgid "Insert text"
msgstr ""
msgstr "Lisää seuraava teksti"
#: lazarusidestrconsts:lispckeditinstall
msgid "Install"
@ -3112,7 +3116,7 @@ msgstr ""
#: lazarusidestrconsts:dlglevelnoneopt
msgid "Level 0 (no extra Optimizations)"
msgstr ""
msgstr "Taso 0 (Ei optimointia)"
#: lazarusidestrconsts:dlglevel1opt
msgid "Level 1 (Quick Optimizations)"
@ -3120,11 +3124,11 @@ msgstr "Taso 1 (Nopea optimoiti)"
#: lazarusidestrconsts:dlglevel2opt
msgid "Level 2 (Level 1 + Slower Optimizations)"
msgstr "Taso 2 (taso 1 + hitaampi optimoiti)"
msgstr "Taso 2 (Taso 1 + hitaampi optimoiti)"
#: lazarusidestrconsts:dlglevel3opt
msgid "Level 3 (Level 2 + Uncertain)"
msgstr "Taso 3 (taso2 + Uncertain)"
msgstr "Taso 3 (Taso2 + Uncertain)"
#: lazarusidestrconsts:lispkgfiletypelfm
msgid "LFM - Lazarus form text"
@ -3168,7 +3172,7 @@ msgstr ""
#: lazarusidestrconsts:lissortsellines
msgid "Lines"
msgstr ""
msgstr "Rivit"
#: lazarusidestrconsts:dlglinklibraries
msgid "Link Libraries:"
@ -3572,7 +3576,7 @@ msgstr ""
#: lazarusidestrconsts:lisuidno
msgid "no"
msgstr ""
msgstr "ei"
#: lazarusidestrconsts:dlgednoerr
msgid "No errors in key mapping found."
@ -3636,7 +3640,7 @@ msgstr ""
#: lazarusidestrconsts:lisuenotfound
msgid "Not found"
msgstr ""
msgstr "Ei löytynyt"
#: lazarusidestrconsts:uenotimplcap
msgid "Not implemented yet"
@ -3716,11 +3720,11 @@ msgstr "Avaa tiedosto"
#: lazarusidestrconsts:srkmecopenfileatcursor
msgid "Open file at cursor"
msgstr "Avaa kursorin osoittama tiedosto"
msgstr "Avaa kohdistimen osoittama tiedosto"
#: lazarusidestrconsts:lismenuopenfilenameatcursor
msgid "Open filename at cursor"
msgstr "Avaa kursorin osoittama tiedosto"
msgstr "Avaa kohdistimen osoittama tiedosto"
#: lazarusidestrconsts:dlgqopenlastprj
msgid "Open last project at start"
@ -3808,7 +3812,7 @@ msgstr ""
#: lazarusidestrconsts:dlgsrorigin
msgid "Origin"
msgstr ""
msgstr "Lähtökohta"
#: lazarusidestrconsts:dlgcoother
msgid "Other"
@ -3844,7 +3848,7 @@ msgstr ""
#: lazarusidestrconsts:lisoverwritefile
msgid "Overwrite file?"
msgstr ""
msgstr "Korvataanko tiedosto?"
#: lazarusidestrconsts:srkmecoverwritemode
msgid "Overwrite Mode"
@ -4196,7 +4200,7 @@ msgstr ""
#: lazarusidestrconsts:dlgpromptonreplace
msgid "Prompt On Replace"
msgstr ""
msgstr "Kysy vielä muutoksen vahvistusta"
#: lazarusidestrconsts:dlgpropertycompletion
msgid "Property completion"
@ -4256,7 +4260,7 @@ msgstr ""
#: lazarusidestrconsts:uepreadonly
msgid "Readonly"
msgstr ""
msgstr "Vain luettavissa"
#: lazarusidestrconsts:lispkgmangrebuildlazarus
msgid "Rebuild Lazarus?"
@ -4304,7 +4308,7 @@ msgstr ""
#: lazarusidestrconsts:dlgregularexpressions
msgid "Regular Expressions"
msgstr ""
msgstr "Säännölliset lausekkeet"
#: lazarusidestrconsts:lispckoptsrelease
msgid "Release"
@ -4316,7 +4320,7 @@ msgstr ""
#: lazarusidestrconsts:lisexttoolremove
msgid "Remove"
msgstr ""
msgstr "Poista"
#: lazarusidestrconsts:lisremoveallinvalidproperties
msgid "Remove all invalid properties"
@ -4344,7 +4348,7 @@ msgstr ""
#: lazarusidestrconsts:lisprojinspremovefilefromproject
msgid "Remove file %s from project?"
msgstr ""
msgstr "Poistetaanko tiedosto %s projektista?"
#: lazarusidestrconsts:lispckeditremovefilefrompackage
msgid "Remove file %s%s%s%sfrom package %s%s%s?"
@ -4360,7 +4364,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuremovefromproject
msgid "Remove from Project"
msgstr ""
msgstr "Poista projektista"
#: lazarusidestrconsts:lispckeditremoveselecteditem
msgid "Remove selected item"
@ -4576,11 +4580,11 @@ msgstr ""
#: lazarusidestrconsts:lissavechangestoproject
msgid "Save changes to project %s?"
msgstr "Tallennetaanko %s -projektiin tehdyt muutokset? "
msgstr "Tallennetaanko %s -projektiin tehdyt muutokset?"
#: lazarusidestrconsts:lispckeditsavechanges
msgid "Save Changes?"
msgstr ""
msgstr "Talletetaanko muutokset?"
#: lazarusidestrconsts:lissavecurrenteditorfile
msgid "save current editor file"
@ -4648,7 +4652,7 @@ msgstr ""
#: lazarusidestrconsts:dlgscope
msgid "Scope"
msgstr ""
msgstr "Ulottuvuus"
#: lazarusidestrconsts:srvk_scroll
msgid "Scroll"
@ -4684,11 +4688,11 @@ msgstr ""
#: lazarusidestrconsts:lisfindfilesearchallfilesinproject
msgid "search all files in project"
msgstr ""
msgstr "Hae projektin kaikista tiedostoista"
#: lazarusidestrconsts:lisfindfilesearchallopenfiles
msgid "search all open files"
msgstr ""
msgstr "Hae kaikista avoinna olevista tiedostoista"
#: lazarusidestrconsts:lisfindfilesearchindirectories
msgid "search in directories"
@ -4704,7 +4708,7 @@ msgstr ""
#: lazarusidestrconsts:lisuesearchstringnotfound
msgid "Search string '%s' not found!"
msgstr ""
msgstr "Etsittyä merkkijonoa '%s' ei löydetty!"
#: lazarusidestrconsts:dlgsearchabort
msgid "Search terminated by user."
@ -4844,7 +4848,7 @@ msgstr ""
#: lazarusidestrconsts:dlgselectedtext
msgid "Selected Text"
msgstr ""
msgstr "Valittu teksti"
#: lazarusidestrconsts:dlgruberbandselectioncolor
msgid "Selection"
@ -5096,11 +5100,11 @@ msgstr ""
#: lazarusidestrconsts:lissortselsort
msgid "Sort"
msgstr ""
msgstr "Lajittele"
#: lazarusidestrconsts:lismenusortselection
msgid "Sort selection"
msgstr ""
msgstr "Lajittele lohko"
#: lazarusidestrconsts:lissourcedirectorydoesnotexists
msgid "Source directory %s%s%s does not exists."
@ -5376,7 +5380,7 @@ msgstr ""
#: lazarusidestrconsts:lisfindfiletexttofind
msgid "Text to find:"
msgstr ""
msgstr "Etsittävä teksti:"
#: lazarusidestrconsts:lisdiffdlgtext1
msgid "Text1"
@ -6132,7 +6136,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuuncommentselection
msgid "Uncomment selection"
msgstr ""
msgstr "Poista lohkon kommentointi (//)"
#: lazarusidestrconsts:liscodetoolsdefsundefine
msgid "Undefine"
@ -6256,7 +6260,7 @@ msgstr ""
#: lazarusidestrconsts:lismenuviewunits
msgid "Units..."
msgstr ""
msgstr "Käännösyksiköt eli unitit ..."
#: lazarusidestrconsts:srvk_unknown
msgid "Unknown"
@ -6432,7 +6436,7 @@ msgstr "Näytä komponenttimuokkain"
#: lazarusidestrconsts:dlgmainviewforms
msgid "View project forms"
msgstr "Näytä projektin lomakkeet(forms) "
msgstr "Näytä projektin lomakkeet(forms)"
#: lazarusidestrconsts:dlgmainviewunits
msgid "View project units"
@ -6504,11 +6508,11 @@ msgstr ""
#: lazarusidestrconsts:lisfindfilewhere
msgid "Where"
msgstr ""
msgstr "Mistä"
#: lazarusidestrconsts:dlgwholewordsonly
msgid "Whole Words Only"
msgstr ""
msgstr "Etsi vain kokonaisia sanoja"
#: lazarusidestrconsts:dlgwidthpos
msgid "Width:"

View File

@ -2232,6 +2232,10 @@ msgstr "Options g
msgid "Generate code for gprof"
msgstr "Générer du code pour \"gprof\""
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Générer des infos pour le débugueur DBX (compilation lente)"

View File

@ -2233,6 +2233,10 @@ msgstr ""
msgid "Generate code for gprof"
msgstr ""
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr ""

View File

@ -2232,6 +2232,10 @@ msgstr "Opzioni generali"
msgid "Generate code for gprof"
msgstr "Genera codice per gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Genera informazioni di debugging per DBX (rallenta la compilazione)"

View File

@ -2232,6 +2232,10 @@ msgstr "Opzioni generali"
msgid "Generate code for gprof"
msgstr "Genera codice per gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Genera informazioni di debugging per DBX (rallenta la compilazione)"

View File

@ -2233,6 +2233,10 @@ msgstr "Opcje ogólne"
msgid "Generate code for gprof"
msgstr "Twórz kod dla gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Twórz informację odpluskwiacza dla DBX (zwalnia kompilację)"

View File

@ -2233,6 +2233,10 @@ msgstr "Opcje og
msgid "Generate code for gprof"
msgstr "Twórz kod dla gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Twórz informacjê odpluskwiacza dla DBX (zwalnia kompilacjê)"

View File

@ -2233,6 +2233,10 @@ msgstr "Opcje og
msgid "Generate code for gprof"
msgstr "Twórz kod dla gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Twórz informacjê odpluskwiacza dla DBX (zwalnia kompilacjê)"

View File

@ -2566,6 +2566,10 @@ msgstr ""
msgid "Use Heaptrc Unit"
msgstr ""
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlggprof
msgid "Generate code for gprof"
msgstr ""

View File

@ -2222,6 +2222,10 @@ msgstr "
msgid "Generate code for gprof"
msgstr "óÏÚÄÁÔØ ËÏÄ ÄÌÑ gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "çÅÎÅÒÉÒÏ×ÁÔØ ÉÎÆÏÒÍÁÃÉÀ ÄÌÑ DBX (ÚÁÍÅÄÌÑÅÔ ÓÂÏÒËÕ)"

View File

@ -2222,6 +2222,10 @@ msgstr "
msgid "Generate code for gprof"
msgstr "Ñîçäàòü êîä äëÿ gprof"
#: lazarusidestrconsts:dlgcovalgrind
msgid "Generate code for valgrind"
msgstr ""
#: lazarusidestrconsts:dlgcodbx
msgid "Generate Debugging Info For DBX (Slows Compiling)"
msgstr "Ãåíåðèðîâàòü èíôîðìàöèþ äëÿ DBX (çàìåäëÿåò ñáîðêó)"

View File

@ -378,6 +378,10 @@ begin
RawImage^.PaletteSize:=0;
end;
{-------------------------------------------------------------------------------
Beware: Data is used in ReallocMem
-------------------------------------------------------------------------------}
procedure CreateRawImageData(Width, Height, BitsPerPixel: cardinal;
LineEnd: TRawImageLineEnd; var Data: Pointer; var DataSize: cardinal);
var
@ -465,6 +469,10 @@ begin
end;
end;
{-------------------------------------------------------------------------------
Beware: DestData is used in ReallocMem
-------------------------------------------------------------------------------}
procedure ExtractRawImageDataRect(SrcRawImageDesc: PRawImageDescription;
const SrcRect: TRect; SrcData: Pointer;
DestRawImageDesc: PRawImageDescription;
@ -767,6 +775,9 @@ end.
{ =============================================================================
$Log$
Revision 1.32 2004/06/28 17:03:37 mattias
clean up
Revision 1.31 2004/05/11 11:42:26 mattias
replaced writeln by debugln

View File

@ -1675,7 +1675,7 @@ var
(Enabled or AllowDisabled)
and
(Perform(CM_HITTEST, 0,
LParam(PointtoSmallPoint(ControlPos))) <> 0)
LParam(PointToSmallPoint(ControlPos))) <> 0)
)
);
{$IFDEF VerboseMouseBugfix}
@ -3659,6 +3659,9 @@ end;
{ =============================================================================
$Log$
Revision 1.239 2004/06/28 17:03:37 mattias
clean up
Revision 1.238 2004/06/20 21:21:49 micha
fix GetVisible to return this control's visibility, instead introduce IsVisible to check for recursive visibility

View File

@ -419,13 +419,29 @@ const
const
CallBackDefaultReturn = {$IFDEF GTK2}false{$ELSE}true{$ENDIF};
// font
var
AvgFontCharsBuffer: array[#32..#126] of char;
AvgFontCharsBufLen: integer;
implementation
initialization
procedure InternalInit;
var
c: char;
begin
for c:=Low(AvgFontCharsBuffer) to High(AvgFontCharsBuffer) do
AvgFontCharsBuffer[c]:=c;
AvgFontCharsBufLen:=ord(High(AvgFontCharsBuffer))-ord(Low(AvgFontCharsBuffer))+1;
ModalWindows:=nil;
UseTransientForModalWindows:=true;
UpdatingTransientWindows:=false;
CurrentSentPaintMessageTarget:=nil;
end;
initialization
InternalInit;
end.

View File

@ -8605,9 +8605,7 @@ var
dummy: LongInt;
UseFont : PGDKFont;
UnRef : Boolean;
AVGBuffer: array[#32..#126] of char;
AvgLen: integer;
c: char;
AvgTxtLen: Integer;
begin
with TDeviceContext(DC) do begin
if dcfTextMetricsValid in DCFlags then begin
@ -8631,16 +8629,18 @@ begin
gdk_text_extents(UseFont, TestString,
length(TestString), @lbearing, @rBearing, @dummy,
@TextMetric.tmAscent, @TextMetric.tmDescent);
for c:=Low(AVGBuffer) to High(AVGBuffer) do
AVGBuffer[c]:=c;
AvgLen:=ord(High(AVGBuffer))-ord(Low(AVGBuffer))+1;
GetTextExtentPoint(HDC(DC), @AVGBuffer[Low(AVGBuffer)],
AvgLen, XT);
if not IsDoubleByteChar then
XT.cX := XT.cX div AvgLen
else
if IsDoubleByteChar then
// Quick hack for double byte char fonts
XT.cX := XT.cX div (AvgLen div 2);
AvgTxtLen:=AvgFontCharsBufLen div 2
else
AvgTxtLen:=AvgFontCharsBufLen;
GetTextExtentPoint(HDC(DC),
@AvgFontCharsBuffer[Low(AvgFontCharsBuffer)],
AvgTxtLen, XT);
if not IsDoubleByteChar then
XT.cX := XT.cX div AvgTxtLen
else
XT.cX := XT.cX div AvgTxtLen;
TextMetric.tmHeight := XT.cY;
TextMetric.tmAscent := TextMetric.tmHeight - TextMetric.tmDescent;
TextMetric.tmAveCharWidth := XT.cX;
@ -9197,6 +9197,9 @@ end;
{ =============================================================================
$Log$
Revision 1.511 2004/06/28 17:03:37 mattias
clean up
Revision 1.510 2004/06/28 08:54:20 mattias
fixed ord ptr conversion hints

View File

@ -5368,6 +5368,7 @@ begin
If UseFont = nil then
DebugLn('WARNING: [TGtkWidgetSet.GetTextExtentPoint] Missing font')
else begin
descent:=0;
gdk_text_extents(UseFont, Str, Count,
@lbearing, @rBearing, @width, @ascent, @descent);
Size.cX := Width;
@ -8700,6 +8701,9 @@ end;
{ =============================================================================
$Log$
Revision 1.354 2004/06/28 17:03:37 mattias
clean up
Revision 1.353 2004/06/28 15:45:48 mattias
fixed a mem violation in gtk intf paint msg conversion

View File

@ -40,7 +40,7 @@ msgstr "&Ohje"
#: lclstrconsts:rsmbignore
msgid "&Ignore"
msgstr ""
msgstr "Ohita"
#: lclstrconsts:rsmbno
msgid "&No"
@ -228,7 +228,7 @@ msgstr ""
#: lclstrconsts:rsmtinformation
msgid "Information"
msgstr ""
msgstr "Informaatio"
#: lclstrconsts:sinvalidactioncreation
msgid "Invalid action creation"
@ -308,7 +308,7 @@ msgstr "Avaa tiedosto"
#: lclstrconsts:rsfdoverwritefile
msgid "Overwrite file ?"
msgstr ""
msgstr "Tallennetaanko vanhan päälle ?"
#: lclstrconsts:rsfdpathmustexist
msgid "Path must exist"

View File

@ -52,7 +52,7 @@ SynEdit_RST=`find components/units -name syneditstrconst.rst | xargs ls -1t | he
rstconv -i $SynEdit_RST \
-o components/synedit/languages/synedit.po
./tools/updatepofiles components/synedit/languages/synedit.po
for lang in ca de fr it itiso pl pliso plwin ru ruwin ; do
for lang in ca de fi fr it itiso pl pliso plwin ru ruwin ; do
msgfmt components/synedit/languages/synedit.$lang.po \
-o components/synedit/languages/synedit.$lang.mo
done