From 79dff9ccbb243e926228d01b087a7935a3eddce9 Mon Sep 17 00:00:00 2001 From: Bare7a Date: Sun, 25 Feb 2018 16:36:07 +0200 Subject: [PATCH] When ENTER key is pressed, it calls the "Find Words" function. --- Main.dcu | Bin 8943 -> 9226 bytes Main.dfm | 5 +++-- Main.pas | 18 ++++++++++++++---- WordsFinder.exe | Bin 465920 -> 465920 bytes WordsFinder.groupproj.local | 7 ------- WordsFinder.identcache | Bin 0 -> 111 bytes 6 files changed, 17 insertions(+), 13 deletions(-) delete mode 100644 WordsFinder.groupproj.local create mode 100644 WordsFinder.identcache diff --git a/Main.dcu b/Main.dcu index d274a52b1d5c1ff10dfd143a4c372a1aacd3a40b..be4513f4bfc19ad63ce66991bc0ef310ad537b3e 100644 GIT binary patch delta 3205 zcmaJ@4{(#QbK^6~EYa(5izk{sdu5&}(PxJg2ik~C-_e*jG&kOUeFg)f&&a`AE( z?k++c?FB^#L>=&?!#Ti+)3neQTS~D&EhAPP?6eHF9fx+Dj&?d|Em2VG5GzObU2+;b zQ0A**_zL~D7Hy-M0p&`*~_=BDyBSJg7TA)X5 zABjYLg8;oVI@WX#_`J~v-hcjTuc@Km2+x1w*Uy}28%A@V($F6U{)xYet89Jd^>=Sx z*VNIuZuOrYe7F3hmF}GxtM^vT*x(QLgtkQhmV2v2t1l8U`h1Mq81X2bQGbBZI!5b_ zu-^zq8ExdWhJX=?NaA-nv?6Q__4~by!i*Y1!Du)n)1uz0jOI{ykUxLPIgNfJ5b9%K zCRsh&)zc6SOJ1hL4WYp)xRksLEuIdUDc3y;|GIKXltPL53)e0Xvp;^pql+}>3OGl! zUwPWTNuG*kD2umQ=f~<6i#5AQ6?uoCl zEsQOdD=b(3?+TedK1sI~IlpM0M>g$l-$+}ScY74-Ws%D1HDG#|3KXU~!DQlM6X{}( zRI&JvY_{@m$@Hxm)AL0-zZd9+j;pvm*Erj(OwRmWTan`qnN>SIDV}f7)=K0kxl_DG zdy(VLui+I>@s8MYVhxhF!}PfG%e{vD8OxeO0p4r}2vq`qfH#MM(A9Om$Z#O)1gEOc zysw$Bz)B<76Yx2~q3Sc(A(^~UH*|9<+Gs?LUdVdqGY(Fs_JUKcsb+ExD{Ms?S1|(q z`we+qM&X}ZhF*n@`FktCdzgw$ljm68MzH4#=}fKw0pJf3Sls)V;7b#1%ZH=UP;j$c#RfiAV9}3o+@FqHT783| z%`y@JOTh^a4W>hmrXGKEbE`i%z52qu^UT?r=9nkPXA%$m21kY`Bk?;Ox$Q;ouwx`m zojpZ0wok9;zRsKn)10Xxze>qN>p|QxRre>3+}n$0vEz|+j&-tbixKP_=GTemkOh>sIX9dU;x#q_-lFSP*|Q zOUK%iKg%jdY&`kSoVyU!cxm?Ss$0?^etmXMd|S58VvBd#XSrvm++SJ9m+!Y4KcAI* z@-Nw>RJ4!QWDYy_9Ozd7_B@=00Jq|H*5CPU=boz%zw$}@`VEU;-`)Dj?#|EmTwDB7 zXaD^8$F3r^jwxqb;`wurYe(cruZ<290LCxQ&Bl_GSLVKnu~P)vegfQ2IwnZ4m10lH zX@R{0KM;6LpjF@}0__4F0=F2;!1n~+FL1lS z2Lv7zxJ%&g1wJnDu)t>pUKIG8z`qKN{XpOk1s)anH-T>n{Hefy2z*}P(*nOQ@PNQ) z1SSQZ75F`YFA6*-@Fjtx0v{6iion+d?iBc_z{dpsS>Tfb_X>PU;HLtS1ZJ>Y5qLr1 z?*zUr@O^mAflMg@oI+j;a07xP?HY9|kC zjmliwc#PXV&WROP3|Oer#h``7Mb(~^k+cDAf+{t$;^CQ=&{}e{Som9tm1-0Z1uxQ2 z2OgqE_HcF18PallpKb6RPClZjqWO=I~LMC z)zp$jt6dy$P??*Jo|-k+t<^RuR@}r%N65vNU3QI3jI>PJ`)Kb({IlDZ7OKw?nJlJ4 zi;0$#+vGNRsK8V}mB}_$WviP?OgZtj`Zr?72%aJjU%<-vfwKhs%grUoN)Qn^6J#RD zNsvn5;eC6{3#iVO)Y>JvJexv-CB+if)s{0{NKiW= zxp&lENKg?$U4lvomM5r`b&Vu8H#RZRL(q6guBDCF$d~T8)EiGoy@l@_>oWu~Hor-M z^C|smO2003_a9RF4XJx-C~CT?44G+Q3)`a~U6)??x74Rq6Wvr^REY!U3>w(U=;fQK zI4T^!kde}vQo}5%FVB(st$_i$8B^XL2ynvHfg#qP&XWNfw2uVy<<}fqAWbeUlIFZp zF3lpUlBS%NN(0NJZlb11vr3v()GAFYt(9gibxPAoUD9;XmTDg95!xitSd5;&XN*P< zz>wn@HLGXni3~VHhcc39=#=~#&qy94V@7hE>g~+APL=9)`ZPH~qx>HN+~hNoq442T zh%yu{d6UYLsFWqmN_`HqGnM5cQ>ii~`A$pvJVjOKDb-27-V!cixMUII8fEXY3@BT- mOxdV5DI3Kyqo59T6->aoYU=1TRj5M~sRnB+0%2l^RZZBrcFdTx zHPJoie&6}dx$oR}-}MXaw_0b+0kGaG130jG{lOWI1uHkN@1OzEsRu&t0X_N?hTv0I z?~ca&{Q$jLYgTUE?)S#_e0}`JiH(Dpyo}3Edg#d+@yEQ2vepGczVOZ{!1uk2M5jL* z)wlT>Eoa0Px?_PLqYg%E^+-Su#Tc#Sv?W138kNHJ99kOD2l@hDMnOhP!l76sEYm{X zMaH&pq@Sn9Ij1F{2gBPKOv&OgpMOa#B4tRato~_OP2O^odyPz#Ee*llS975fDzhI@ zdtv79JjY#{$Y`!ZY1Q)Mt`*-ScTF3(p~Cq<>rQ@ZFNhDp(!aO1!3MF{<0>_*_6K`y z;8IJ~)&7vrAF%hJ z(YEkl$j1qnH4L!3q~UgUA8EN#uX|(uNVFpm?TPh*dQY?d7a3dQ?;l`(LKCu77jI}U zm@aDQwm}V~953@7$a@42Qx<^5m5k(-S1y+wRxAIvLza(C%kwPu>NY8FGCnL9nGNX$ zx~JhX?qq_q#;3E^St_i{WLEvdNy&p2ySc)^y2)wXd#r2!4qc9te(3!C!g#0D4IB0s z{O7emX;xEPILPnC3aTnWAjtd3KxpbJe{?Vyvq6EX&3LMf&u+UO@&)}iu&7!V6H=Ml z>+DptMUUydU>*C0gXz>>D3Cpsq@Q7FUWJ*f=)u6#x_q-k@YR-q3$Us5fCs$CsKSsw zfgt}Zr9zTZOZn}Ct173hQ6vaNAq?k^ByZ)OpEdzL&n2Vg2b z$bw}VL0w9L}%w^R~?3gBoXUfZuH1* zfC8PL@nAZXJXbKYyS~#(zd&9wERH(l9}Sy&RU*_?5sd0>2dawLr7Ln*wtMS_EDf zI3Vx?fm;QBEbtEk|0M8Dftv(g5%`3_O9H{n(3jC44ivph)_=><+1%4#( zh`>J!j2{#Dn!q;%UKaS7z_$hdRp2`UUle#i;30u83A`upJ%PIfo)-ANz%v4$7Pv>? zhXT(E{Gq@hfzJy3MBrY5F9_T(a6;fW0>2e_Rp4(0o)`GJz`qH+A@Cmp?+CnW<`x@_ zalQ$ieC5_*j?&1tT_fM8U06f{OL&y>n8%}m$9xiIz8iRxoT*LvrNexfYB;rwno^^J ze(onKe}^h;)a9fuE3NR5c8pdP)4LAVIjGV?F1BWJJIrIe-(yr3Cr>W+nyALXsDp=t zYTYR(W!uf;#QTW@Ysa)t7R3<&8kHm)w4v`DMR+D`3 zT>}2+tt2Q&5E0lCWFRO^kV@d-Ge}UJAQOQzL1qFi!Rg4=|-39=HDC%93lNRW-7 zGC_p|t^~IY?gSMRc*Y4-Lv77Peo+K9hb4;F)ox6XMo^ohFkD=h&FhyD)J@80{o;EG znoF>FOrpo?Pba9Hpgutr1dR#ad}u6@X)VnqoaQ2EJ}4i4#ZhVV-v7&a`|EPH@hxee z;17!JXv&^Q*;5pk)UQ+EH_~o7m$Db6-C9L4!=w_L@NHrD_7~SAY5Gdq)2e|cl`|@F z;DblW_bj8cw`C-+cJXN_#h+E#19*Y4bw- zb2>}Tj8r6DHkC>T^Q0}I`Ds@rT`5&dH;)!cH=iDru8JC@tEP>0yv}B7lIR(FY58Fq zdIbioN2yI6rGybi>8NpPlujAp2ctA@oH|N+*3=j^T3B?AYSn9WcWRs(3mM*~W^tR0 zhAI96`BxcGQB_pxrud_jFrQ&Q!xH5{lMy_t<|&)h`N}3SPx)|aK96eUhFYz(DpOU; P4n=KJG~g_f7W97ueW9@W diff --git a/Main.dfm b/Main.dfm index db879a6..6b3de4d 100644 --- a/Main.dfm +++ b/Main.dfm @@ -13,6 +13,7 @@ object FormMain: TFormMain Font.Style = [] OldCreateOrder = False Position = poDesktopCenter + OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -94,7 +95,7 @@ object FormMain: TFormMain Text = '0' end object UpDown_MinCharacters: TUpDown - Left = 110 + Left = 108 Top = 59 Width = 16 Height = 21 @@ -111,7 +112,7 @@ object FormMain: TFormMain Text = '0' end object UpDown_MaxCharacters: TUpDown - Left = 241 + Left = 239 Top = 59 Width = 16 Height = 21 diff --git a/Main.pas b/Main.pas index 62a47c0..b2de896 100644 --- a/Main.pas +++ b/Main.pas @@ -24,9 +24,10 @@ TFormMain = class(TForm) Label_WordsFoundNumber: TLabel; procedure FormShow(Sender: TObject); procedure Button_FindWordClick(Sender: TObject); - procedure UpDown_MinCharactersClick(Sender: TObject; Button: TUDBtnType); - procedure UpDown_MaxCharactersClick(Sender: TObject; Button: TUDBtnType); procedure ComboBox_LanguageSelect(Sender: TObject); + procedure UpDown_MaxCharactersClick(Sender: TObject; Button: TUDBtnType); + procedure UpDown_MinCharactersClick(Sender: TObject; Button: TUDBtnType); + procedure FormKeyPress(Sender: TObject; var Key: Char); private { Private declarations } dictionary, dictionaryList : TStringList; @@ -96,6 +97,14 @@ procedure TFormMain.ComboBox_LanguageSelect(Sender: TObject); dictionary.LoadFromFile('dictionaries\' + dictionaryList[ComboBox_Language.ItemIndex] + '.txt');; end; +procedure TFormMain.FormKeyPress(Sender: TObject; var Key: Char); +begin + if Key = Chr(VK_RETURN) then + begin + self.Button_FindWord.OnClick(Sender); + end; +end; + procedure TFormMain.FormShow(Sender: TObject); var I: Integer; @@ -105,7 +114,6 @@ procedure TFormMain.FormShow(Sender: TObject); dictionaryList := ListFiles('dictionaries','*.txt'); - ComboBox_Language.Items.BeginUpdate; ComboBox_Language.Items.Clear; @@ -113,10 +121,12 @@ procedure TFormMain.FormShow(Sender: TObject); ComboBox_Language.Items.Add(dictionaryList[i]); ComboBox_Language.Items.EndUpdate; - + ComboBox_Language.ItemIndex := 0; ComboBox_Language.OnSelect(Sender); + FormMain.KeyPreview := True; + Memo_Words.Clear; end; diff --git a/WordsFinder.exe b/WordsFinder.exe index f1bb9f1eca9dcda968e20d945c01dba4725692cb..dcc5f2588f1800650909805f2bd0c351e0751c0b 100644 GIT binary patch delta 2345 zcmZve4@?tR9LL|$-W}o}m{tVEtw!B2GYX~m3Ypo7dev=iGD}r-2Aze}31Sc;+t_GU zK)TyG~_4oU| z&wbzT_j|9GbNMn{zKpI!LU%9F+%lUuo!~fhYT1&OuLzcCy-Fl3A_#{&U3WZPN1!_a z-PqPk={j=lU(a|I4m3@0;KxZ0;Hy$98YQy{qE_PnAzvj-6i5cX1S?3iR#cYToE68G z03Uk9u%WuDs^W05_26O0&WcLM#BS2c058&R$T zb0IkiyY~KF^3t1OrNLiK4RU{g;WWV>>LpMUn&oUUV~l)b)8a#0}yxV|^Qd&~bxMzU(+xZ9X>p|O&ojKolUJrVZ>}ZbP z?)*hOJ5CyMz2k~fimKupqg@t|+Z)tbL7yJ&9zQ5=MJk>~FV=1R1dpzIRIQvRJ{TuU zi4&sj5t(V~FbY;M=&D9D1m9SOu@t3w6qORo{dc4(a6x(dCY*M+*zt(WU$Z8tDEzIN z4MxtM0bxC`@wcZ#^QPycC&DA9gvix(JII;N&a`tk6IMK22p6>~HfeJnLH3SVOXqGz zTh`#4RFndqi^yT*7RcZL>ho=(p$mnDwtHyo)uVdle$-ojDk^lNXwDDvZ^u!nt$T7m z%9sn`eaW4cv&mn-9X(Y(n|uLTv68b;0{q_4!2Qy7VP$wM7T=5FQ)^Bg9Nk8Inj-Q~ z8*pp##Ei$}^5?t*W@eXtB3$%0j|2G&9stcOjo6}Ce!JPSKv7wm>U7=$4hfxwbs zFVv3pL!wqjjS-3BmLQ$2xMZ}$;ARqVwNt=_eXPIDM=gv27@4I9AVA^iDWFaZ zkX68CEg+G8qHsqG$W#Hzy&5@eQ30$L;8Xz>T0oNuIHLtzPys_)KtKg3{{zq)QC0zK z`{Js=9Z1BlO?2T_7i$5TD&SKsV2cX4rUf`vz=#&mqynD%QX|O=Dqx!y5KsYiT7awq zE^7gav!3+fPCS5*T&4<0?vG0n16x!8s|7e!K!q02qyo+$0RKTGsh=uIsH>Yk&p1i_ z6&e_(vW<>uasKK!e|?-^80S0V{MtDG2Cov*Uq|&3(-;3z5?my1W%rO7} delta 2291 zcmZvc4@?tR9LL|a+_la`+(ZFoPUD}kY*Pxo2gy1Q#X~fxgj$99ry#8s|4@SvNcN{q z3argpH)QN|S;Ac0h6|ZY30D}-E@iGWnwe!TWO30%Opd6r#tO9{xAzLvv%5>~-S78% zpL@UG@B7}J)0g4&Wprx^HSLYS+QmrHk5rAsC|U0-;JJh+VF9^~dRI0^KTf zV>?MmSCgwByzG`(;C{w}8`CZd!C$-u2D1lmG-?O~(M-mnOq zL9e8&tFNoG*O&{dYb-nLwU&ZI)l~Q+7H&@pb*eYu)tLm(^N2lk9 z&^%v}s#&;rF&H2UL27~h@Lu~md!xCyvSxpM<$kNtddON;$Jah4m#aQ?^QRt@dAVJP zv`ASN&l1kns0Kj%C?ZM8m;4?!%(c|dI#H) zvoqk$2S#paI<#qeKDOn*^2HJIEyqG~Mxq&AKBuFShmGJy9wg078f|(6ZjVc|aRb_u zX5XYFm2m8Y2#capiD;-of)06`yHVKNK8(h`B-EoAL7H(>QEv~5=KLw9yHTjUXObU_ zkn^@o?u{K3pHUn}R=mkDO3&?%1V+9#plyB#h2``e%BEE~PE>5xS0c(oOVN^clL7?xMTt9@N$=j12K3;#TkD4C`FfuC%fFOmZrvQf%Aj*JqN`O}L ze1%&|K&A{x?o+6tNCq%UfK3M2l>oO4=uiSWWxyXwKu`uq{{zrJPLu(w`xCmr3TW|< z5M5Ymvl5Ug13pm#ie$hgCBP;F9x4HD8SvUq3PpCxfUQbEPzE@Z08s{0`_$3LxCBbhzubJ~g!eheOOO#kDeE*83T}{;R`3p2RRF43DzQO0GYAy?8 Nnr2+hca4*2{{e&;>o5QS diff --git a/WordsFinder.groupproj.local b/WordsFinder.groupproj.local deleted file mode 100644 index b1d7d6c..0000000 --- a/WordsFinder.groupproj.local +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/WordsFinder.identcache b/WordsFinder.identcache new file mode 100644 index 0000000000000000000000000000000000000000..db6a86e879a176dfac03ab1848226b8336e07881 GIT binary patch literal 111 zcmZQ#U|`U3v5IleEb%B!iV4pzN-5TL%gjqjEs7~AD$UD=2th>jQVNQI>ft~YuSVa* O%sjn<#A3K|AOiqMY#$f^ literal 0 HcmV?d00001