Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Down

Դարչնագույն Գտնել նմանատիպ մասնաճյուղեր


Rand ©   (2004-11-26 03:14) [0]

Ինչպես դնել տվյալների (սյունակներ / տեքստ) առարկա: StrinGrid- ում դա պարզ է, բայց միայն տեքստը ((



ЮЮ ©   (2004-11-26 03:33) [1]

տվյալները (պատկերիկները / տեքստը) պետք է տեղադրվեն հիշողության մեջ որոշակի կառուցվածքի մեջ, եւ DrawGrid.OnDrawCell- ում դուք կարող եք հանել այն նիշերը, որոնք նկարագրվում եւ նկարվում են բջիջին: Հետեւաբար նա ՆկարելՑանց



Rand ©   (2004-11-26 04:02) [2]


> Յու (© 26.11.04 03: 33) [1]
> տվյալները (պատկերիկները / տեքստը) պետք է տեղադրվեն որոշակի կառուցվածքում
> հիշողության մեջ եւ DrawGrid.OnDrawCell- ից ստացեք համապատասխան
> նկարել բջիջների տվյալները եւ նկարել: Քանի որ նա եւ DrawGrid- ը

Այսպիսով, ինչպես խաղալ: Օրինակ կա:



kostan ©   (2004-11-26 05:25) [3]

օրինակ, (պարզեք):

ընթացակարգ TF_EditDev.Grid_comDrawCell (Ուղարկող `TObject; ACol, ARow: Integer;
Ուղղություն. Պետություն. TGridDrawState);
էր
w_bm, h_bm: integer;
սկսել
// gdFixed

//timerProverka.enabled:=true//// ստուգում ցանկացած վերամշակման համար

Sender- ի հետ TStringGrid- ը
սկսեք
DefaultDrawing: = false;

եթե Arow> 0 ապա
սկսեք
Canvas.Brush.Color: = clsilver;
Canvas.FillRect (Rect);
վերջ

եթե (State = [gdfocused, gdSelected]) ապա
սկսեք

Canvas.Brush.Color: = clwhite;
Canvas.FillRect (Rect);
// canvas.font.Size: = 8;

վերջ

եթե օբյեկտները [ACol, ARow] Tbitmap է
ապա
սկսեք
w_bm: = (օբյեկտներ [ACol, ARow] որպես tbitmap): width;
h_bm: = (օբյեկտներ [ACol, ARow] որպես tbitmap);

եթե Grid_com.ColWidths [acol] <w_bm ապա
Grid_com.ColWidths [acol]: = w_bm;

եթե Grid_com.RowHeights [arow] <h_bm ապա
Grid_com.RowHeights [arow]: = h_bm;

եթե (Grid_com.RowHeights [arow]> h_bm) եւ (h_bm> 30) ապա
Grid_com.RowHeights [arow]: = h_bm;

     
Canvas.Draw (Rect.left, Rect.top, (օբյեկտներ [ACol, ARow] որպես Tbitmap));
ելք;
վերջ

եթե բջիջները [1, ARow] = "_ VidDev") եւ (Acol = 2)
ապա
սկսեք
canvas.font.color: = clBlue;

// v_str: = TestDev.GetListval ("_ VidDev");

v_str: = Բջիջները [2, ARow];

եթե v_str = "DD_" ապա v_str: = "DISCRETE";
եթե v_str = "DA_" ապա v_str: = "ANALOG";
canvas.TextOut (Rect.Left, Rect.Top, v_str);
ելք;
վերջ

եթե (պատճենը (Grid_com.Cells [1, Arow], 1,6) = "DAG_FC") եւ (Acol = 2)
ապա
սկսեք
v_str: = Grid_com.Cells [1, Arow];

//i_ind:=Canvas.Brush.Color;
Canvas.Brush.Color: = testDev.GetListval (v_str);
Canvas.FillRect (Rect);
//Canvas.Brush.Color:=i_ind;
ելք;
վերջ

եթե ((Cells [1, ARow] = "_ Ident") կամ (Cells [1, ARow] = "_ Imafile")) եւ
(Acol = 2)
ապա canvas.font.color: = clNavy
Այլ canvas.font.color: = clBlack;

եթե Arow = 0
ապա
սկսեք
canvas.font.Size: = 12;
canvas.font.color: = clNavy;
canvas.font.Style:=[fsBold];
վերջ
Այլ
սկսեք
// canvas.font.Size: = 8;
canvas.font.color: = clblack;
// canvas.font.Style: = [];
վերջ

canvas.TextOut (Rect.Left, Rect.Top, բջիջները [ACol, ARow]);

{else font.Size: = 10;}

DefaultDrawing: = true;
վերջ
վերջը.
//



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.56 ՄԲ
Ժամանակը `0.058 գ
1-1101634029
AdmeraL.
2004-11-28 12:27
2004.12.12
Երկխոսություններ


3-1100453708
Մոտ
2004-11-14 20:35
2004.12.12
Delphi - IBX - Տեղադրեք


3-1100516912
Alex
2004-11-15 14:08
2004.12.12
DATAPUMP փոխարկման օրինակ կամ հոդված


8-1093890137
Պավել Լենգрафը
2004-08-30 22:22
2004.12.12
կարդալու ձեւաչափ RealAudio


1-1101469896
պահակախումբ
2004-11-26 14:51
2004.12.12
TabOrder





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский