提交分辨率自适应版本V3.1.0.1500

HP\李良庭

2025-07-08 868daf94f29ce1ffdd799a68c07bb668cd373bcd

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
ßfaJZ^ñ˜–<p    uMain.pascaJZr    uMain.dfmçXJZdsBitBtnßÛºfTsBitBtnï/šÄg    .TsBitBtnÖ½§cdButtonsÈCÒïcdXPManÈCÒïcdStdCtrlsÈCÒïfTEdit5$PÿfTButton7êÈeg.TEdit²Âág.TButtonx;HgTCustomEdit.SetSelText"÷¥cdDialogsÈCÒïcdFormsÈCÒïfTFormè±Ig.TFormïu$,gTCustomForm.AlignControlsmgaÈgTCustomForm.CreateParamspgaÈgTCustomForm.CreateWindowHandleqgaÈgTCustomForm.CreateWndrgaÈgTCustomForm.DefinePropertiestgaÈgTCustomForm.DestroyWindowHandleugaÈgTCustomForm.DoCreatewgaÈgTCustomForm.DoDestroyxgaÈgTCustomForm.GetClientRect{gaÈgTCustomForm.GetFloating}gaÈgTCustomForm.LoadedgaÈgTCustomForm.Notification€gaÈgTCustomForm.PaintWindow‚gaÈgTCustomForm.QueryInterface„gaÈgTCustomForm.ReadState…gaÈgTCustomForm.SetParentBiDiModeˆgaÈgTCustomForm.SetParentŠgaÈgTCustomForm.UpdateActions‹gaÈgTCustomForm.ValidateRenamegaÈgTCustomForm.WndProcgaÈgTCustomForm.ResizinggaÈgTCustomForm.CreateÇgaÈgTCustomForm.CreateNewÈgaÈgTCustomForm.DestroyÉgaÈgTCustomForm.AfterConstructionÊgaÈgTCustomForm.BeforeDestructionËgaÈgTCustomForm.CloseQueryÍgaÈgTCustomForm.DefaultHandlerÎgaÈgTCustomForm.SetFocusÚgaÈgTCustomForm.SetFocusedControlÛgaÈgTCustomForm.ShowModalÝgaÈgTCustomForm.WantChildKeyÞgaÈg%TScrollingWinControl.AdjustClientRect¸(#g&TScrollingWinControl.AutoScrollEnabledº(#g%TScrollingWinControl.AutoScrollInView»(#gTCustomForm.CloseÌgaÈcdControlsÈCÒïgTWinControl.AssignToê.¯gTWinControl.CanAutoSize“ê.¯gTWinControl.CanResize”ê.¯gTWinControl.ConstrainedResize–ê.¯gTWinControl.CreateHandle™ê.¯g#TWinControl.CustomAlignInsertBeforežê.¯gTWinControl.CustomAlignPositionŸê.¯gTWinControl.DestroyWnd£ê.¯gTWinControl.GetClientOrigin³ê.¯gTWinControl.GetControlExtentsµê.¯gTWinControl.GetDeviceContext¶ê.¯gTWinControl.SetParentBackgroundÏê.¯gTWinControl.ShowControlÑê.¯gTWinControl.Invalidateë.¯gTWinControl.Repaintë.¯gTWinControl.SetBoundsë.¯gTWinControl.Update ë.¯gTControl.GetAction6†`)gTControl.GetDragImages<†`)gTControl.GetEnabled=†`)g!TControl.GetFloatingDockSiteClass?†`)gTControl.SetAutoSizeN†`)gTControl.SetDragModeO†`)gTControl.SetEnabledP†`)gTControl.SetNameQ†`)gTControl.SetBiDiModeU†`)gTControl.InitiateAction”†`)gTControl.GetTextʅ`)cdGraphicsÈCÒïcdClassesÈCÒïgTComponent.UpdateRegistryŽŽòìgTComponent.WriteState’ŽòìgTComponent.SafeCallExceptionªŽòìgTPersistent.Assign§N`cdVariantsÈCÒïcdSysUtilsÈCÒïgTrim¬Jˆ¢cdMessagesÈCÒïcdWindowsÈCÒïgkeybd_event`GxÓg MapVirtualKey„ÃXgKEYEVENTF_KEYUPçœàÝg
VK_CONTROLöœàÝgVK_SPACEàÝg    VkKeyScançÍcdSysInitÈCÒïcdSystemÈCÒïfTObject¼„©_f
AnsiStringÔÿ×fStringÔÿ×fInteger¶¨§ gTObject.DispatchÀG—ƒgTObject.NewInstanceÂG—ƒgTObject.FreeInstanceÃG—ƒfWord¨§{¨g@LStrAddRefö³jg@LStrClrѨ}µg@HandleFinallyEóa‚g@LStrAsgƒ4µfCharÜÏ
ic4uMain€iif@c4Windows¸c4Messages¶c4SysUtils²c4Variants°c4Classes¦c4Graphics¤c4Controlsjc4Formsc4Dialogsc4StdCtrlsc4XpManc4Buttons
c4sBitBtnc&    .TfrmMain€fÂÓ*TfrmMainˆzOñ frmMainæàhñ
 .2f(SimulateKeyPressh!KeyCodec(SimulateCombinationKeyPressÐ!KeyCode1
!KeyCode2c(TfrmMain.InsertStringAtCursor€¢==Ú!Self!EditControl!Strføc( TfrmMain.DeleteCharsBeforeCursor€£==Â!Self!EditControl!Count
%
.
     CursorPos NewStartšEAc(TfrmMain.sBitBtn50Click€›==&!Self!Sender
c(TfrmMain.sBitBtn51Click€œ==Ö!Self!Sender
c(TfrmMain.sBitBtn52Click€=="!Self!Sender
c(TfrmMain.sBitBtn53Click€ž==´!Self!Sender
c(TfrmMain.btnZhClick€Ÿ==!Self!Sender
c(TfrmMain.Button1Click€ ==Ú!Self!Sender
 KeyChar KeyCodec(Finalization€Eóa‚\! cž(uMain€!cžþGÕF@Á
z©þ¼&,    edtSelectá,edtTextñ,    sBitBtn50
,    sBitBtn51,    sBitBtn52!,    sBitBtn531,Button27A,Button28Q,Button29a,Button30q,Button31,Button32‘,Button33¡,Button34±,Button35Á,Button36Ñ,Button1á,Button2ñ,Button3
 ,Button4 ,Button5! ,Button61 ,Button7A ,Button8Q ,Button9a ,Button10q ,Button11 ,Button12‘ ,Button13¡ ,Button14± ,Button15Á ,Button16Ñ ,Button17á ,Button18ñ ,Button19
,Button20,Button21!,Button221,Button23A,Button24Q,Button25a,Button26q,btnZh,Button37‘-sBitBtn50ClickîQ-sBitBtn51Clickî]-sBitBtn52Clickîi-sBitBtn53Clickîu-
btnZhClickî-Button1Clickî,glInkOutput¡-InsertStringAtCursorî%-DeleteCharsBeforeCursorî5cD€ÿÿÿP@leL@
R
ä^¬
¨,gø    edtSelectüedtText
    sBitBtn50
    sBitBtn51
    sBitBtn52
    sBitBtn53Button27Button28Button29Button30 Button31$Button32(Button33,Button340Button354Button368Button1<Button2@Button3DButton4HButton5LButton6PButton7TButton8XButton9\Button10`Button11dButton12hButton13lButton14pButton15tButton16xButton17|Button18€Button19„Button20ˆButton21ŒButton22Button23”Button24˜Button25œButton26 btnZh¤Button37sBitBtn50ClicksBitBtn51ClicksBitBtn52ClicksBitBtn53Click
btnZhClickButton1ClickTfrmMainTfrmMainL^uMainSVW‹ðjjj·þWèP‹ÞSèjjjWèPSè_^[ÃSVWU‹ò‹øjjj·ÇPèP‹ÇPèjjj·îUèP‹ÞSèjjjUèPSèjjj·ÇPèP‹ÇPè]_^[ÃU‹ìQS‰Mü‹Ú‹Eüè3ÀUhbdÿ0d‰ ‹Ã‹ÿ’ЋЋËÿ‘Ü3ҋËÿ‘Ø‹Uü‹Ãè3ÀZYYd‰hiEüèÃéëð[Y]ÃSVW‹ù‹Ú‹Ã‹ÿ’Ћð;þ%+÷‹Ö‹Ã‹ÿ‘܋׋Ëÿ‘Ø3ҋÃèë!3ҋËÿ‘܋֋Ëÿ‘Ø3ҋÃè_^[ÃV‹ð‹†ø‹ÿ’à^ÃU‹ìjjS‹Ø3ÀUh_dÿ0d‰ Uø‹ƒøè‹EøUüè‹Mü‹“ü‹Ãè3ÀZYYd‰hfEøèEüèÃéëè[YY]ù
‹üèÃU‹ìjS‹Ø3ÀUhOdÿ0d‰ Uü‹ƒüè‹Uüƒ¨è‹Ãè3ÀZYYd‰hVEüèÃéëð[Y]Ãfº f¸èÃU‹ìjSVW‹ò‹Ø3ÀUh`dÿ0d‰ ‹þƒ%Uü‹Çè‹EüŠPè苃ø‹ÿ’Ä3ÀZYYd‰hgEüèÃéëð_^[Y]ÃU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
Ãmi












 
¬
R
T
Ò
X
Ô
Ö
P
l
*
®
6
8
>
œ
¨
F
ª
<
L
p
n
r
Ž
|
2
€

’
4
”
–
˜
š
B
@
ž
H
 
†
ˆ
Š
Œ
b
"
t
$
&
(
v
x
,
z
~
:
‚
„
Z
d
f
J
.
0
D
N
V
\
^
`
Î

Q

Q*
]*
i*
u*
"
8






 ¼º¼º&¼º¼º¼º¼º%Ú
%d
%ÜÞ5lFQ&]
](¢´ %
]ÜÜÞi5
u
u(¢àh
uÜށ
 
0¢Ä
6
ÜÞ¡
¡
 
¡Þ
 bA
U
0&00&0
 
@,N
 
0œ
 
 ,8H4
Vh‘É’r“¸Ø
 "$&(*,.02 4"6$8&:(<*>,@.B0D2F4H6J8L:N<P>R@TBVDXFZH\J^L`NbPdRfThVjXlQpn
Zn]rp\pitr5^ruvtM`txvmbvzxdxf‚%†„Àh„5ˆ†Òj†    Žžž¬¬!¬)s;-À1À9“=ÒAÒIÖMÖUY
aem“{q5yz}M…a†‰m‘•™•™¡Å”t@p
`þ`ð
!!–þÆþ%@2-@-Òþ5Àp=A
I&I2þM2MJþAbþIxI¨þ=ºþQ@ UU"þ]@a0aÌþi@mm þu@y,y¬þ  p‘4•4•bþ™b™nþnxþ‘Îþ¡  a