Scaramanga a écrit:-Insérer du texte, effet surligneur, dessiner à la souris, insérer des fléches.
Burnitall a écrit:Scaramanga a écrit:-Insérer du texte, effet surligneur, dessiner à la souris, insérer des fléches.
Interressant.
function SendMail(const Subject, Body, FileName,
SenderName, SenderEMail,
RecipientName, RecipientEMail: string): Integer;
var
Message: TMapiMessage;
lpSender, lpRecipient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
begin
FillChar(Message, SizeOf(Message), 0);
with Message do
begin
if (Subject <> '') then
lpszSubject := PChar(Subject);
if (Body <> '') then
lpszNoteText := PChar(Body);
if (SenderEmail <> '') then
begin
lpSender.ulRecipClass := MAPI_ORIG;
if (SenderName = '') then
lpSender.lpszName := PChar(SenderEMail)
else
lpSender.lpszName := PChar(SenderName);
lpSender.lpszAddress := PChar(SenderEmail);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;
if (RecipientEmail <> '') then
begin
lpRecipient.ulRecipClass := MAPI_TO;
if (RecipientName = '') then
lpRecipient.lpszName := PChar(RecipientEMail)
else
lpRecipient.lpszName := PChar(RecipientName);
lpRecipient.lpszAddress := PChar(RecipientEmail);
lpRecipient.ulReserved := 0;
lpRecipient.ulEIDSize := 0;
lpRecipient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpRecipient;
end
else
lpRecips := nil;
if (FileName = '') then
begin
nFileCount := 0;
lpFiles := nil;
end
else
begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($FFFFFFFF);
FileAttach.lpszPathName := PChar(FileName);
nFileCount := 1;
lpFiles := @FileAttach;
end;
end;
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else
try
@SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if @SM <> nil then
begin
Result := SM(0, Application.Handle, Message, MAPI_DIALOG or MAPI_LOGON_UI, 0);
end
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
if Result <> 0 then
MessageDlg('Error sending mail (' + IntToStr(Result) + ').', mtError,
[mbOK], 0);
end;
if Result <> 0 then
MessageDlg('Error sending mail (' + IntToStr(Result) + ').', mtError,
[mbOK], 0);
end;
Scaramanga a écrit:Pour les info-bulles, je me tâtais s'il fallait en mettre ou pas...le fait que tu l'ais remarqué me fait réfléchir...
if Result > 1 then
MessageDlg('Echec de l''envoi par mail'' (' + IntToStr(Result) + ').', mtError,
[mbOK], 0);
> L'insertion de texte n'est plus effaçable ! (surligneur et cie Ok)
Le texte inséré n'apparait pas sur l'aperçu.
Le soft reste au premier plan au lancement de l'aperçu, c'est bof je trouve.
L'envoi par mail ne fonctionne pas, message "error sending mail (-2147467259)" NB:J'utilise Windows Live Mail 2008.
Pas d'info bulle hormis sur l'icône du curseur.
Retardateur ?
Pour l'espace insuffisant, cela se produit avec le clic droit maintenu (qui produit le même effet que le clic gauche). Lorsque le clic droit débute dans le champ mais qu'on le fait sortir hors en relachant le clic, il se "vérouille". Lorsqu'on déplace la souris, le champ se crée même sans cliquer. Lorsqu'il est trop grand, Shoot2Png se met à consommer beaucoup de mémoire (+ de 300 Mo) et affiche le fameux message d'erreur (dont l'issue se termine par un inévitable CTRL+ALT+SUPPR Smile).
C'est clair, je te suis tout à fait , mais ça sera l'obejt d'un autre màj, il y a du taf pour implémenter ça !Côté ergonomie : le CTRL+Z dans le champ de travail, ça serait le top !
J'avais vu aussi un petit problème futile pour le dimensionnement. Lorsqu'on clique plusieurs fois dessus avec la même valeur de dimensionnement, l'image se dégrade rapidement.
Scaramanga a écrit:Si on capture le bueran en entier, et que l'on surligne toute la capture, c'est vrai que ça fait quelque méga, et c'est normal.
Retourner vers Le coin informatique
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité