Revision | 46 (tree) |
---|---|
Time | 2020-03-08 06:04:14 |
Author | ![]() |
Adequação para usar o novo Krakatoa
Correção do Access Violation ao tentar salvar o ID3v1
@@ -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; |