• R/O
  • SSH
  • HTTPS

id3v2editorplus: コミット


コミットメタ情報

リビジョン46 (tree)
日時2020-03-08 06:04:14
作者derekwildstar

ログメッセージ

Adequação para usar o novo Krakatoa
Correção do Access Violation ao tentar salvar o ID3v1

変更サマリ

差分

--- trunk/V2/prj/ID3v2EditorPlus.dpr (revision 45)
+++ trunk/V2/prj/ID3v2EditorPlus.dpr (revision 46)
@@ -2,7 +2,7 @@
22
33 uses
44 Vcl.Forms,
5- KRK.Lib.Vcl.Forms,
5+ KRK.Vcl.Forms,
66 Vcl.Themes,
77 Vcl.Styles,
88 UFORMPrincipal in '..\src\UFORMPrincipal.pas' {FORMPrincipal: FORMPrincipal},
--- trunk/V2/prj/ID3v2EditorPlus.dproj (revision 45)
+++ trunk/V2/prj/ID3v2EditorPlus.dproj (revision 46)
@@ -117,7 +117,6 @@
117117 </DCCReference>
118118 <DCCReference Include="..\src\UDAMOPrincipal.pas">
119119 <Form>DAMOPrincipal</Form>
120- <FormType>dfm</FormType>
121120 <DesignClass>TDataModule</DesignClass>
122121 </DCCReference>
123122 <DCCReference Include="..\src\lib\bass.pas"/>
@@ -128,12 +127,10 @@
128127 <DCCReference Include="..\src\UBassUtils.pas"/>
129128 <DCCReference Include="..\src\UFORMSobre.pas">
130129 <Form>FORMSobre</Form>
131- <FormType>dfm</FormType>
132130 </DCCReference>
133131 <DCCReference Include="..\src\UClassesETipos.pas"/>
134132 <DCCReference Include="..\src\UFORMEditarSYLT.pas">
135133 <Form>FORMEditarSYLT</Form>
136- <FormType>dfm</FormType>
137134 </DCCReference>
138135 <BuildConfiguration Include="Release">
139136 <Key>Cfg_2</Key>
--- trunk/V2/src/UDAMOPrincipal.pas (revision 45)
+++ trunk/V2/src/UDAMOPrincipal.pas (revision 46)
@@ -293,18 +293,15 @@
293293
294294 procedure TDAMOPrincipal.SalvarID3v1;
295295 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);
308305 end;
309306
310307 procedure TDAMOPrincipal.SalvarID3v2;
@@ -724,11 +721,16 @@
724721
725722 procedure TDAMOPrincipal.ImportarTextoSYLT;
726723 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;
732734 end;
733735
734736 procedure TDAMOPrincipal.ImportarTextoUSLT;
旧リポジトリブラウザで表示