weiß nicht, ob ich grad 'ne Totale Denkblockade habe, aber ich bilde mir ein, wenn ich mein DrawGrid über OnDrawCell ansteuere, wird der Text im Row 0 (standart in der Farbe clBtnFace) einfach wech.
ich vermute mal, das es sich da um eine Überlagerung handelt.
Code: Alles auswählen
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
begin
Regeldaten.Kalender[aRow, aCol]:= True;
DrawGrid1.Canvas.Brush.Color := clRed;
if GridSelArr[aCol,aRow] then
DrawGrid1.Canvas.FillRect(aRect);
if gdSelected in aState then
begin
if GridselArr[aCol,aRow] then
begin
GridSelArr[aCol,aRow] := False;
DrawGrid1.Canvas.Brush.Color:= clWhite;
DrawGrid1.Canvas.FillRect(aRect);
end
else
begin
GridSelArr[aCol,aRow] := True;
DrawGrid1.Canvas.FillRect(aRect);
end;
end;
end;
zugegeben das Grundgerüst dazu habe ich auch nur durch zufall gefunden allerdings für meine zwecke geändert.
Hier hab ich denne noch mal das Object an sich zur sichtung reingejagt.
Code: Alles auswählen
object DrawGrid1: TDrawGrid
Left = 0
Height = 396
Top = 0
Width = 968
ColCount = 32
Columns = <
item
Title.Alignment = taCenter
Title.Caption = '1'
end
item
Title.Alignment = taCenter
Title.Caption = '2'
end
item
Title.Alignment = taCenter
Title.Caption = '3'
end
item
Title.Alignment = taCenter
Title.Caption = '4'
end
item
Title.Alignment = taCenter
Title.Caption = '5'
end
item
Title.Alignment = taCenter
Title.Caption = '6'
end
item
Title.Alignment = taCenter
Title.Caption = '7'
end
item
Title.Alignment = taCenter
Title.Caption = '8'
end
item
Title.Alignment = taCenter
Title.Caption = '9'
end
item
Title.Alignment = taCenter
Title.Caption = '10'
end
item
Title.Alignment = taCenter
Title.Caption = '11'
end
item
Title.Alignment = taCenter
Title.Caption = '12'
end
item
Title.Alignment = taCenter
Title.Caption = '13'
end
item
Title.Alignment = taCenter
Title.Caption = '14'
end
item
Title.Alignment = taCenter
Title.Caption = '15'
end
item
Title.Alignment = taCenter
Title.Caption = '16'
end
item
Title.Alignment = taCenter
Title.Caption = '17'
end
item
Title.Alignment = taCenter
Title.Caption = '18'
end
item
Title.Alignment = taCenter
Title.Caption = '19'
end
item
Title.Alignment = taCenter
Title.Caption = '20'
end
item
Title.Alignment = taCenter
Title.Caption = '21'
end
item
Title.Alignment = taCenter
Title.Caption = '22'
end
item
Title.Alignment = taCenter
Title.Caption = '23'
end
item
Title.Alignment = taCenter
Title.Caption = '24'
end
item
Title.Alignment = taCenter
Title.Caption = '25'
end
item
Title.Alignment = taCenter
Title.Caption = '26'
end
item
Title.Alignment = taCenter
Title.Caption = '27'
end
item
Title.Alignment = taCenter
Title.Caption = '28'
end
item
Title.Alignment = taCenter
Title.Caption = '29'
end
item
Title.Alignment = taCenter
Title.Caption = '30'
end
item
Title.Alignment = taCenter
Title.Caption = '31'
end>
DefaultColWidth = 30
DefaultRowHeight = 30
ExtendedSelect = False
RowCount = 13
TabOrder = 0
OnClick = DrawGrid1Click
OnDrawCell = DrawGrid1DrawCell
sowie ich die Zeile
Code: Alles auswählen
OnDrawCell = DrawGrid1DrawCell
einbinde, scheint das Programm den Part
Code: Alles auswählen
Columns = <
item
Title.Alignment = taCenter
Title.Caption = '1'
end
item
Title.Alignment = taCenter
Title.Caption = '2'
end
item
Title.Alignment = taCenter
Title.Caption = '3'
end
item
Title.Alignment = taCenter
Title.Caption = '4'
end
item
Title.Alignment = taCenter
Title.Caption = '5'
end
item
Title.Alignment = taCenter
Title.Caption = '6'
end
item
Title.Alignment = taCenter
Title.Caption = '7'
end
item
Title.Alignment = taCenter
Title.Caption = '8'
end
item
Title.Alignment = taCenter
Title.Caption = '9'
end
item
Title.Alignment = taCenter
Title.Caption = '10'
end
item
Title.Alignment = taCenter
Title.Caption = '11'
end
item
Title.Alignment = taCenter
Title.Caption = '12'
end
item
Title.Alignment = taCenter
Title.Caption = '13'
end
item
Title.Alignment = taCenter
Title.Caption = '14'
end
item
Title.Alignment = taCenter
Title.Caption = '15'
end
item
Title.Alignment = taCenter
Title.Caption = '16'
end
item
Title.Alignment = taCenter
Title.Caption = '17'
end
item
Title.Alignment = taCenter
Title.Caption = '18'
end
item
Title.Alignment = taCenter
Title.Caption = '19'
end
item
Title.Alignment = taCenter
Title.Caption = '20'
end
item
Title.Alignment = taCenter
Title.Caption = '21'
end
item
Title.Alignment = taCenter
Title.Caption = '22'
end
item
Title.Alignment = taCenter
Title.Caption = '23'
end
item
Title.Alignment = taCenter
Title.Caption = '24'
end
item
Title.Alignment = taCenter
Title.Caption = '25'
end
item
Title.Alignment = taCenter
Title.Caption = '26'
end
item
Title.Alignment = taCenter
Title.Caption = '27'
end
item
Title.Alignment = taCenter
Title.Caption = '28'
end
item
Title.Alignment = taCenter
Title.Caption = '29'
end
item
Title.Alignment = taCenter
Title.Caption = '30'
end
item
Title.Alignment = taCenter
Title.Caption = '31'
end>
und wenn ich das vermute, was mir grad im kopf rumjagt, konn ich nach ca 1 kippenlänge selber drauf.
Hoffen will.