Periodensystem Xtreme 1.0 beta 6

[turboPASCAL]

Zitat von jaenicke:

Zitat von turboPASCAL:

Was noch ein nettes Feature bei der Suche wäre, die nicht gesuchten Elemente auszugrauen (oder einfach nicht die Hintergrundfarbe zu nutzen).

Ja, sowas hatte ich auch überlegt das optional auch anders zu machen...

Hah, war ja einfach:

Delphi-Quellcode:

procedure TStandardElementGraphics.DrawElement(AElement: TChemicalElementData;
  ARect: TRect);
var
  CurValue: String;
  CurTop, NormalTextHeight, ElemTextWidth: Integer;
begin
  if (drsCleanRect in DrawState) or not (drsVisible in DrawState) then
  begin
    FCanvas.Pen.Color := FBackgroundColor;
    FCanvas.Brush.Color := FBackgroundColor;
    FCanvas.Rectangle(ARect);
    if drsCleanRect in DrawState then
      DrawState := DrawState - [drsCleanRect];
  end;

  {$MESSAGE '*** 3 ***'}
  if (drsVisible in FDrawState)  then   // add
  begin
     FCanvas.Brush.Color := FColor;
     FCanvas.Pen.Color := clBlack;
     FCanvas.Font.Color := clWindowText;
  end else
  begin
    FCanvas.Brush.Color := FBackgroundColor;
    FCanvas.Pen.Color := clGrayText;
    FCanvas.Font.Color := clGrayText;
  end;

//     FCanvas.Brush.Color := FColor;
//     FCanvas.Pen.Color := clBlack;

//  if not (drsVisible in FDrawState) then
//    Exit;

  if drsHovered in FDrawState then