-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
Okay...als nochmal vielen Dank euch beiden...ihr habt mir sehr geholfen.
mfg Razor
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
ahh..okay...mein fehler war, dass ich keine fixed rows hatte....jetzt is alles okay!!! also vielen dank euch beiden!!!
kann ich eigentlich die zeilen darunter einfärben, also hiermit?if not (gdFixed in State) then
begin
if (ARow > 1) and (ACol in ) then
canvas.Brush.Color := clGreen;
end;
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
ja...das hab ich auch so gemacht....bloß wenn ich irgendwo hinklicke, also in die tabelle, verschwindet ein kästchen, meistens das obere und dann das uneter auch noch....und dann muss ich erst nochmal klicken, damit alles wieder rot wird
es sollte aber so sein, das das rote garnicht verschwindet...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
also bei mir sind gar keine punlte zu sehen...mich wundert nur, das wenn ich auf die spalte kleicke das ondraw verschwindet und ich es erst zurückklicken muss
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
wenn ich das mache sind die zellen nicht mehr verbunden, also 0 und 1 sollen verbunde werden
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
hab ich schon gemacht ;)
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
cool...langsam wirds genau so wie ich es mir vorgestellt hab...VIELEN DANK!! wenn ich jetzt auf das obere feld klicke verschwindet die markierung....es soll gar nich rot sein, sonder clBtnFace...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
hey...
taaktaak, das is genau das richtige!!!! Danke
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
tut mir leid...ich bin noch neuling und hab jetzt gar keine ahnung was ich mit deinem ebend geposteten befehl machen sol...hab das jetzt wie bei ondrawcell neu eingefügt und mystr als string deklariert...was nung? wie mach ich die textausgabe aus meinen record (array)?
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
so in etwa???form15.stringgrid1.cells:=PChar('Verbrauch') das hat nix gebracht...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
aha...und wie schreib ich dann im ownerdraw??? Hab jetzt schon ne fertige unti wo die ganzen verwiese auf die zellen sind...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
jap in den oberen beiden
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
DrawText((Sender as TStringGrid).Canvas.Handle,
PChar(Cells),
-1,
R,
DT_CENTER or DT_VCENTER or DT_SINGLELINE); hat nicht geholfen... :(
Wenn ich die Zellen markeire, also mit dem Mauszeiger langfahre verschwindet das rot und es kommt wieder garu zum Vorschein mit dem Text, lass ich die Maus los wirds wieder rot...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
Also mal ganz grundsätzlich, damit ihr mich vll besser versteht:
Ich habe eine Tabelle, und in die Zellen passt mein Text nicht komplett rein. Zellengröße ändern bringt auch nix, da ich sonst immerzu nach links und rechts scrollen müsste.
So siehts jetzt aus:
|---------|---------|---------|
|Jahr 200|Jahr 200|Jahr 200|
|---------|---------|---------|
|---------|---------|---------|...
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
moinsen...aha...was kann man da machn?
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
per pn^^ ich mach den text dann per hand zweizeilig, also mit stringgridlcells:='';, das krieg ich hin...nur warum steht jetzt überhaupt nix mehr da????
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
in stringgriddraw cell...nur es funktioniert ja, aber der text ist weg!!!
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
ownerdraw...kA was das ist.. DeddyH hat mir schon geholfen:begin
if (ARow=1) then //Zeilen 1 und 2 verbinden
with Sender as TStringGrid do
begin
R := Classes.Rect(Rect.Left,
Rect.Top - (Rect.Bottom - Rect.Top),
Rect.Right,
Rect.Bottom);
Canvas.Brush.Color := clRed;
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
Es handelt sich um eine Stringgrid. Den Text, denn ich in eine Zelle schreiben möchte passt dort nicht rein, weshalb ich gerne unterienader in zwei Zellen schreiben würde.
-
Forum: Programmieren allgemein
by Razor90,
26. Jun 2008
Ich möchte nun zwei Zellen di untereinander sind miteinander verbinden. Ich habe folgenden Code gefunde:
If gdFixed In State Then Exit;
If ARow > 1 Then Exit; }
with sender as tstringgrid do begin
If aCol < Pred(ColCount) Then
Rect.Right := Rect.Right + 2 GridlineWidth;
y:= Rect.Top +2;
x:= Rect.Left +2;
for i:= 1 to aCol-1 do