RichEdit->SaveToFile

[Saltimbanki]

Hola, estoy creandome un programilla que simula un diario con un un RichEdit.
A la hora de grabar los datos mediante SaveToFile si el RichEdit contiene imagenes el tiempo de grabacion es considerable y ya no estas seguro de si se ha quedado colgado o no. Mientras esta el SaveToFile ejecutandose como podria meter un ProgressBar para "seguir" la grabacion y no desesperarte ??

Ahora mismo lo tengo chapucero puesto que he creado un Form que lo visualizo ( Show ) justo antes del SaveToFile, mi intencion era poner hay una animacion en el Form pero se me "queda pillao" y solo muestra el Caption del Form.

Adjunto el Form que he diseñado para la accion de leer/grabar los datos del diario, como podria meter una animacion o un ProgressBar en este Form y que se visualoce en toempo de ejecucion ??

Gracias

[chenech]

Creo que deberías usar un Threading, creo que se llama así, no lo he usado nunca pero te permite tener una animación o una barra de progreso en paralelo a la ejecución del programa.
Aquí mismo tienes muchos ejemplos:
https://www.clubdelphi.com/foros/sho...ight=Threading

[navbuoy]

mira te he hecho un ejemplo con el TMS AdvRichEditor que es el que permite pegar imagenes con el portapapeles

//---------------------------------------------------------------------------

#include <vcl.h>

#include <fstream>  // Para manipulación de archivos

#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvRichEditor"
#pragma link "AdvRichEditorBase"
#pragma link "AdvScrollControl"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	ProgressBar1->Min = 0;
	ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) {
		String fileName = SaveDialog1->FileName;

		// Verificar si hay contenido en el editor
		if (AdvRichEditor1->LineCount() == 0) {
			ShowMessage("No hay contenido para guardar.");
			return;
		}

		int totalLines = AdvRichEditor1->LineCount();
		ProgressBar1->Max = totalLines;
		ProgressBar1->Position = 0;

		// Crear un archivo y guardar el contenido
		AdvRichEditor1->SaveToFile(fileName);  // Guardar directamente con SaveToFile

        // Simular progreso ya que SaveToFile no actualiza la UI
		for (int i = 0; i < totalLines; i++) {
			ProgressBar1->Position = i + 1;
			Application->ProcessMessages();  // Permite actualizar la UI durante el guardado
		}

		ShowMessage("Archivo guardado correctamente.");
	}
}
//---------------------------------------------------------------------------