Arsip: CARA MENJALANKAN COMPONEN GAUGE DI STATUS BAR

 
user image
more 13 years ago

ilhuna

Halooo master2 delphii.. ada yg tau gak cara menjalankan komponen Gauge di status bar???? karena kalo naruhnya aja ga bisa mesti geser2 sendiri.. terus ada yg tau juga gak Cara membuat tulisan PROSSESING... berjalan2 ke samping semisal ketika gaugenya lagi running, tulisan porsessingnya juga running.. pro...se..sing...[gaya animasi] :shock: mohon bantuannya thnks..
user image
more 13 years ago

madi

dalam event oncreate main form :
gauge.parent := statusbar;
//letaknya terserah mau ditaruh dimana kirinya
gauge.left := 0   
gauge.top := 1;
user image
more 13 years ago

madi

dalam event ontimer1 :
var
 s,hasil : string;
 i : integer;
  begin
     s := 'Processing';
     hasil := '';
      for i := 1 to length(s) do
        begin
           sleep(1000);
           hasil := hasil + Copy(s,i,1);
           label1.caption := hasil;
        end;
   end;
bener gak nih code, lagi gak ada delphinya
user image
more 13 years ago

madi

source jvcl
//implementation
var
  Fblinking : Boolean;
  s : string;
  FBlinked,blink : Integer;
  Fsens : Boolean;
  FcurrentTitle : string;

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
 if FBlinking then
  begin
    // (rom) this is a bad implementation better try to manipulate
    // (rom) the WM_GETTEXT and WM_SETTEXT to the Form window
   if Form1.Caption = s then
      Form1.Caption := ''
   else
    begin
      Form1.Caption := s;
      Inc(FBlinked);
      if FBlinked >= Blink then
      begin
        FBlinking := False;
        FBlinked := 0;
      end;
    end;
  end
  else
  begin
    if FSens then
    begin
      if Length(FCurrentTitle) = Length(s) then
      begin
        FSens := False;
        if Blink > 0 then
          FBlinking := True;
      end
      else
       begin
        FCurrentTitle := FCurrentTitle + s[Length(FCurrentTitle) + 1];
        Form1.Caption := FcurrentTitle;
       end;
    end
    else
    if FCurrentTitle = '' then
      FSens := True
    else
     begin
      SetLength(FCurrentTitle, Length(FCurrentTitle) - 1);
      Form1.Caption := FcurrentTitle;
     end;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  s := 'Processing';
  FcurrentTitle := '';
  FBlinked := 0;
  Fsens := True;
  blink := 5;
end;
user image
more 12 years ago

ilhuna

Ada contoh filenya gan?? ini saya coba semua ga ada yg berhasil nih scriptnya?? :(
user image
more 12 years ago

madi

masa sih, contohe besok, lagi gak bawa
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com