全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2704
推到 Plurk!
推到 Facebook!

請問要如何才能製作出任何形狀的form

 
ayukawa
一般會員


發表:16
回覆:5
積分:4
註冊:2002-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-16 00:30:54 IP:61.217.xxx.xxx 未訂閱
要去那裡下載可製作出任何形狀form的元件! 哈哈哈!我是天才
------
哈哈哈!我是天才
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-07-16 00:57:13 IP:211.23.xxx.xxx 未訂閱
引言: -------------------------------------------------------------------------------- 要去那孬下徭可庨作出任何形螷orm的元件! 哈哈哈!我是天才 -------------------------------------------------------------------------------- 我在e的站找到一?揃料緻你╪珙搰幋r 摘 要:如何能使窗體的外形象bitmap里的圖片? 關鍵字:TBitmap掃描線RGB 類 別:圖形 下面的例子說明如何使窗體的外形象bitmap里的圖片(掃描線)。bitmap 中的圖片必須含有除了白色以外的其它顏色,背景必須 是白色,因為這將被過濾掉。 例子 ------- Global Variables ---------------- (在窗體的當前聲明中) SourceBitmap : TBitmap; Procedures ---------- (Form的Public聲明部分) procedure GetColor(const SLine : PByteArray; const L: Integer; ,var R: Integer,var C: TColor); function GetColorOf(ScanLine: PByteArray; X : Word): TColor; 在窗體的OnCreate事件下加入 ------------------------------------------ var NewRgn, RowRgn, ScanRgn : HRGN; Rows, Left, Right : Integer; Line : PByteArray; SourceColor : TColor; begin SourceBitmap := TBitmap.Create; SourceBitmap.LoadFromFile(''example.bmp''); NewRgn := CreateRectRgn(0,0,0,0); For Rows := 0 To SourceBitmap.Height - 1 Do Begin RowRgn := CreateRectRgn(0,Rows,0,Rows); Line := SourceBitmap.Scanline[Rows]; Left := 0; Right := 0; repeat GetColor(Line,Left,Right,SourceColor); If (SourceColor <> clWhite) Then Begin ScanRgn := CreateRectRgn(Left,Rows,Right 1,Rows 1); CombineRgn(RowRgn,RowRgn,ScanRgn,RGN_OR); DeleteObject(ScanRgn); End; CombineRgn(NewRgn,NewRgn,RowRgn,RGN_OR); DeleteObject(RowRgn); while (right >= SourceBitmap.Width); End; SetWindowRgn(Handle,NewRgn,True); end; 在GetColor過程中: ------------------------- var Column : integer; CompareColor : TColor; begin Column := L; CompareColor := GetColorOf(SLine,L); repeat Inc(Column); until (CompareColor <> GetColorOf(SLine,Column)) or (Column >= SourceBitmap.Width); R := column - 1; C := CompareColor; end; 函數GetColorOf中: -------------------------- var Red, Green, Blue : Byte; begin If SourceBitmap = nil then exit; If (X > SourceBitmap.Width) then Exit; Result := clBlack; Red := ScanLine[X * 3]; Green := ScanLine[X * 3 1]; Blue := ScanLine[X * 3 2]; If ((Red >= 138) and (Green >= 138) and (Blue >= 138)) Then Result := clWhite end; @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
hxf_wolf
一般會員


發表:7
回覆:38
積分:9
註冊:2002-03-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-07-16 08:09:44 IP:61.175.xxx.xxx 未訂閱
用woll2woll software's的1stclass3000控件的TfcImageForm:Picture 加入一張圖片,Demo中的圖片中red為透明.
------
Happy Coding
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-07-16 08:11:02 IP:211.22.xxx.xxx 未訂閱
引言: 要去那裡下載可製作出任何形狀form的元件!
參考這兒: http://www.woll2woll.com/1stclass/tour/ 超炫的元件!
ayukawa
一般會員


發表:16
回覆:5
積分:4
註冊:2002-07-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-07-16 10:24:50 IP:61.217.xxx.xxx 未訂閱
可是~~~~沒有免費的嗎?~~~~ 我也有抓不少個any shape form的元件,但都是要錢的 麻煩各位網友幫幫忙 可提供免費的any shape form元件!謝謝! 哈哈哈!我是天才
------
哈哈哈!我是天才
danny
版主


發表:100
回覆:522
積分:595
註冊:2002-03-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-07-16 13:27:42 IP:210.200.xxx.xxx 未訂閱
引言: 可是~~~~沒有免費的嗎?~~~~ 我也有抓不少個any shape form的元件,但都是要錢的 麻煩各位網友幫幫忙 可提供免費的any shape form元件!謝謝!
BITRGN.ZIP http://www.vclxx.org/DELPHI/D32FREE/BITRGN.ZIP TBitmapRgn 是提供製作不規則形狀視窗、並具透明效果 TForm 的非視覺化元件 ( 附原始程式碼 ),作者 : Carlos P?rez Sancho。 BMP2RGN.ZIP http://www.vclxx.org/DELPHI/D32FREE/BMP2RGN.ZIP Bmp2Rgn 單元提供製作不規則形狀視窗、並具透明效果 TForm 的函式庫 ( 1.0 版,附原始程式碼 ),作者 : Tomasz Kustra。 BMPRGN.ZIP http://www.vclxx.org/DELPHI/D32FREE/BMPRGN.ZIP BmpRgn 是能夠輕易製作 TForm 透明效果的單元,可搭配 .BMP 檔案製作出非矩形樣式的 TForm ( 1.0 版,附原始程式碼 ),作者 : Gunter Richter。
------
將問題盡快結案也是一種禮貌!
kecc
一般會員


發表:1
回覆:4
積分:1
註冊:2002-07-05

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-07-17 10:07:44 IP:211.20.xxx.xxx 未訂閱
http://www.lawrenz.com/coolform/CoolFormD6.zip 不錯的元件
lcjan
初階會員


發表:11
回覆:60
積分:29
註冊:2002-03-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-07-19 16:20:03 IP:211.74.xxx.xxx 未訂閱
利用Delphi 6 設定Form的穿透顏色 可以簡單的做出任意形狀的Form
系統時間:2024-03-28 23:38:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!