Տուն
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.052 գ
1-1101541575
Igor_thief
2004-11-27 10:46
2004.12.12
Հուշում


1-1101895430
denis24
2004-12-01 13:03
2004.12.12
listbox-> իրադարձություն


4-1098876608
Vzup
2004-10-27 15:30
2004.12.12
OpenDialog- ով կանգնած ???


1-1101718296
Ոստրե
2004-11-29 11:51
2004.12.12
Խնդիրներ BP- ի փունջով


3-1100072734
sanek
2004-11-10 10:45
2004.12.12
ինչպես դաշտը ավելացնել այլ սեղանից դեպի ցանց





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