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.08 c
1-1101509172
Artem Vladimirovich
2004-11-27 01:46
2004.12.12
Wie kann das Kopieren vom Webbrowser verhindert werden?


9-1091858675
dimodim
2004-08-07 10:04
2004.12.12
Informationen zur Animation von 3-Modellen


14-1100691914
Marser_t
2004-11-17 14:45
2004.12.12
Anthologie der Demagogie


4-1098963515
Greif
2004-10-28 15:38
2004.12.12
Finden Sie heraus, wie Sie übertreffen können


8-1095414104
Gast
2004-09-17 13:41
2004.12.12
GDI +. So arbeiten Sie richtig mit MeasureCharacterRanges





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish 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