hi, sorry ada yang kurang, ini coding perbaikannya hehehe

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;


Sheet.Columns[No_Column].ColumnWidth := 5 ; //lebar kolom

salam



________________________________
From: steve hosea <hosea_steve@...>
To: Delphindo@yahoogroups.com
Sent: Wed, December 9, 2009 9:44:53 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi


hi, sorry interupt, setau aku coding untuk merubah column excell pada delphi
adalah :

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;

Sheet.Column[ No_Column] .ColumnWidth := 5 ; //lebar kolom

salam

____________ _________ _________ __
From: dian sastro <maejeedo@gmail. com>
To: Delphindo@yahoogrou ps.com
Sent: Mon, December 7, 2009 1:39:55 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi

jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@yahoo. com>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@olympicfur n iture.co. id>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogro u ps.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObjec t('Excel. Application' );
> xls.Workbooks. ADD;
> Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
> sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;
>
>
> Sheet.Cells[ 1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[ 2,4].Borders. LineStyle := xlContinuous ;   //border
> Sheet.Cells[ 4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[ 5,1].NumberForma t := '_(* #,##0.0_);_( * (#,##0.0);_( *
> ""-""??_);_( @_)' ;  // format numeric
>
> Sheet.Range[ 'B2:Y7']. HorizontalAlignm ent := xlCenter ;  //center cell
>
> Sheet.Range[ 'C5:F6']. Merge ;
> Sheet.Range[ 'C5:F6']. VerticalAlignmen t := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@yahoo. com>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya. .
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>

[Non-text portions of this message have been removed]







[Non-text portions of this message have been removed]

hi, sorry interupt, setau aku coding untuk merubah column excell pada delphi
adalah :

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;


Sheet.Column[No_Column].ColumnWidth := 5 ; //lebar kolom

salam



________________________________
From: dian sastro <maejeedo@...>
To: Delphindo@yahoogroups.com
Sent: Mon, December 7, 2009 1:39:55 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi


jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@yahoo. com>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@olympicfurn iture.co. id>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogrou ps.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObjec t('Excel. Application' );
> xls.Workbooks. ADD;
> Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
> sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;
>
>
> Sheet.Cells[ 1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[ 2,4].Borders. LineStyle := xlContinuous ;   //border
> Sheet.Cells[ 4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[ 5,1].NumberForma t := '_(* #,##0.0_);_( * (#,##0.0);_( *
> ""-""??_);_( @_)' ;  // format numeric
>
> Sheet.Range[ 'B2:Y7']. HorizontalAlignm ent := xlCenter ;  //center cell
>
> Sheet.Range[ 'C5:F6']. Merge ;
> Sheet.Range[ 'C5:F6']. VerticalAlignmen t := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@yahoo. com>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya. .
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>






[Non-text portions of this message have been removed]

Personal 75% OFF

here



       Buat sendiri desain eksklusif Messenger Pingbox Anda sekarang! Membuat
tempat chat pribadi di blog Anda sekarang sangatlah mudah.
http://id.messenger.yahoo.com/pingbox/

[Non-text portions of this message have been removed]

On Wednesday, December 9, 2009, 1:14:08 PM, allies_xposs@... wrote:

> Di delphi ada komponen tdbf ga ya? Sory kalau basic and jadul banget
> pertanyaanya..

try to search:

http://www.google.co.id/#q=tdbf+delphi


--
Salam,

-Jaimy Azle

"Great new ideas usually come from very small teams...
  don't give up so easily."
       -- John Kaster

Di delphi ada komponen tdbf ga ya? Sory kalau basic and jadul banget
pertanyaanya..
Piss..

Regard
Allies - XPOSS (eXtra Point Of Sale)
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

On Wednesday, December 9, 2009, 11:41:46 AM, Teguh Susanto wrote:

> ada yang pernah buat aplikasi FTP atau share file antar Komp 1 ke
> Komp yg lain, klo boleh tau pakai komponent apa aja...

Indy, sudah ada bersama IDE bawaan.

--
Salam,

-Jaimy Azle

"Great new ideas usually come from very small teams...
  don't give up so easily."
       -- John Kaster

dear miliser delphindo
ada yang pernah buat aplikasi FTP atau share file antar Komp 1 ke Komp yg lain,
klo boleh tau pakai komponent apa aja...thanks

regrads


teguh



       Mencari semua teman di Yahoo! Messenger? Undang teman dari Hotmail, Gmail
ke Yahoo! Messenger dengan mudah sekarang! http://id.messenger.yahoo.com/invite/

[Non-text portions of this message have been removed]

bisa mas, makasih banyak, semoga awet muda :)

2009/12/9 Teguh Susanto <teguh4milis@...>

>
>
> udah coba setting properties
> TfrxMemoView.StrecthMode:=smMaxHeight;
>
> --- Pada Sel, 8/12/09, Eldi Munggaran
<munggaran@...<munggaran%40gmail.com>>
> menulis:
>
> Dari: Eldi Munggaran <munggaran@... <munggaran%40gmail.com>>
> Judul: [Delphindo] Fastreport dengan field memo, jumlah line bervariasi
> Kepada: "Delphindo" <Delphindo@yahoogroups.com<Delphindo%40yahoogroups.com>
> >
> Tanggal: Selasa, 8 Desember, 2009, 9:50 PM
>
>
>
> Halo rekan-rekan delphiers :)
>
> Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe
>
> Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,
>
> masalahnya bagaimana supaya report bisa mengenali variabel memo supaya
>
> heightnya dinamis tidak mengikuti height pada saat desain.
>
> Regards,
>
> Eldi Munggaran
>
> [Non-text portions of this message have been removed]
>
> Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk Yahoo!
> otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
> Dapatkan IE8 di sini!
> http://downloads.yahoo.com/id/internetexplorer
>
> [Non-text portions of this message have been removed]
>
>
>



--
Eldi Munggaran S.KOM
IT Professional


[Non-text portions of this message have been removed]

udah coba setting properties
TfrxMemoView.StrecthMode:=smMaxHeight;

--- Pada Sel, 8/12/09, Eldi Munggaran <munggaran@...> menulis:

Dari: Eldi Munggaran <munggaran@...>
Judul: [Delphindo] Fastreport dengan field memo, jumlah line bervariasi
Kepada: "Delphindo" <Delphindo@yahoogroups.com>
Tanggal: Selasa, 8 Desember, 2009, 9:50 PM







 









       Halo rekan-rekan delphiers :)



Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe

Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,

masalahnya bagaimana supaya report bisa mengenali variabel memo supaya

heightnya dinamis tidak mengikuti height pada saat desain.



Regards,

Eldi Munggaran



[Non-text portions of this message have been removed]























       Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer

[Non-text portions of this message have been removed]

Halo rekan-rekan delphiers :)

Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe
Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,
masalahnya bagaimana supaya report bisa mengenali variabel memo supaya
heightnya dinamis tidak mengikuti height pada saat desain.

Regards,
Eldi Munggaran


[Non-text portions of this message have been removed]

Dear delphier..
saya ada problem error multiplestep-generation errors, check value bla bla bla
error ini muncul ketika saya mau execute simpan data

kode nya seperti ini
procedure Tfrmsrv.ssimpanClick(Sender: TObject);
var cno : string;
    ksg : string;
begin
ksg:='a';
   tbno.Close;
   tbno.Open;
   tbno.First;
  
cno:='SRV-'+trim(copy(inttostr(1+strtoint('1'+copy(tbsrvs_urutservice.Value,5,6)\
)),2,7));
   tbno.UpdateBatch;
   tbdsrv.First;
while not tbdsrv.Eof do begin
tbdsrv.Edit;
tbdsrvd_noservice.Value:=cno;
tbdsrvd_no.Value:=tbsrvs_noservice.Value;
tbdsrv.Next;
   end;
         tbdsrv.First;
   while not tbdsrv.Eof do
   begin
   tbdsrv.Edit;
   tbdsrvd_urut.Value:=tbsrvs_urutservice.Value;
   tbdsrvd_no.Value:=tbsrvs_noservice.Value;
   tbdsrvs_area.Value:=tbsrvs_area.Value;
   tbdsrvS_nmuser.Value:=tbsrvs_nmuser.Value;

   tbdsrv.UpdateBatch;
   tbdsrv.Next;
end;
tbsrv.Edit;
tbsrvs_urutservice.Value:=dbedit1.Text;
tbsrvs_nospk.Value:=dbedit8.Text;
tbsrvs_tglspk.AsDateTime:=dt2.Date;
tbsrvs_tglservice.AsDateTime:=dt1.DateTime;
tbsrvs_nmservice.Value:=dbedit4.Text;
tbsrvs_serviceby.Value:=dbedit5.Text;
tbsrvs_keterangan.Value:=memo1.Text;
tbsrvs_nopol.Value:=dbedit7.Text;
tbsrvs_nmuser.Value:=dbedit2.Text;
tbsrvs_model.Value:=dbedit3.Text;
tbsrvs_area.Value:=dbedit6.Text;
tbsrvs_kmtrhr.Value:=dbedit12.Text;
tbsrv.UpdateBatch;

dm.cn.CommitTrans;
tbsrv.Last;
tbsrv.Close;
tbsrv.Open;
FormActivate(Sender);
tbdsrv.Open;
tbdsrv.Last;

stambah.Enabled:=true;
ssimpan.Enabled:=false;
sbatal.Enabled:=false;
supdate.Enabled:=false;

spreview.Enabled:=true;
scommit.Enabled:=false;
skeluar.Enabled:=true;
end;
end;
seluruh tipe data di sqlserver adalah nvarchar
kecuali tanggal itu tipenya datetime

errornya seperti attachment saya ini
mohon bantuannya,


Herbin




[Non-text portions of this message have been removed]

Pak Zamrony,
Saya menggunakan Delphi 7 Windows XP SP3.
untuk import Library saya lakukan Project, Import Type Library, kemudian ada
plihan

WMI ADSI Extension Type Library (Version 1.0)
WMI Cntl 1.0 Type Library (version 1.0)

yang mana yg harus dipilih pak ?

Pada 4 Desember 2009 13:54, Zamrony P. Juhara <zamronypj@...> menulis:

>
>
> Sekedar tambahan bila ingin info yang lebih spesifik Anda bisa mengubah
> field yang diambil, contohnya bila hanya ingin info nama printer dan status
> work offiline kodenya bisa dimodifikasi menjadi
>
> Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer' );
>
> jika hanya perlu status printer tertentu saja
>
> Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer WHERE
> Name='+quotedstr('Canon Bubble-Jet BJC-265SP') );
>
>
> Zamrony P. Juhara
> Website:
> http://juhara.com
> Blog:
> http://zamronyp.juhara.com
> http://delphindo.wordpress.com (kontributor)
>
> --- On Fri, 12/4/09, Zamrony P. Juhara
<zamronypj@...<zamronypj%40yahoo.com>>
> wrote:
>
> From: Zamrony P. Juhara <zamronypj@... <zamronypj%40yahoo.com>>
>
> Subject: Re: [Delphindo] Cek Printer on / off
> To: Delphindo@yahoogroups.com <Delphindo%40yahoogroups.com>
> Date: Friday, December 4, 2009, 1:38 PM
>
>
>
>
> Untuk mengetahui status printer offline atau online, Anda bisa gunakan
> Windows Management Instrumentation (WMI). Contohnya seperti ini:
>
> procedure TForm1.FormShow( Sender: TObject);
>
> begin
>
> Label1.Caption: ='Work offline: '+
>
> getWMIString( '',
>
> 'Win32_Printer' ,
>
> 'WorkOffline' );
>
> Memo1.Text:= selectWMI( 'SELECT * FROM Win32_Printer' );
>
> end;
>
> Detil fungsi SelecWMI() dan getWMIString( ) bisa Anda baca di blog
> delphindo
>
> http://delphindo. wordpress. com/2008/ 03/22/delphi- dan-windows-
> management- instrumentation- wmi-tutorial- singkat/
>
> Kode diatas adalah modifikasi kode di artikel tersebut.
>
> Zamrony P. Juhara
>
> Website:
>
> http://juhara. com
>
> Blog:
>
> http://zamronyp. juhara.com
>
> http://delphindo. wordpress. com (kontributor)
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]

Selasa, 08/12/2009 16:27:52, johan menulis:

jm> Masalahnya total data pembagian tidak mencapai 100 % atau lebih
jm> dari 100%. Sementara client saya minta harus 100%.

Client sudah benar, total tidak 100% tentu janggal. Kita tahu
salahnya, akibat pembulatan. Solusinya, ya ditulis saja 100% gitu. Toh
tidak mungkin < atau > 100%. Harus 100%. :-)

Tertanda,
Oguds [960000031]

Salam sejahtera,
saya punya data di database sql server,
misal tabeldata (nama,nilai)
nama string, nilai angka double.

saya bikin query berikut :
select nama,nilai / total as persentase
from tabledata a, ( select sum(nilai) as total from tabeldata) b

hasilnya sesuai harapan. Lihat di bawah
Masalahnya total data pembagian tidak mencapai 100 % atau lebih dari 100%.
Sementara client saya minta harus 100%. Saya menerangkan kepada mereka kasus ini
adalah
masalah pembulatan saja. kadang 100,1% atau 99.6%.
Gimana yach solusinya. Mohon bantuannya

PERTAMINA 60.50%
SHELL 12.00%
TOP-1 4.60%
MOBIL-1 1.50%
CASTROL 3.40%
PETRONAS 3.10%
REPSOL 5.60%
AGIP 2.00%
PENZOIL 2.60%
TOTAL 1.50%
MOTUL 0.80%
EVALUBE 0.30%
ADNOC 0
JUMBO 0.00%
CONOCO 0.10%
INDO 0
TOPLUBE 0.30%
ESSO 0.40%
DELTALUBE 0.00%
FUCH 0.20%
TOYOTA 1.20%
  100.10%




[Non-text portions of this message have been removed]

Salah satu
group perusahaan furniture di Surabaya dengan cabang di seluruh Indonesia
membutuhkan
:

Programmer
      Delphi (code : DP)Programmer
      Java (code: JV)Programmer
      .Net (code: NT)

 

Syarat Umum:

Pria, Usia
      max 30 th.D3 / S1
      diutamakan dari jurusan Informatika.Berpengalaman
      min 1 tahun, atau fresh graduate IPK min 2,75 untuk fresh
graduate.Menguasai
      database server (misal: sql server, Oracle, MySql) Menguasai pemrograman
berbasis web
      (php, javascript) merupakan nilai tambah.Kepribadian baik dan dapat bekerja
dengan
      tim.Bersedia di tempatkan di Surabaya dan
      melakukan perjalanan dinas keluar kota.





bagi yg berminat harap kirim surat lamaran dan cv ke :

PT. Putra Bintang Timur Lestari

Jl. Tambak Langon Indah blok I no 2

Surabaya

Atau email ke : it_pbtlsby@...






[Non-text portions of this message have been removed]

Rekan Delphiers

Minta bantuannya untuk mengeset ukuran font pada objek RichEdit untuk
pencetakan laporan.
Dari ukuran font terkecil hingga terbesar
contoh kodingnya ya...

Trims.

Salam,
Adi Nugroho

Semangat Pagi > > > > Dear Teman2 > > > > Kami beritahuan bahwa karyawan
kami: > > > > NAMA  : JOKO NURCAHYO. > > JABATAN  : MARKETING > > > >
Terhitung mulai tanggal 2 Desember 2009 sudah tidak bekerja lagi di > >
FINGERSPOT SOLO, sehingga semua tindakan dan perbuatannya sudah diluar
tanggung > > jawab kami. > > Mohon maaf sebelumnya dan atas
perhatiannnya kami sampaikan terima kasih.  > > > > Salam Hangat > >
FINGERSPOT SOLO > > Telp. 0271-723097 > >


[Non-text portions of this message have been removed]

jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@...>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@...>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogroups.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObject('Excel.Application');
> xls.Workbooks.ADD;
> Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
> sheet := xls.Workbooks[1].Worksheets['sheet1'];
>
>
> Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
> Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
> ""-""??_);_(@_)' ;  // format numeric
>
> Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell
>
> Sheet.Range['C5:F6'].Merge ;
> Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@...>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------------------------------
>
> Berlangganan: delphindo-subscribe@yahoogroups.com
> Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
> Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...!
Groups Links
>
>
>
>
>
> ------------------------------------
>
> Berlangganan: delphindo-subscribe@yahoogroups.com
> Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
> Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...!
Groups Links
>
>
>
>

Ok betul...
Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: "budi" <costing@...>
Date: Mon, 7 Dec 2009 08:12:50
To: <Delphindo@yahoogroups.com>
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi

seperti ini bukan yang dimaksud

xls:=CreateOleObject('Excel.Application');
xls.Workbooks.ADD;
Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
sheet := xls.Workbooks[1].Worksheets['sheet1'];


Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)' ;  // format numeric

Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell

Sheet.Range['C5:F6'].Merge ;
Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell

----- Original Message -----
From: <medi_bgr@...>

> Halo teman2 smua..
>
> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
dapet dr milis ini menggunakan comobj..
>
> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>
> Tks b4 ;)
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT




------------------------------------

Berlangganan: delphindo-subscribe@yahoogroups.com
Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...! Groups
Links

Sekedar ingin berbagi informasi saja. :)


Begin forwarded message:

> Date: December 7, 2009 7:51:35 AM GMT+07:00
> To: ExtPascal <extpascal@googlegroups.com>
> Subject: [ExtPascal:1625] Update of ExtP Toolkit for ExtPascal
>
> I've added grid design controls to the ExtP Toolkit add-on for
> ExtPascal. Here are some screenshots:
>
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_Grid_in_IDE.jpg
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_Grid_at_Runtime.jpg
>
> A couple of other screenshots show the MultiSelect (list box) control
> in action both in the Lazarus IDE and in the browser at runtime:
>
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_MultiSelect_in_IDE.jpg
>
http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_MultiSelect_at_Runtime.jpg
>
> Complete documentation for the toolkit is here:
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPToolkitStatus.html
>
> Source code is available in a .zip file from here:
> http://web.fastermac.net/~MacPgmr/ExtPascal/
>
> Or you can checkout the source along with the complete ExtPascal
> source from the ExtPascal SVN repository.
>
> Thanks.
>
> -Phil

--

-Bee-

...making buzzes at http://twitter.com/beezing
...writing stories at http://beeography.wordpress.com

seperti ini bukan yang dimaksud

xls:=CreateOleObject('Excel.Application');
xls.Workbooks.ADD;
Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
sheet := xls.Workbooks[1].Worksheets['sheet1'];


Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)' ;  // format numeric

Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell

Sheet.Range['C5:F6'].Merge ;
Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell

----- Original Message -----
From: <medi_bgr@...>

> Halo teman2 smua..
>
> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
dapet dr milis ini menggunakan comobj..
>
> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>
> Tks b4 ;)
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT

Definisikan templatenya, assign dan data akan masuk ke format templatenya




--- Pada Sab, 5/12/09, medi_bgr@... <medi_bgr@...> menulis:

Dari: medi_bgr@... <medi_bgr@...>
Judul: [Delphindo] Tanya rubah lebar kolom excel di delphi
Kepada: delphindo@yahoogroups.com
Tanggal: Sabtu, 5 Desember, 2009, 2:50 AM

Halo teman2 smua..

Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy dapet
dr milis ini menggunakan comobj..

Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
Kl ada yg tau / pernah mencoba, mohon pencerahannya..

Tks b4 ;)
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

------------------------------------

Berlangganan: delphindo-subscribe@yahoogroups.com
Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...! Groups
Links






       Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer

[Non-text portions of this message have been removed]

Halo teman2 smua..

Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy dapet
dr milis ini menggunakan comobj..

Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
Kl ada yg tau / pernah mencoba, mohon pencerahannya..

Tks b4 ;)
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

Sekedar tambahan bila ingin info yang lebih spesifik Anda bisa mengubah field
yang diambil, contohnya bila hanya ingin info nama printer dan status work
offiline kodenya bisa dimodifikasi menjadi

Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer' );

jika hanya perlu status printer tertentu saja

Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer WHERE
Name='+quotedstr('Canon Bubble-Jet BJC-265SP') );




Zamrony P. Juhara
Website:
http://juhara.com
Blog:
http://zamronyp.juhara.com
http://delphindo.wordpress.com (kontributor)

--- On Fri, 12/4/09, Zamrony P. Juhara <zamronypj@...> wrote:

From: Zamrony P. Juhara <zamronypj@...>
Subject: Re: [Delphindo] Cek Printer on / off
To: Delphindo@yahoogroups.com
Date: Friday, December 4, 2009, 1:38 PM







 









       Untuk mengetahui status printer offline atau online, Anda bisa gunakan
Windows Management Instrumentation (WMI). Contohnya seperti ini:



procedure TForm1.FormShow( Sender: TObject);

begin

   Label1.Caption: ='Work offline: '+

             getWMIString( '',

             'Win32_Printer' ,

             'WorkOffline' );

    Memo1.Text:= selectWMI( 'SELECT * FROM Win32_Printer' );

end;



Detil fungsi SelecWMI() dan getWMIString( ) bisa Anda baca di blog delphindo



http://delphindo. wordpress. com/2008/ 03/22/delphi- dan-windows- management-
instrumentation- wmi-tutorial- singkat/



Kode diatas adalah modifikasi kode di artikel tersebut.



Zamrony P. Juhara

Website:

http://juhara. com

Blog:

http://zamronyp. juhara.com

http://delphindo. wordpress. com (kontributor)










[Non-text portions of this message have been removed]

Untuk mengetahui status printer offline atau online, Anda bisa gunakan Windows
Management Instrumentation (WMI). Contohnya seperti ini:

procedure TForm1.FormShow(Sender: TObject);
begin
   Label1.Caption:='Work offline: '+
             getWMIString('',
             'Win32_Printer',
             'WorkOffline');
    Memo1.Text:=selectWMI('SELECT * FROM Win32_Printer');
end;

Detil fungsi SelecWMI() dan getWMIString() bisa Anda baca di blog delphindo

http://delphindo.wordpress.com/2008/03/22/delphi-dan-windows-management-instrume\
ntation-wmi-tutorial-singkat/

Kode diatas adalah modifikasi kode di artikel tersebut.

Zamrony P. Juhara
Website:
http://juhara.com
Blog:
http://zamronyp.juhara.com
http://delphindo.wordpress.com (kontributor)

--- On Fri, 12/4/09, dian sastro <maejeedo@...> wrote:

From: dian sastro <maejeedo@...>
Subject: Re: [Delphindo] Cek Printer on / off
To: Delphindo@yahoogroups.com
Date: Friday, December 4, 2009, 10:45 AM







 









       Tergantung beberapa variabel. Pada intinya : susah.



O/S modern seperti windows menngunakan metode spool, yaitu membuat

sebuah sistem antrian untuk menangani proses printing. Artinya,

program anda tidak berhubungan langsung dengan printer, tetapi pada

sistem spool ini. Jika program spool ini gagal mengeprint sebuah

dokumen, ada kemungkinan program spool ini mengembalikan status gagal

ke program, meski tidak selalu karena seperti handphone, si program

spool berusaha terus ngeprint sampai berhasil. Biasanya memakai

windows API FindFirstPrinterCha ngeNotification( ) dkk.



Jika anda ingin sekali untuk bisa mengetahui printer status printer

ini, kemungkinannya dua:

1. si Pembuat driver sudah menyediakan driver yg menyediakan API untuk

men-query on/off si printer.

2. Anda membuat peralatan tambahan, misalnya untuk mengukur voltase di

printer yg menunjukkan si printer on atau off. Dari peralatan ini

dimasukkan ke komputer lewat serial misalnya (sudah pernah liat serial

komunikasi antara komputer dengan UPS?. Semacam itulah)



-sas-



2009/12/4 satria wirang <satriawirang@ gmail.com>

>

> Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu printer

> di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx

> sebelumnya

>

Para Delphier yg saya hormati saya ingin bertanya

Apabila kita mempergunakan DBAdvGrid (dari TMS) bagaimana
supaya tapilan data yag ada bisa berbeda warna antara
baris/rekord 1 dan ke 2

Supaya mempermudah pencarian saya pernah lihat bari/rekor
pertama berwana biru rekor selanjutnya berwarna putih
begitu elanjutnya berulang

Mohon petujuk  Terima Kasih
================================================================================\
============================================

Segera nikmati Free Trial 60 hari Protector Postpaid layanan keamanan online
bagiPelanggan Speedy.
Info lebih lanjut hubungi 147 atau http://protector.telkomspeedy.com

================================================================================\
============================================

Flexi - Gratis bicara sepanjang waktu se-Jawa Barat, Banten dan DKI Jakarta.

Speedy - Gratis internetan unlimited dari pkl. 20.00 s/d 08.00 se-Jabodetabek,
Banten, Karawang dan Purwakarta.

================================================================================\
============================================

Raih Paket Umroh, Notebook, XBOX, Ipod Touch dan banyak hadiah lain di
http://netkuis.telkom.net Netkuis Ramadhan 1430H
persembahan Telkom

================================================================================\
============================================

Tergantung beberapa variabel. Pada intinya : susah.

O/S modern seperti windows menngunakan metode spool, yaitu membuat
sebuah sistem antrian untuk menangani proses printing. Artinya,
program anda tidak berhubungan langsung dengan printer, tetapi pada
sistem spool ini. Jika program spool ini gagal mengeprint sebuah
dokumen, ada kemungkinan program spool ini mengembalikan status gagal
ke program, meski tidak selalu karena seperti handphone, si program
spool berusaha terus ngeprint sampai berhasil. Biasanya memakai
windows API FindFirstPrinterChangeNotification() dkk.

Jika anda ingin sekali untuk bisa mengetahui printer status printer
ini, kemungkinannya dua:
1. si Pembuat driver sudah menyediakan driver yg menyediakan API untuk
men-query on/off si printer.
2. Anda membuat peralatan tambahan, misalnya untuk mengukur voltase di
printer yg menunjukkan si printer on atau off. Dari peralatan ini
dimasukkan ke komputer lewat serial misalnya (sudah pernah liat serial
komunikasi antara komputer dengan UPS?. Semacam itulah)

-sas-


2009/12/4 satria wirang <satriawirang@...>
>
> Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu printer
> di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx
> sebelumnya
>

saya coba buat soap with delphi... ketemu error RECEIVED CONTENT OF
INVALID CONTENT-Type SETTING:TEXT/HTML - SOAP EXPECT "TEXT/XML", kira2
kurang apa nya yach..saya buka2 arsip ada info dari mas hans gula

>Ini memang known bug buat WS client menggunakan Delphi 7.

>Workaround-nya, buka file project (DPR) lalu swap urutan unit di uses
>clause dari:

    >ISAPIThreadPool,
    >ISAPIApp

>menjadi:

    >ISAPIApp,
    >ISAPIThreadPool

saya masih belum mengerti yg harus di ganti di bagian mana yach...

thx
aries

Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu  printer
di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx
sebelumnya


[Non-text portions of this message have been removed]

Bila remote mysql tidak diijinkan, cara yang pernah saya pakai yaitu menggunakan
PHP untuk membaca data lalu meng-generate data tersebut menjadi XML, baru diolah
oleh Delphi.
Sent from my AXIS Worry Free BlackBerry® smartphone