| Author |
Message |
sulth4n |
| Location: |
|
Post subject: resize image
 Posted: 07/Mar/2006 15:20
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
mas2 semua yang baek2
aku mau nanya ni....
gimana cara merize image dari delphi program?
maksudnya begini
1. program menghitung ukuran panjang dan lebar monitor...
2. terus menghitung ukuran panjang dan lebar gambar
3. panjang dan lebar gambar dibandingkan lebar monitor
4. kalau sama ...biarin aja
5. kalau beda ukuran panjang dan lebar gambar disesuaikan atau disamakan dengan ukuran panjang dan lebar monitor..
nah yang jadi masalah aku ga tahu cara meresize ukuran panjang dan lebar ini(langkah ke 5)...
mohon petunjuk....
oya satu lagi...
bisa ga...delphi mengubah type dari sebuah file gambar
*.jpg -> *.bmp
sekali lagi mohon petunjuk
tengkyu buat semua yah... |
|
|
| |
|
|
|
 |
|
|
|
Post subject:
Posted: 07/Mar/2006 18:29
|
|
onProfessional
Joined: 06-Aug-2005
Posts: 648
|
|
|
Quote:
bisa ga...delphi mengubah type dari sebuah file gambar
*.jpg -> *.bmp
Apa sech Yang nga Wakakkaakakakakak
code : pascal function JPGToBMp(var BMPpic, JPGpic: string):boolean; var Bitmap: TBitmap; JpegImg: TJpegImage; begin Result:=False; JpegImg := TJpegImage.Create; try JpegImg.LoadFromFile(JPGpic) ; Bitmap := TBitmap.Create; try Bitmap.Assign(JpegImg) ; JpegImg.SaveToFile(BMPpic) ; Result:=True; finally Bitmap.Free end; finally JpeImg.Free end; end;
Never Give Erorr OK
Kapan Ya Pak Yusya Selesai Entri Data  |
_________________
== Barudak Jambi ===
Company : http://www.mpiholding.com/
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject:
Posted: 08/Mar/2006 09:32
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
|
|
|
|
|
sulth4n |
| Location: |
|
|
Post subject:
Posted: 11/Mar/2006 13:02
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
mas zeal aku dah search
keywordnya : image,gambar,ukuran, resize tapi kok ga da
mungkin mas zeal bisa bantu ngasi keywordnya?? |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject:
Posted: 13/Mar/2006 09:37
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
|
|
|
|
|
sulth4n |
| Location: |
|
|
Post subject:
Posted: 13/Mar/2006 16:26
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
mas aku dah nyoba,..
cuma dengan cara yang sedikit berbeda
tapi malah ga jalan
tolong dilihat apa yang salah dengan kode ini
code : pascal procedure TForm1.FormCreate(Sender: TObject); begin WindowState:=wsMaximized; backgroundImage := TBitmap.Create; backgroundImage.LoadFromFile(ExtractFilePath(Application.ExeName) 'background.bmp'); backgroundImage.Height := Screen.Height; backgroundImage.Width := Screen.Width; end;
harusnya dengan kode di atas kan ukuran image nya berubah ngikut ukuran monitor saya tapi ketika gambar itu saya gunakan pada kode berikut ini malah dia tetap dengan ukuran nya semula tanpa perubahan
code : pascal procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Draw(0, 0, backgroundImage); end;
kira2 apa yang salah ya dengan kode saya..
apa algoritma saya masi salah
mohon pencerahan |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject:
Posted: 14/Mar/2006 08:50
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
Sebenernya kalo cuma mo ditampilin aja tanpa perlu merubah file, cukup set propertiesnya aja...
Misalnya pake komponen TImage, cukup set properties Stretch = true, proportional = true (kalo mo gak "ketarik" gambarnya), hmm... trus apa lagi yah.. lupa.. oia, Kalo pengen ditampilin keseluruh form, TImagenya tambahin properties...duh... apa yah.. lupa.. pokoknya ada pilihan "allClient"..
cari aja lah.. pokoknya urutan paling atas di properties (berdasarkan alphabet)..  |
_________________
do i know you?
[ My Blog : http://www.monyetpinter.com ] [ My RPG Project : http://einarc.wordpress.com ] [ FJBex : http://www.fjbex.com ]
|
| |
|
|
|
|
|
sulth4n |
| Location: |
|
|
Post subject:
Posted: 14/Mar/2006 11:10
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
maksudnya property alignnya ya? di set ke allclient..
ooo
mas zeal ada satuu pertanyaan terakhir..
ga cuma buat mas zeal aja buat siapa aja dech yang bisa
gimana caranya aku tahu ektensi sebuah file yang aku buka
pake Topenpicturedialog apa gif,bmp,atau jpg atau lain2
makasi.. |
|
|
| |
|
|
|
|
|
sulth4n |
| Location: |
|
|
Post subject:
Posted: 14/Mar/2006 11:33
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
oya mas..
aku pake komponen tbtmap mas...
aku dah nyoba nyar property align...tapi gada... |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject:
Posted: 14/Mar/2006 15:44
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
err... kalo cuma mo sekedar tau ekstensi bisa pake fungsi
ExtractFileExt( 'NamaFile.ext' );
Lagipula kalo pake OpenPictureDialog kan bisa pake filter.. misalnya cuma nampilin bmp aja atau jpg aja.. gitchu..
Err... TBitmap itu bukan komponen kan yah.. ???
Nampilinnya pake komponen apa? atau langsung ke canvas yah?
Kenapa gak pake TImage aja...??
** kok malah jadi gue yang nanya.... **
Code:
procedure BukaAhUh;
begin
if OpenPictureDialog.execute then
begin
showmessage(' Extensi file ini adalah : ' + ExtractFileExt(OpenPictureDialog.FileName));
Image1.picture.LoadFromFile(OpenPictureDialog.FileName);
end;
end;
Gak tau dah caranya kalo pake TBitmap... |
_________________
do i know you?
[ My Blog : http://www.monyetpinter.com ] [ My RPG Project : http://einarc.wordpress.com ] [ FJBex : http://www.fjbex.com ]
|
| |
|
|
|
|
|
sulth4n |
| Location: |
|
|
Post subject:
Posted: 15/Mar/2006 15:44
|
|
onIntermediate
Joined: 30-Nov-2005
Posts: 46
Status: Offline
|
|
saya udah pake variabel img yang bertype TImage di bagian private.
kemudian di event oncreate pada form1 saya bikin
img := TImage.create(self);
img.picture.loadfromfile(blah2);
terus align:= alclient;
tapi waktu pake dengan
canvas.draw(blah2);
tetap aja ga mau membesar.
tapi malah ikut ukuran file semula
kira2 ada ide ga? |
|
|
| |
|
|
|
|
|
|
