Go to most recent revision | Blame | Last modification | View Log | RSS feed
Ý l( ‰±3 – <pDXWaveEdit.pasj½ö( rDXWaveEdit.DFMi½ö(dGraphicsÈCÒïgTPicture.GetBitmap´¬QcdWave fTCustomWaveStreamŠGë®fTWave!4¶fTWaveObjectStreamsèg.TWaveObjectStreamk\¿{gTWaveObjectStream.Create 6Ö³gTWave.ClearÊ!ÚgTWave.LoadFromFileÊ!ÚfTWaveFileStreamvqã!g.TWaveFileStreamÐZº gTWaveFileStream.Createg4ÑEgTWaveStream.Open6¥¢gTWave.SaveToFileÊ!ÚcdDXSounds fTDXSound!æfTAudioStreamMdgyg .TDXSound{ÏæñgTAudioStream.Stopd'UgTCustomDXSound.FinalizeóôtgTCustomDXSound.InitializeôôtgTAudioStream.GetFormatL'UgTDirectSoundBuffer.SetFormatÍàœœgTAudioStream.SetPositionZ'UgTAudioStream.Playb'Ug .TAudioStream§M>egTAudioStream.Create`'UgTAudioStream.SetWaveStream\'UgTAudioStream.SetBufferLengthU'UgTAudioStream.Updatee'UcdComCtrlsÈCÒïf TTrackBarÁ–$g
.TTrackBar€ûlgTTrackBar.SetPositionÂY¥gTTrackBar.SetMaxÄY¥cdButtonsÈCÒïfTSpeedButtonóÕœ g .TSpeedButtonM¿sgTSpeedButton.SetGlyphñ˜ŠDcdExtCtrlsÈCÒïfTBevelDq¸ fTImageð’{æfTTimerU FfTPanelENg.TBevelžZg.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.GetActionD9`gTControl.GetDragImagesJ9`gTControl.GetEnabledK9`g!TControl.GetFloatingDockSiteClassM9`gTControl.SetAutoSize\9`gTControl.SetDragMode]9`gTCon
trol.SetEnabled^9`gTControl.SetName_9`gTControl.SetBiDiModec9`gTControl.InitiateAction¢9`gTControl.SetTextÿœ9`gTControl.GetTextØœ9`cdDialogsÈCÒïfTSaveDialogõtúfTOpenDialogI]Šg.TSaveDialogçÞKæg.TOpenDialog£Fa gTOpenDialog.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.SafeCallExceptionv·é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ÿñgTObject.Freeèä kgFalse¦1ØogTrue§1Øog@LStrAsg˜w@g @LStrArrayClr³¢Â¿g@HandleFinallyX,TdgExit g@LStrCatX,Tdg @LStrCatNX,Tdg@LStrClrãóˆceDXConsts gSWaveLength[ú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(TD
elphiXWaveEditForm.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€ !6cG 2…Fb½"