| Revision | 46 (tree) |
|---|---|
| Time | 2020-03-08 06:04:14 |
| Author |  derekwildstar |
Adequação para usar o novo Krakatoa
Correção do Access Violation ao tentar salvar o ID3v1
trunk/V2/prj/ID3v2EditorPlus.dpr (diff) trunk/V2/prj/ID3v2EditorPlus.dproj (diff)
trunk/V2/src/UDAMOPrincipal.pas (diff)| @@ -2,7 +2,7 @@ | ||
| 2 | 2 | |
| 3 | 3 | uses |
| 4 | 4 | Vcl.Forms, |
| 5 | - KRK.Lib.Vcl.Forms, | |
| 5 | + KRK.Vcl.Forms, | |
| 6 | 6 | Vcl.Themes, |
| 7 | 7 | Vcl.Styles, |
| 8 | 8 | UFORMPrincipal in '..\src\UFORMPrincipal.pas' {FORMPrincipal: FORMPrincipal}, |
| @@ -117,7 +117,6 @@ | ||
| 117 | 117 | </DCCReference> |
| 118 | 118 | <DCCReference Include="..\src\UDAMOPrincipal.pas"> |
| 119 | 119 | <Form>DAMOPrincipal</Form> |
| 120 | - <FormType>dfm</FormType> | |
| 121 | 120 | <DesignClass>TDataModule</DesignClass> |
| 122 | 121 | </DCCReference> |
| 123 | 122 | <DCCReference Include="..\src\lib\bass.pas"/> |
| @@ -128,12 +127,10 @@ | ||
| 128 | 127 | <DCCReference Include="..\src\UBassUtils.pas"/> |
| 129 | 128 | <DCCReference Include="..\src\UFORMSobre.pas"> |
| 130 | 129 | <Form>FORMSobre</Form> |
| 131 | - <FormType>dfm</FormType> | |
| 132 | 130 | </DCCReference> |
| 133 | 131 | <DCCReference Include="..\src\UClassesETipos.pas"/> |
| 134 | 132 | <DCCReference Include="..\src\UFORMEditarSYLT.pas"> |
| 135 | 133 | <Form>FORMEditarSYLT</Form> |
| 136 | - <FormType>dfm</FormType> | |
| 137 | 134 | </DCCReference> |
| 138 | 135 | <BuildConfiguration Include="Release"> |
| 139 | 136 | <Key>Cfg_2</Key> |
| @@ -293,18 +293,15 @@ | ||
| 293 | 293 | |
| 294 | 294 | procedure TDAMOPrincipal.SalvarID3v1; |
| 295 | 295 | begin |
| 296 | - with TFORMPrincipal(Owner) do | |
| 297 | - begin | |
| 298 | - { Informações básicas } | |
| 299 | - FID3v1Tag.Title := LAEDID3v1Titulo.Text; | |
| 300 | - FID3v1Tag.Artist := LAEDID3v1Artista.Text; | |
| 301 | - FID3v1Tag.Album := LAEDID3v1Album.Text; | |
| 302 | - FID3v1Tag.Year := LAEDID3v1Ano.Text; | |
| 303 | - FID3v1Tag.Comment := MEMOID3v1Comentarios.Text; | |
| 304 | - FID3v1Tag.Genre := CMBXID3v1Genero.Items[CMBXID3v1Genero.ItemIndex]; | |
| 305 | - FID3v1Tag.SaveToFile(TFORMPrincipal(Owner).LIBOListaDeReproducao.Items[FIndiceDoArquivoAtual]); | |
| 306 | - ReiniciarStatusDeModificacao(cId3v1); | |
| 307 | - end; | |
| 296 | + { Informações básicas } | |
| 297 | + FID3v1Tag.Title := TFORMPrincipal(Owner).LAEDID3v1Titulo.Text; | |
| 298 | + FID3v1Tag.Artist := TFORMPrincipal(Owner).LAEDID3v1Artista.Text; | |
| 299 | + FID3v1Tag.Album := TFORMPrincipal(Owner).LAEDID3v1Album.Text; | |
| 300 | + FID3v1Tag.Year := TFORMPrincipal(Owner).LAEDID3v1Ano.Text; | |
| 301 | + FID3v1Tag.Comment := TFORMPrincipal(Owner).MEMOID3v1Comentarios.Text; | |
| 302 | + FID3v1Tag.Genre := TFORMPrincipal(Owner).CMBXID3v1Genero.Items[TFORMPrincipal(Owner).CMBXID3v1Genero.ItemIndex]; | |
| 303 | + FID3v1Tag.SaveToFile(TFORMPrincipal(Owner).LIBOListaDeReproducao.Items[FIndiceDoArquivoAtual]); | |
| 304 | + ReiniciarStatusDeModificacao(cId3v1); | |
| 308 | 305 | end; |
| 309 | 306 | |
| 310 | 307 | procedure TDAMOPrincipal.SalvarID3v2; |
| @@ -724,11 +721,16 @@ | ||
| 724 | 721 | |
| 725 | 722 | procedure TDAMOPrincipal.ImportarTextoSYLT; |
| 726 | 723 | begin |
| 727 | - if OPDITXT.Execute and FSYLT.ImportarTexto(OPDITXT.FileName,(FSYLT.Count = 0) or (Application.MessageBox('Deseja adicionar uma nova letra? Se você responder "não", apenas o texto da letra atual será substituído','Nova letra?',MB_ICONQUESTION or MB_YESNO) = IDYES)) then | |
| 728 | - begin | |
| 729 | - Application.MessageBox('Texto da letra importado com sucesso!'#13#10#13#10'Caso ele não possua rótulos de tempo será necessário realizar a sincronização manualmente na tela de edição e sincronização','Importação concluída',MB_ICONINFORMATION); | |
| 730 | - DefinirStatusDeModificado(cId3v2); | |
| 731 | - end; | |
| 724 | +{ TODO : coloque os botoes de importação e exportação de sylt na tela principal | |
| 725 | +e habilite o uso das funções normalmente na tela de edição, crie os botoes | |
| 726 | +carregar e salvar, este sim, carregando e salvando, para e do TValueListEditor } | |
| 727 | +// Não utilize o código comentado, ele importa diretamente para FSYLT, o que | |
| 728 | +// tornaria a tela de edição inútil | |
| 729 | +// if OPDITXT.Execute and FSYLT.ImportarTexto(OPDITXT.FileName,(FSYLT.Count = 0) or (Application.MessageBox('Deseja adicionar uma nova letra? Se você responder "não", apenas o texto da letra atual será substituído','Nova letra?',MB_ICONQUESTION or MB_YESNO) = IDYES)) then | |
| 730 | +// begin | |
| 731 | +// Application.MessageBox('Texto da letra importado com sucesso!','Importação concluída',MB_ICONINFORMATION); | |
| 732 | +// DefinirStatusDeModificado(cId3v2); | |
| 733 | +// end; | |
| 732 | 734 | end; |
| 733 | 735 | |
| 734 | 736 | procedure TDAMOPrincipal.ImportarTextoUSLT; |