• R/O
  • SSH
  • HTTPS

id3v2editorplus: Commit


Commit MetaInfo

Revision39 (tree)
Zeit2019-10-05 06:44:51
Autorderekwildstar

Log Message

UClassesAjudantes.pas

Ajustes em GetTextoANSI

UClassesETipos.pas

Incluído o campo FMime para manipulação desta informação na tela do programa
Corrigido o método Carregar
Erro marcador para lembrar de usar Graphic.ClassName para identificar a imagem

UDAMOPrincipal.pas

Implementado o método ImportarImagemAPIC

UFORMPrincipal.pas

Botões de importação e exportação de imagens adicionados
Ajustes nos alinhamentos

Ändern Zusammenfassung

Diff

--- trunk/V2/src/UClassesAjudantes.pas (revision 38)
+++ trunk/V2/src/UClassesAjudantes.pas (revision 39)
@@ -492,7 +492,8 @@
492492 repeat
493493 Read(Byte1,1);
494494
495- Result := Result + AnsiChar(Byte1);
495+ if Byte1 <> 0 then
496+ Result := Result + AnsiChar(Byte1);
496497 until (Byte1 = 0) or (Position = Size);
497498 end;
498499
--- trunk/V2/src/UClassesETipos.pas (revision 38)
+++ trunk/V2/src/UClassesETipos.pas (revision 39)
@@ -178,6 +178,7 @@
178178
179179 FImagem: TImage;
180180 FDescricao: TLabeledEdit;
181+ FMime: TLabeledEdit;
181182 FTipo: TComboBox;
182183 FProximaImagem: TAction;
183184 FImagemAnterior: TAction;
@@ -192,7 +193,7 @@
192193 procedure SetItem(AIndex: Integer; const AValue: TAPICItem);
193194 procedure Exibir(AIndice: Word);
194195 public
195- constructor Create(AImagem: TImage; ADescricao: TLabeledEdit; ATipo: TComboBox; AProximaImagem: TAction; AImagemAnterior: TAction; ASalvarImagem: TAction; ARemoverImagem: TAction; ASubstituirImagem: TAction; AContador: TLabel; AContadorSombra: TLabel);
196+ constructor Create(AImagem: TImage; ADescricao: TLabeledEdit; AMime: TLabeledEdit; ATipo: TComboBox; AProximaImagem: TAction; AImagemAnterior: TAction; ASalvarImagem: TAction; ARemoverImagem: TAction; ASubstituirImagem: TAction; AContador: TLabel; AContadorSombra: TLabel);
196197
197198 procedure Limpar;
198199 procedure Proxima(AUltima: Boolean = False);
@@ -1143,6 +1144,7 @@
11431144
11441145 try
11451146 StreamDaImagem.CopyFrom(ArquivoAPIC,ArquivoAPIC.Size - ArquivoAPIC.Position);
1147+ StreamDaImagem.Position := 0;
11461148 APIC.Imagem.LoadFromStream(StreamDaImagem);
11471149 finally
11481150 StreamDaImagem.Free;
@@ -1168,7 +1170,7 @@
11681170 Items[FIndice].TipoDaImagem := FTipo.ItemIndex;
11691171 end;
11701172
1171-constructor TAPIC.Create(AImagem: TImage; ADescricao: TLabeledEdit; ATipo: TComboBox; AProximaImagem, AImagemAnterior, ASalvarImagem, ARemoverImagem, ASubstituirImagem: TAction; AContador, AContadorSombra: TLabel);
1173+constructor TAPIC.Create(AImagem: TImage; ADescricao: TLabeledEdit; AMime: TLabeledEdit; ATipo: TComboBox; AProximaImagem, AImagemAnterior, ASalvarImagem, ARemoverImagem, ASubstituirImagem: TAction; AContador, AContadorSombra: TLabel);
11721174 begin
11731175 inherited Create(TAPICItem);
11741176
@@ -1175,6 +1177,7 @@
11751177 FIndice := -1;
11761178 FImagem := AImagem;
11771179 FDescricao := ADescricao;
1180+ FMime := AMime;
11781181 FTipo := ATipo;
11791182 FProximaImagem := AProximaImagem;
11801183 FImagemAnterior := AImagemAnterior;
@@ -1227,6 +1230,7 @@
12271230 FTipo.OnChange := nil;
12281231
12291232 FDescricao.Text := Items[AIndice].Descricao;
1233+ FMime.Text := Items[AIndice].TipoMime;
12301234 FTipo.ItemIndex := Items[AIndice].TipoDaImagem;
12311235 finally
12321236 FDescricao.OnChange := OnChangeOriginal;
@@ -1244,6 +1248,9 @@
12441248 if (FIndice = -1) or (AArquivo = '') then
12451249 Exit;
12461250
1251+ use esta informação para importar png ou jpg e para exportar de forma correta
1252+ OutputDebugString(PChar(Items[FIndice].Imagem.Graphic.ClassName));
1253+
12471254 // No futuro, verifique o tipo mime para salvar corretamente
12481255 Items[FIndice].Imagem.SaveToFile(AArquivo);
12491256
--- trunk/V2/src/UDAMOPrincipal.pas (revision 38)
+++ trunk/V2/src/UDAMOPrincipal.pas (revision 39)
@@ -582,6 +582,7 @@
582582 begin
583583 FAPIC := TAPIC.Create(TFORMPrincipal(Owner).IMAGAPIC
584584 ,TFORMPrincipal(Owner).LAEDDescricaoDaImagem
585+ ,TFORMPrincipal(Owner).LAEDTipoMimeAPIC
585586 ,TFORMPrincipal(Owner).CMBXTipoDaImagem
586587 ,ACTNProximaImagem
587588 ,ACTNImagemAnterior
@@ -675,7 +676,8 @@
675676
676677 procedure TDAMOPrincipal.ImportarImagemAPIC;
677678 begin
678-
679+ if OPDIPNG.Execute and FAPIC.ImportarImagem(OPDIPNG.FileName,Application.MessageBox('Deseja adicionar uma nova imagem? Se você responder "não", apenas a imagem atual será substituída','Nova imagem?',MB_ICONQUESTION or MB_YESNO) = IDYES) then
680+ Application.MessageBox('Imagem importada com sucesso!','Importação concluída',MB_ICONINFORMATION);
679681 end;
680682
681683 procedure TDAMOPrincipal.ImportarTextoUSLT;
--- trunk/V2/src/UFORMPrincipal.pas (revision 38)
+++ trunk/V2/src/UFORMPrincipal.pas (revision 39)
@@ -120,6 +120,9 @@
120120 Shape1: TShape;
121121 PNSBImportarUSLT: TPngSpeedButton;
122122 PNSBExportarUSLT: TPngSpeedButton;
123+ LAEDTipoMimeAPIC: TLabeledEdit;
124+ PngSpeedButton1: TPngSpeedButton;
125+ PngSpeedButton2: TPngSpeedButton;
123126 procedure PABOLetreiroPaint(Sender: TObject);
124127 procedure IMAGID3v2Click(Sender: TObject);
125128 procedure ID3v1Modificado(Sender: TObject);
Show on old repository browser