Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2004.12.12;
Herunterladen: [xml.tar.bz2];

Nach unten

Zuggitter Finden Sie ähnliche Zweige


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

So platzieren Sie Daten (Symbole / Text) in einem Betreff. In StringGrid ist einfach, aber nur Text ((



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

Die Daten (Symbole / Text) sollten in einer bestimmten Struktur im Speicher abgelegt werden, und in DrawGrid.OnDrawCell sollten die Daten, die der zu zeichnenden Zelle entsprechen, daraus gezogen und gezeichnet werden. Weil er und UnentschiedenGitter



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


> Yu (© 26.11.04 03: 33) [1]
> Daten (Icons / Text) sollten in einer bestimmten Struktur platziert werden
> im Speicher und in DrawGrid.OnDrawCell, um daraus die entsprechenden zu extrahieren
> Zellendaten zeichnen und zeichnen. Weil er und DrawGrid

Also, wie man malt? Gibt es ein Beispiel?



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

Zum Beispiel (sortiere es aus):

procedure TF_EditDev.Grid_comDrawCell (Absender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
war
w_bm, h_bm: ganze Zahl;
beginnen
// gdFixed

//timerProverka.enabled:=true;//check with any redrawing

mit Sender als TStringGrid
beginnen
DefaultDrawing: = false;

wenn Arow> 0 dann
beginnen
Canvas.Brush.Color: = clsilver;
Canvas.FillRect (Rect);
ende

if (State = [gdfocused, gdSelected]) dann
beginnen

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

ende

Wenn Objekte [ACol, ARow] Tbitmap ist
dann
beginnen
w_bm: = (Objekte [ACol, ARow] als tbitmap) .width;
h_bm: = (Objekte [ACol, ARow] als tbitmap) .height;

if Grid_com.ColWidths [acol] <w_bm then
Grid_com.ColWidths [acol]: = w_bm;

if Grid_com.RowHeights [arow] <h_bm then
Grid_com.RowHeights [arow]: = h_bm;

if (Grid_com.RowHeights [arow]> h_bm) und (h_bm> 30) then
Grid_com.RowHeights [arow]: = h_bm;

     
Canvas.Draw (Rect.left, Rect.top, (Objekte [ACol, ARow] als Tbitmap));
aussteigen
ende;

if (Cells [1, ARow] = "_ VidDev") und (Acol = 2)
dann
beginnen
canvas.font.color: = clBlue;

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

v_str: = Zellen [2, ARow];

wenn v_str = "DD_", dann v_str: = "DISCRETE";
wenn v_str = "DA_", dann v_str: = "ANALOGUE";
canvas.TextOut (Rect.Left, Rect.Top, v_str);
Ausfahrt;
ende;

if (copy (Grid_com.Cells [1, Arow], 1,6) = "DAG_FC") und (Acol = 2)
dann
beginnen
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;
aussteigen
ende;

if ((Zellen [1, ARow] = "_Ident") oder (Zellen [1, ARow] = "_Imafile")) und
(Acol = 2)
dann canvas.font.color: = clNavy
sonst canvas.font.color: = clBlack;

wenn arow = xnumx
dann
beginne
canvas.font.Size: = 12;
canvas.font.color: = clNavy;
canvas.font.Style:=[fsBold];
ende
sonst
beginne
// canvas.font.Size: = 8;
canvas.font.color: = clblack;
// canvas.font.Style: = [];
ende;

canvas.TextOut (Rect.Left, Rect.Top, Cells [ACol, ARow]);

{else font.Size: = 10;}

DefaultDrawing: = true;
ende
end;
//



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2004.12.12;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.57 MB
Zeit: 0.069 c
3-1100111086
Axi
2004-11-10 21:24
2004.12.12
Wie finde ich eine mit SQL-Datensätzen erstellte ID?


14-1101197756
schwarzer Mann
2004-11-23 11:15
2004.12.12
Königreich 6 Jahre!


1-1101891456
Victor!
2004-12-01 11:57
2004.12.12
BDE-Installationsprogramm


1-1101781291
Delphin
2004-11-30 05:21
2004.12.12
benutzerdefinierte Klasse >> grundlegende Prozedur Überladung


14-1101306128
Onefragleft
2004-11-24 17:22
2004.12.12
Ressourcen teilen.





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch