• R/O
  • SSH
  • HTTPS

instalikes: Commit


Commit MetaInfo

Revisión9 (tree)
Tiempo2019-11-13 12:15:59
Autorderekwildstar

Log Message

Incluída programação para incluir novas mídias ao se atualizar um usuário
Considerado o temporizador ao seguir os usuários

Cambiar Resumen

Diferencia

--- trunk/src/UDAMOPrincipal.pas (revision 8)
+++ trunk/src/UDAMOPrincipal.pas (revision 9)
@@ -1155,6 +1155,8 @@
11551155 end;
11561156
11571157 procedure TDAMOPrincipal.UpdateUser(const AInstagramUser: TInstagramUser);
1158+var
1159+ ME: TMedia;
11581160 begin
11591161 if FDCO.ExecSQLScalar('select count(id) from user where id = :id',[AInstagramUser.id],[ftString]) = 1 then
11601162 begin
@@ -1170,6 +1172,17 @@
11701172 FDTAUserfollowing.AsInteger := AInstagramUser.Following;
11711173 FDTAUsermedias.AsInteger := AInstagramUser.MediasTotal;
11721174 FDTAUser.Post;
1175+
1176+ for ME in AInstagramUser.LastestMedia do
1177+ begin
1178+ FDTAMedias.Append;
1179+ FDTAMediasid.AsString := ME.Id;
1180+ FDTAMediasshortcode.AsString := ME.ShortCode;
1181+ FDTAMediaswidth.AsInteger := Me.Width;
1182+ FDTAMediasheight.AsInteger := ME.Height;
1183+ FDTAMediasuserid.AsString := AInstagramUser.id;
1184+ FDTAMedias.Post;
1185+ end;
11731186 end;
11741187 end;
11751188
@@ -1605,6 +1618,8 @@
16051618 begin
16061619 if AKRKDBGridUser.SelectedRows.CurrentRowSelected then
16071620 begin
1621+ Wait;
1622+
16081623 if Follow(FDTAUserid.AsString) in [frRequested,frFollowing] then
16091624 Inc(Followed);
16101625
Show on old repository browser