para master sekalian, minta bantuannya nih. aq dapat banyak ilmu dari http://agusmade.blogspot.com/, masalah kontrol photoshop dgn delphi. nah disitu kan untuk mengeksekusinya kan pake [u:b7db6c9087]button[/u:b7db6c9087], nah rencanya buat skripsi itu aq ganti pake [u:b7db6c9087]TrackBar[/u:b7db6c9087]. kemarin sih bisa pake perintah (TrackBar1.position) pada [u:b7db6c9087]events OnChange punya TrackBar1[/u:b7db6c9087]. nah masalahnya belum digeser (cuma ditekan) TrackBar-nya dia udah berefek pada gambar. nah itu gimana solusinya, biar kl digeser ke arah kanan dia berefek makin banyak, lalu bila digeser kembali ke kiri efeknya mendekati gambar asli( tidak berubah). terima kasih atas bantuannya

ini codenya : uses //... ComObj //... //... procedure TForm1.Button1Click(Sender: TObject); var PhotoShop: OLEVariant; begin try PhotoShop := CreateOleObject('Photoshop.Application'); except ShowMessage('Error...'); Exit; end; //contoh GaussianBlur PhotoShop.activeDocument.activeLayer.applyGaussianBlur(5); end; //... nah itu kelihatan pk button, maunya ganti pk TrackBar. tolong dong. buat skripsi nih

ini codenya : uses //... ComObj //... //... procedure TForm1.Button1Click(Sender: TObject); var PhotoShop: OLEVariant; begin try PhotoShop := CreateOleObject('Photoshop.Application'); except ShowMessage('Error...'); Exit; end; //contoh GaussianBlur PhotoShop.activeDocument.activeLayer.applyGaussianBlur(5); end; //... nah itu kelihatan pk button, maunya ganti pk TrackBar. tolong dong. buat skripsi nih

bos, tolong dong bantuannya. mepet nih