Function Animate - نسخة قابلة للطباعة

Function Animate - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : Function Animate (/showthread.php?tid=1510)

Function Animate - paix144 - 15-01-2010

السلام عليكم

كود :
procedure AnimatedWrite(aStr: string; aStrings: TStrings; const aIndex: LongInt=-1; const aSpeed: LongWord=80; aStopPtr: PBoolean=nil);
var
  N, IDX : LongInt;
  S : String;
begin
  if aIndex = -1 then
    Idx := aStrings.Add('')
  else
    Idx := aIndex;

  for N := 1 to length(aStr) do
  begin
    S := Copy(aStr, 1, N);
    aStrings[idx] := S + '.';
    Application.ProcessMessages;
    Sleep(aSpeed);
    aStrings[idx] := S;
    if aStopPtr <> nil then
      if aStopPtr^ then
      begin
        aStrings[idx] := aStr;
        exit;
      end;
  end;
end;

Function Animate - قديم الشوق - 18-01-2010

وعليكم السلام ورحمة الله وبركاته

ممكن مثال حولت معه لاكن فيه خطأ

شكراً

Function Animate - STRELiTZIA - 18-01-2010

قديم الشوق كتب :وعليكم السلام ورحمة الله وبركاته

ممكن مثال حولت معه لاكن فيه خطأ

شكراً

السلام عليكم و رحمة الله
حاول ادخال البرامترات بهذه الطريقة :

PHP كود :
procedure TMain.AnimateBtnClick(Sender: TObject);
begin
  AnimatedWrite('Welcome to Delphi4Arab forum', TargetMmo.Lines, -1, 80, nil);
end; 

- حدث OnClick للاستدعاء الدالة.
- مكون Memo لاستقبال النص المراد تحريكه.

يمكنك ايضا التعديل على الدالة الأصلية اذا اردت التعامل مع Caption او Text مكان Strings

Function Animate - قديم الشوق - 18-01-2010

جزااك الله خير ممكن تعطيني الكود بالصيغه العامه
وماهي وجزااك الله خير مازال هناك خطأ في الكود

كود :
procedure tform1.button1click(sender: Tobject);
begin
animatedwrite('welcome to delphi4arab forum', memo1.lines, -1, 80, nil);
end;

Function Animate - paix144 - 18-01-2010

شوف هذا السورس أخي
بالتوفيق إن شاء الله