TPen的7種Style和16種Mode

2022-09-19 21:18:25 字數 3843 閱讀 9234

**

//tpen 的主要屬性有四: color、width、style、mode  

pssolid       = 0;   

psdash        = 1;   

psdot         = 2;   

psdashdot     = 3;   

psdashdotdot  = 4;   

psclear       = 5;   

psinsideframe = 6;   

psuserstyle   = 7;   

psalternate   = 8;   

//下面的例子依次展示了各種樣式:  

var  

i,x,y,n: integer;  

begin  

x := 10;  

y := 15;  

n := clientwidth - 2*x;  

canvas.pen.color := clred;  

for i := 0 to 8 do  

begin  

canvas.pen.style := tpenstyle(i);  

canvas.moveto(x, y);  

canvas.lineto(x + n, y);  

y := y + 15;  

end;  

end;  

//效果圖:

//顏色模式測試程式:  

var  

i,x,y,w,n: integer;  

begin  

x := 0;  

y := 0;  

w := clientwidth div 18;  

for i := 0 to 18 do  

begin  

canvas.brush.color := paletteindex(i);  

canvas.fillrect(rect(x, y, x+w, clientheight));  

x := x + w;  

end;  

x := 0;  

y := 20;  

n := clientwidth;  

canvas.pen.width := 4;  

canvas.pen.color := clred;  

for i := 0 to 15 do  

begin  

canvas.pen.mode := tpenmode(i);  

canvas.moveto(x, y);  

canvas.lineto(x + n, y);  

y := y + 20;  

end;  

end;  

//效果圖:

:**//tpen 的主要屬性有四: color、width、style、mode  

pssolid       = 0;   

psdash        = 1;   

psdot         = 2;   

psdashdot     = 3;   

psdashdotdot  = 4;   

psclear       = 5;   

psinsideframe = 6;   

psuserstyle   = 7;   

psalternate   = 8;   

//下面的例子依次展示了各種樣式:  

var  

i,x,y,n: integer;  

begin  

x := 10;  

y := 15;  

n := clientwidth - 2*x;  

canvas.pen.color := clred;  

for i := 0 to 8 do  

begin  

canvas.pen.style := tpenstyle(i);  

canvas.moveto(x, y);  

canvas.lineto(x + n, y);  

y := y + 15;  

end;  

end;  

//效果圖:

//顏色模式測試程式:  

var  

i,x,y,w,n: integer;  

begin  

x := 0;  

y := 0;  

w := clientwidth div 18;  

for i := 0 to 18 do  

begin  

canvas.brush.color := paletteindex(i);  

canvas.fillrect(rect(x, y, x+w, clientheight));  

x := x + w;  

end;  

x := 0;  

y := 20;  

n := clientwidth;  

canvas.pen.width := 4;  

canvas.pen.color := clred;  

for i := 0 to 15 do  

begin  

canvas.pen.mode := tpenmode(i);  

canvas.moveto(x, y);  

canvas.lineto(x + n, y);  

y := y + 20;  

end;  

end;  

//效果圖:

:

style和template的區別

原文 http blogs.msdn.com jaimer archive 2008 04 08 built in styling and generic xaml.aspx 複製內容到剪貼簿 public class gelbutton button 足夠簡單,現在我們想在page.xaml裡使用...

Android 中的Theme和Style使用

android 中的theme和style使用,還是比較簡單的。1 首先在res values styles.xml的resource中定義三個樣式,分別為 然後在res layout檔案下的activity main.xml中的控制項中引用剛才定義的style。android id id text...

RelativeLayout的16種特有屬性

相對於兄弟控制項的位置屬性 android layout above id center btn 處於某乙個控制項的上方 android layout below id center btn 處於某乙個控制項的下方 android layout toleftof id center btn 處於某乙...