Arsip: CARA MENJALANKAN COMPONEN GAUGE DI STATUS BAR
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..
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;
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
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;
more 12 years ago
ilhuna
Ada contoh filenya gan?? ini saya coba semua ga ada yg berhasil nih scriptnya?? :(
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Cara hide childmdi ??
by purnomo2007 in Hal umum tentang Pascal Indonesia more 14 years ago - [STOP]netsend
by -BreWok- in Tip n Trik Pemrograman more 17 years ago - Lazarus Win32 GUI App + Exceptions...
by _lmz in OOT more 17 years ago - fungsi sleep() utk program demo/shareware
by ryan in Hal umum tentang Pascal Indonesia more 18 years ago - Menambahkan Text Dalam Foto
by supermuam in Multimedia & Graphic Enhancement more 13 years ago - BANYOLAN ALA PROGRAMMER
by MrMixer in Tip n Trik Pemrograman more 17 years ago - Membuat sebuah file dengan ukuran tertentu
by frozenade in Network, Files, I/O & System more 16 years ago - Akses field
by hera in Paradox more 15 years ago - teks atau gambar pada footer
by mas_kofa in Hal umum tentang Pascal Indonesia more 17 years ago - Tanya Apakah...
by johnizzy in Hal umum tentang Pascal Indonesia more 15 years ago