以Delphi5撰寫，尚在研發階段，無使用任何外掛元件。

補充:
請點選第一排, 第三個按鈕, 開啟新檔才能開始畫
不會上傳圖檔, 無法show給大家看

附加檔案：4577e89ba65f3_Project2.exe

介面真是漂亮！不過好像無法操作！可以參考Delphi 7 範例Graphex

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

對了！左邊類似OutLook功能選單的作法，不知道是否可以提供給予參考！實在寫不出來這樣好看的介面

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

我的作法是在 PageControl.TabSheet 裡面放一個 ListView,  然後將  ListView.LargeImage 設定為 準備好的 ImageList

===================引 用 文 章===================

對了！左邊類似OutLook功能選單的作法，不知道是否可以提供給予參考！實在寫不出來這樣好看的介面
?

我會嘗試看看的！感謝您的回應！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

===================引 用 文 章===================
對了！左邊類似OutLook功能選單的作法，不知道是否可以提供給予參考！實在寫不出來這樣好看的介面

你可以試試看JVCL的JvOutlookBar 範例執行檔 http://downloads.sourceforge.net/jvcl/JVCL300MegaDemo.zip?modtime=1111696403&big_mirror=0 執行畫面

你好~
請問一下~你是如何讓畫出來的圖可以移動、拉大、拉小的??

想了好久~紿終寫不出來~
麻煩指點一下~
謝謝

你好：
我也是想了好久，在K-Top上爬了恨很多文章才做出來，所以也要感謝很多前輩的交流。
我的作法可能比較笨一些，提供參考
我是在底圖畫完之後複製一份到動態產生的TImage中，TImage設定為穿透，位置就放置於底圖上面剛剛所畫的位置，再清掉底讀上的圖形，如此剛剛畫的東西就可以視為一物件來用。
至於放大縮小，就在TImage的四周產生8個TPanel，當滑鼠拖拉的時候去改變TImage的大小。
存檔的時候再將所有物件與底圖合併即可。

===================引 用 文 章===================
你好~
請問一下~你是如何讓畫出來的圖可以移動、拉大、拉小的??

想了好久~紿終寫不出來~
麻煩指點一下~
謝謝

感謝~lcjan
很高興看到你的答覆
我也是爬了K-Top上很多文章~
1.在次畫圖就動態產生一個Image
2.清除底圖所畫上的圖~
3.將圖改畫在動態產生的Image上
我的圖可以移動~(應該說是Image可以移動)
我大概作到這個地步~

我現在的問題主要是拉大拉小~
我該從哪下手呢??
希望你能幫忙~
謝謝~

你好:
關於圖的放大縮小，我是動態產生8個TPanel分別放在TImage四周, 將Code寫在TPanel上， 如果移動TPanel時去改變TImage大小這就行了

感謝你的答覆~
在改變TImage大小時~TImage上的圖(我們所複製上去的)
也會跟著TImage成比例的改變大小嗎??
我現在可以改變TImage的大小~
但是~圖不會跟著變~
麻煩你了~
謝謝~

試試看以下順序:
1. Creat TImage
2. Set Timage.AutoSize:=True;
3. Load Picture into TImage
4.Set Timage.AutoSize:=False;
5.Set Timage.Stretch:=True;
ok! 縮放Timage大小試試看

感謝~lcjan
試了~可以拉大小了~
但是因為~Set Timage.Stretch:=True;
所使得在拉大時~圖形的線也會因為拉大、拉小而變粗、變細
有辦法~不要讓圖形變粗變細嗎??
謝謝~


另外~再問另一個問題~
你前面說的~在TImage旁動態產生8個TPanel
這8個TPanel是放在TImage上嗎??
如果是的話~TImage上怎麼放TPanel
如果不是的話~又怎麼能讓TPanel跟著圖跑??
感謝~