Ahora a las imágenes
el código
https://gist.github.com/anonymous/5743525
Aquí si hay un cambio importante en el botón de cargar imagen, yo ya he hecho el cambio en el resto de los módulos, el código queda de la siguiente manera
Código Delphi
[-]procedure TFImagenes.SpeedButtonBC1Click(Sender: TObject);
begin
CargaIimagenADBImagen(OpenPictureDialog1,DBImage1);
end;
y la función es
Código Delphi
[-]
function CargaIimagenADBImagen(Dialog:TOpenPictureDialog;Dbimage:TDBImage):Boolean;
var imagem : TPicture;
begin
if Dialog.Execute then
begin
try
imagem:=TPicture.Create;
imagem.LoadFromFile(Dialog.FileName);
Clipboard.Assign(imagem);
Dbimage.PasteFromClipboard;
imagem.Free;
Result:=True;
except on E: Exception do
Result:=False;
end;
end;
end;
También se realizaron cambios en mi módulo de datos (DM.pas) el código añadido es el siguiente
Código Delphi
[-]
uses Fun;
....
procedure TDM.DataModuleDestroy(Sender: TObject);
begin
QuerryOC(IBQIMAGENES);
QuerryOC(IBQNOTAS);
end;
y una imagen de como va quedando
Como ya comente, el código y uno va evolucionando, así que seguirá habiendo cambios.
De momento que tal os va pareciendo, es muy pesado, esta claro?, es que como hay tan pocos comentarios, no se si estoy aburriendo al personal.