tglee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:10 回覆:18 積分:5 註冊:2004-10-11
發送簡訊給我
|
Dear 各位先進,
如何將Pic 1,和Pic 2 按Button1 變成 1 圖
按Button2 變成 2 圖
按Button3 變成 3 圖 因為我有見過有人用兩張圖就可結合成如 1,2,3 的變化圖
請先進指教,謝謝 ![](http://delphi.ktop.com.tw/loadfile.php?TOPICID=18878921&CC=422219) 發表人 - tglee 於 2004/11/24 18:15:11
|
JerryKuo
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:42 回覆:571 積分:322 註冊:2003-03-10
發送簡訊給我
|
引言:
Dear 各位先進,
如何將Pic 1,和Pic 2 按Button1 變成 1 圖
按Button2 變成 2 圖
按Button3 變成 3 圖 因為我有見過有人用兩張圖就可結合成如 1,2,3 的變化圖
請先進指教,謝謝
tglee你好: 請問你自己做法是怎樣做呢?可以分享一下嗎?
這樣也比較好針對你的問題解決 ps:標題似乎沒有明顯的意義,不妨加上合併或結合等字眼,會使得
標題更為明確。謝謝合作。
|
tglee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:10 回覆:18 積分:5 註冊:2004-10-11
發送簡訊給我
|
Dear JerryKuo, 我已將標題重新修正,謝謝指正 另外,我只是將我要做的目的用BCB 元件表答出來
這方面並沒有經驗,只是有看過別人只使用
兩張類似我這樣的圖表現出來,
這方面希望先進指教,謝謝
|
1666362
初階會員
![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:66 回覆:124 積分:43 註冊:2004-07-07
發送簡訊給我
|
ccc tglee 我完成了您的問題囉
不難勒 ~~~~ ![]() < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=18914290&CC=423010"> ![](http://delphi.ktop.com.tw/loadfile.php?TOPICID=18914916&CC=423024) 我是新手 多多指教 ^^ 發表人 - 1666362 於 2004/11/26 11:57:37
|
JerryKuo
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:42 回覆:571 積分:322 註冊:2003-03-10
發送簡訊給我
|
引言:
ccc tglee 我完成了您的問題囉
不難勒 ~~~~
>>< face="Verdana, Arial, Helvetica"> 1666362你好: 我也想知道怎麼寫的,方便分享程式嗎?
|
1666362
初階會員
![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:66 回覆:124 積分:43 註冊:2004-07-07
發送簡訊給我
|
talee的意思 跟要的功能實在差很多
後來tglee解釋以後 才做出tglee要的功能 ![](http://delphi.ktop.com.tw/loadfile.php?TOPICID=18923367&CC=423213) 我是新手 多多指教 ^^ 發表人 - 1666362 於 2004/11/26 20:26:25
|
tglee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:10 回覆:18 積分:5 註冊:2004-10-11
發送簡訊給我
|
Dear Jerry Kuo, 本來貼上Source Code 是舉手之勞
可是他本人未回應,所以我也不知是否拿出來分享-_-
sorry at all,
所以必須由他本人同意,我再paste 上,
如有不便,非常抱歉< >< >
|
1666362
初階會員
![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:66 回覆:124 積分:43 註冊:2004-07-07
發送簡訊給我
|
sorry,本來 soure code 我是想讓 tglee 自己貼的 ![]()
< class="code">
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timi=Timi 1;
if(Timi>20){Timi=20;}
Edit1->Text=Timi;
Form1->up();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timi=Timi-1;
if(Timi<0){Timi=0;}
Edit1->Text=Timi;
Form1->down();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::up()
{
Graphics::TBitmap *bmp1 = new Graphics::TBitmap();
Byte *ptr=NULL;
int w,h;
bmp1->Assign(Image1->Picture->Bitmap);
bmp1->PixelFormat=pf24bit;
h= bmp1->Height; w=bmp1->Width; for(int j=0; j ScanLine[j];
for(int i=0; i<=w; i )
{
if(i<(Timi*w/20))
{
ptr[i*3 2]=255;
ptr[i*3 1]=0;
ptr[i*3]=0;
}
for(int i=15; iPicture->Assign(bmp1);
delete bmp1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::down()
{
Graphics::TBitmap *bmp1 = new Graphics::TBitmap();
Byte *ptr=NULL;
int w,h;
bmp1->Assign(Image1->Picture->Bitmap);
bmp1->PixelFormat=pf24bit;
h= bmp1->Height; w=bmp1->Width; for(int j=0; jScanLine[j];
for(int i=0; i<=w; i )
{
if(i>(Timi*w/20))
{
ptr[i*3 2]=192;
ptr[i*3 1]=192;
ptr[i*3]=192;
}
for(int i=15; iPicture->Assign(bmp1);
delete bmp1;
}
//---------------------------------------------------------------------------
我是新手 多多指教 ^^
|
JerryKuo
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:42 回覆:571 積分:322 註冊:2003-03-10
發送簡訊給我
|
感謝1666362的分享
|