Subversion Repositories spacemission

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

Ýl(‰±3–<pDXWaveEdit.pasj½ö(rDXWaveEdit.DFMi½ö(dGraphicsÈCÒïgTPicture.GetBitmap´¬­QcdWavefTCustomWaveStreamŠGë®fTWave!4¶fTWaveObjectStreamsèg.TWaveObjectStreamk\¿{gTWaveObjectStream.Create 6Ö³gTWave.ClearÊ!ÚgTWave.LoadFromFileÊ!ÚfTWaveFileStreamvqã!g.TWaveFileStreamÐZº
gTWaveFileStream.Createg4ÑEgTWaveStream.Open6¥¢gTWave.SaveToFileÊ!ÚcdDXSoundsfTDXSound!æfTAudioStreamMdgyg .TDXSound{ÏæñgTAudioStream.Stopd'UgTCustomDXSound.FinalizeóôtgTCustomDXSound.InitializeôôtgTAudioStream.GetFormatL'UgTDirectSoundBuffer.SetFormatÍàœœgTAudioStream.SetPositionZ'UgTAudioStream.Playb'Ug
.TAudioStream§M>egTAudioStream.Create`'UgTAudioStream.SetWaveStream\'UgTAudioStream.SetBufferLengthU'UgTAudioStream.Updatee'UcdComCtrlsÈCÒïf       TTrackBarÁ–$g
.TTrackBar€ûlgTTrackBar.SetPositionÂY¥gTTrackBar.SetMaxÄY¥cdButtonsÈCÒïfTSpeedButtonó՜ g
.TSpeedButtonM¿sgTSpeedButton.SetGlyphñ˜ŠDcdExtCtrlsÈCÒïfTBevelDq¸ fTImageð’{æfTTimerUFfTPanelENg.TBevelžZg.TImageJ|RÒg.TTimer¯x×1g.TPanelŸë${gTTimer.SetEnabledJRîicdStdCtrlsÈCÒïfTButton[PV.fTLabel¬n¼“g.TButtonµ9-g.TLabelX“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.ShowControlÜægTWinControl.InvalidateægTWinControl.RepaintægTWinControl.SetBoundsægTWinControl.UpdateægTControl.GetActionD9`gTControl.GetDragImagesJ9`gTControl.GetEnabledK9`g!TControl.GetFloatingDockSiteClassM9`gTControl.SetAutoSize\9`gTControl.SetDragMode]9`gTControl.SetEnabled^9`gTControl.SetName_9`gTControl.SetBiDiModec9`gTControl.InitiateAction¢9`gTControl.SetTextÿœ9`gTControl.GetText؜9`cdDialogsÈCÒïfTSaveDialogõtúfTOpenDialogI]Šg.TSaveDialogçÞKæg.TOpenDialog£FagTOpenDialog.GetFileNameJ x8cdFormsÈCÒïfTForm–g.TFormkðjgTCustomForm.AlignControls¾`þgTCustomForm.CreateParams¾`þgTCustomForm.CreateWindowHandle¾`þgTCustomForm.CreateWnd
¾`þgTCustomForm.DefineProperties¾`þgTCustomForm.DestroyWindowHandle¾`þgTCustomForm.DoCreate¾`þgTCustomForm.DoDestroy¾`þgTCustomForm.GetClientRect¾`þgTCustomForm.GetFloating¾`þgTCustomForm.Loaded¾`þgTCustomForm.Notification¾`þgTCustomForm.PaintWindow¾`þgTCustomForm.QueryInterface¾`þgTCustomForm.ReadState ¾`þgTCustomForm.SetParentBiDiMode#¾`þgTCustomForm.SetParent%¾`þgTCustomForm.UpdateActions&¾`þgTCustomForm.ValidateRename(¾`þgTCustomForm.WndProc*¾`þgTCustomForm.Resizing+¾`þgTCustomForm.Createb¾`þgTCustomForm.CreateNewc¾`þgTCustomForm.Destroyd¾`þgTCustomForm.AfterConstructione¾`þgTCustomForm.BeforeDestructionf¾`þgTCustomForm.CloseQueryh¾`þgTCustomForm.DefaultHandleri¾`þgTCustomForm.SetFocusu¾`þgTCustomForm.SetFocusedControlv¾`þgTCustomForm.ShowModalx¾`þgTCustomForm.WantChildKeyy¾`þg%TScrollingWinControl.AdjustClientRectäžNTg&TScrollingWinControl.AutoScrollEnabledæžNTg%TScrollingWinControl.AutoScrollInViewçžNTgTCustomForm.Closeg¾`þcdClassesÈCÒïgTComponent.UpdateRegistrysv·égTComponent.WriteStatewv·égTComponent.SafeCallExceptionv·égTPersistent.AssignŒ6Í\fTStream‚A*âfTFileStreamÚ&fÓg.TFileStream4=¿gTFileStream.CreateÊéS÷gfmCreate39è¡gTStream.GetSizetgTStream.CopyFrom~cdSysUtilsÈCÒïg
fmOpenRead³DСgfmShareDenyWriteÓDСgAnsiCompareFileNameÂaþ!gFormatLS¬cdWindowsÈCÒïcdSysInitÈCÒïcdSystemÈCÒïfTObject÷! GfBooleanNˆcÇf
AnsiStringš8ÿñgTObject.Dispatchûä
kgTObject.NewInstanceýä
kgTObject.FreeInstanceþä
kfStringš8ÿñgTObject.Freeèä
kgFalse¦1ØogTrue§1Øog@LStrAsg˜w@g
@LStrArrayClr³¢Â¿g@HandleFinallyX,TdgExitg@LStrCatX,Tdg @LStrCatNX,Tdg@LStrClrãóˆceDXConstsgSWaveLength[újgSWaveFrequency-wšg
SWaveBitCountŠþªšg  SWaveMono»,zšgSWaveStereoÔ  ¢g    SWaveSizer¸¶c&.TDelphiXWaveEditForm€-?¤0*TDelphiXWaveEditFormˆºCh¸2 DelphiXWaveEditFormæÈ©¸2 .2f4( TDelphiXWaveEditForm.FormDestroy€ÌVÜ6!Self2!Sender(c(TDelphiXWaveEditForm.FormShow€ÆVܘ6!Self2!Sender(c("TDelphiXWaveEditForm.OKButtonClick€ÁVܘ6!Self2!Sender(c(&TDelphiXWaveEditForm.CancelButtonClick€ÂVÜ6!Self2!Sender(c(%TDelphiXWaveEditForm.ClearButtonClick€ÅVÜ^6!Self2!Sender(c($TDelphiXWaveEditForm.LoadButtonClick€ÃVÜù6!Self2!Sender( Streamc($TDelphiXWaveEditForm.SaveButtonClick€ÄVÜI6!Self2!Sender( Destf$ø Sourcef$ðc(TDelphiXWaveEditForm.SetPlaying€ÔVÜÉ6!Self2!Value*c(TDelphiXWaveEditForm.UpDateData€ÓVÜ¡6!Self2c(&TDelphiXWaveEditForm.DXSoundInitialize€ÇV܂6!Self2!Sender(c($TDelphiXWaveEditForm.DXSoundFinalize€ÈVÜ06!Self2!Sender(c($TDelphiXWaveEditForm.TestButtonClick€ÉVÜ6!Self2!Sender(c(TDelphiXWaveEditForm.TimerTimer€ÊVÜI6!Selff2ø!Sender(c(#TDelphiXWaveEditForm.TrackBarChange€ËVÜR6!Self2!Sender(c(Finalization€X,Td\! 6c(
DXWaveEdit€!6cG2…Fb½"¡
¹x©þ¸&,Bevel2Á,OKButtonÑ,CancelButtoná,
SaveDialogñ,
OpenDialog , PlayImage,  StopImage!,Timer1,DXSound
A,ClearButtonQ,
SaveButtona,
LoadButtonq,Panel1,TrackBar‘,
TestButton¡,LengthLabel±,FrequencyLabelÁ, TypeLabelÑ, SizeLabelá,LengthValueLabelñ,FrequencyValueLabel
,TypeValueLabel
,SizeValueLabel!
-
OKButtonClickîá-CancelButtonClickîí-LoadButtonClickî-SaveButtonClickî-ClearButtonClickîù-FormShowîÕ-DXSoundInitializeî=-DXSoundFinalizeîI-TestButtonClickîU-
TimerTimerîa-TrackBarChangeîm-FormDestroyîÉ,FChanged*1
,FAudioA
,FPlaying*Q
,FWaveStreama
,
FWaveFileName,q
,    FUpdating*
-
UpDateDataî5-
SetPlayingî)0Playing*þ€)€,Wave‘
cD4€ÿÿÿ@l¹5L<NâÞh\óðBevel2ôOKButtonøCancelButtonü
SaveDialog
OpenDialog        PlayImage StopImageTimerDXSoundClearButton
SaveButton
LoadButton Panel1$TrackBar(      
TestButton,
LengthLabel0
FrequencyLabel4
       TypeLabel8
       SizeLabel<
LengthValueLabel@
FrequencyValueLabelD
TypeValueLabelH
SizeValueLabel
OKButtonClickCancelButtonClickLoadButtonClickSaveButtonClickClearButtonClickFormShowDXSoundInitializeDXSoundFinalizeTestButtonClick
TimerTimerTrackBarChangeFormDestroyTDelphiXWaveEditFormTDelphiXWaveEditFormL\
DXWaveEdit‹€XèÃSV‹Ø‹³dƒ~~‹Î²¡è‰ƒX‹ƒ‹€hè‹Ð‹ƒ(è‹Ãè^[ÃS‹Ø3ҋÃ耻Lt.ƒ»Xu
‹ƒdèë‹“\‹ƒdèÇC‹Ãè[ÃèÃS‹Ø3ҋÃèƃL‹ƒXè3À‰ƒX‹Ãè[ÃU‹ìjjSV‹Ø3ÀUh±dÿ0d‰ ‹ƒ‹ÿR<„Àtn3ҋÃèj Uü‹ƒè‹Mü²¡è‹ð3ҋÆ苃X艳XUø‹ƒè‹Uøƒ\èƃL‹Ãè3ÀZYYd‰h¸EøºèÃéëë^[YY]ÃU‹ì3ÉQQQQQS‹Ø3ÀUhFdÿ0d‰ ‹ƒü‹ÿR<„À„ý3ҋÃ耻L„ˍUô‹ƒüè‹Uô‹ƒ\è…À„Ãj ‹‹\²¡è‰Eø3ÀUhdÿ0d‰ hÿÿUð‹ƒüè‹Mð²¡è‰Eü3ÀUhëdÿ0d‰ ‹EøèRP‹Uø‹Eüè3ÀZYYd‰hò‹EüèÃéëð3ÀZYYd‰h+‹EøèÃéëðU싃üè‹U싃dè3ÀZYYd‰hMEìºèÃéëë[‹å]ÃSV‹Ú‹ðŠ†T:Ø„Û„Àt73ҋ†苆P苆P‹P,‹†$苆è„Ûtx‹†苆Pè‹Ð‹†‹€„苆$‹(‹†P苆P貋†苆‹€hè‹Ð‹†(è닆‹€hè‹Ð‹†(舞T^[ÃU‹ì¹jjIuùSV‹Ø3ÀUhZdÿ0d‰ 3ҋƒ(‹ÿQd3ҋƒ$‹ÿQd3ҋƒ胻X„ز‹ƒ‹ÿQd²‹ƒ‹ÿQd3ҋƒ$苃X‹ÿR(‹Ð‹ƒ$貋ƒ(‹ÿQd²‹ƒ$‹ÿQdEüP‹ƒX‹ÿR(‰EðÛEðÛ}䛋ƒX‹ÿR ‹@‰EÜ3À‰EàßmÜÛmäÞñÛ}ЛEЉEôÆEøUô3ɸpè‹Uü‹ƒ<èEÌP‹ƒX‹ÿR ‹@‰EôÆEøUô3ɸ„è‹Űƒ@èEÈP‹ƒX‹ÿR ·@‰EôÆEøUô3ɸ”èEȺ¤è‹UȋƒD苃X‹ÿR f‹@fÿÈtfÿÈt+ëPUċ³D‹ÆèEĺ°è‹UċÆèë'UÀ‹³D‹ÆèEÀºÀè‹UÀ‹ÆèE¼P‹ƒX‹ÿR(‰EôÆEøUô3ɸÐè‹U¼‹ƒHèéðE¸P¸Ü‰EôÆEøUô¸p3Éè‹U¸‹ƒ<èE´P3À‰EôÆEøEôP¸„3ÉZè‹U´‹ƒ@èE¬P3À‰EôÆEøEôP¸”3ÉZèÿu¬h¤h°E°ºè‹U°‹ƒDèE¨P¸Ð3҉UôÆEøUô3Éè‹U¨‹ƒHè3ҋƒ‹ÿQd3ҋƒ‹ÿQd3ҋƒ$è3ÀZYYd‰haE¨ºèEÀºèEȺèEüèÃéëÉ^[‹å]Ãÿÿÿÿ%.4g secÿÿÿÿ%dHzÿÿÿÿ%dbitÿÿÿÿ ÿÿÿÿMonoÿÿÿÿStereoÿÿÿÿ%d bytesSV‹Ø‹ƒ‹HH²¡è‹ð‰³P‹“X‹ÆèºÈ‹ƒPè^[ÃS‹Ø‹ƒPè3À‰ƒP[ʐT€òèÃU‹ìQ‰Eü‹Eü‹€Pè‹Eü‹€P€x(tQ‹Eüƀ`3ÀUhndÿ0d‰ ‹Eü‹€P‹P,‹Eü‹€$è3ÀZYYd‰h‹Eüƀ`Ãéëî3ҋEüè‹Eü‹€$3ÒèY]ːP…Òt€¸`u‹ˆ$‹‰(‹Â‹ÑèÃU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-Ãmý¹¹¹½¹¹¹ºìîeòimêrÄÐÒØ 
àÖævtx’‚̆”–ΘšœžÜڢ⤊ŒŽü¼z¾ÀÂ|~Æ€„ÔˆôþäÈÊÞèðöøúq¹Yá(í0,,ù.Õ=0I,U,a"m*ÉN\l°²^`&bDNn½½4¹¸&Éu
Õ*
.P5á):&í
ù)$u5<) ´
u(´5…‰"D)6´E.%
)2´%
)15u‰u‰ ´…‰)Bd((F*,.&0.24d"P&P5.5ZdhF0HÒ5
I¦F5
I¦H5
I5
‘¦V¨5
‘¦$¨5
‘¦@5
I¦55I¦,5I¦,5I5
5•¦5&I¦NF5………™‰5= 6
8*: <IuU)
a">Ba@Fa ‰) FmH2
yyÅy‰}Å}‘]“áJíLNPùRÕT=VIXUZa\m^É`5p)ra