- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我和两个人一直在试图找出一个简单的公式。我有一个网格,它可以有可变数量的列和行。当用户单击其中一个单元格时,我必须根据列/行确定单击了哪个“索引”。索引从 0 开始,从左到右,然后从上到下。没有固定的列/行。
我的意思的示例:
所以如果有3列,用户点击C2/R1,那么需要解析索引5。在这个例子中所有索引都是从0开始的。
我目前的公式是这样的:
//I = Calculated index based on row/col (starts from 0)
//ACol = Column index user clicked (starts from 0)
//ARow = Row index user clicked (starts from 0)
//ColCount = Number of columns
I:= (C * ColCount) + (R - ColCount);
<小时/>
编辑
作为引用,下面是我的整个组件单元。
包含公式的行标有注释“FORMULA HERE”
unit ImageGrid;
interface
uses
Windows, Classes, SysUtils, Grids, Graphics, StdCtrls, ExtCtrls, Controls,
Jpeg, PngImage;
type
TImageGrid = class;
TImageGridItem = class;
TGridSizing = (gsManual, gsAuto, gsFit);
TImageGridItem = class(TObject)
private
FFilename: TFilename;
FOwner: TImageGrid;
FBmp: TBitmap;
procedure Event;
procedure SetFilename(const Value: TFilename);
public
constructor Create(AOwner: TImageGrid);
destructor Destroy; override;
procedure LoadFile;
published
property Filename: TFilename read FFilename write SetFilename;
end;
TImageGrid = class(TCustomDrawGrid)
private
FItems: TStringList;
FCacheDir: String;
FRowHeight: Integer;
FColWidth: Integer;
FSizing: TGridSizing;
FItemIndex: Integer;
procedure SetCacheDir(const Value: String);
procedure SetColWidth(const Value: Integer);
procedure SetRowHeight(const Value: Integer);
procedure SetSizing(const Value: TGridSizing);
function GetItem(Index: Integer): TImageGridItem;
procedure SetItem(Index: Integer; const Value: TImageGridItem);
procedure SetItemIndex(const Value: Integer);
procedure SelectCell(Sender: TObject; ACol, ARow: Longint;
var CanSelect: Boolean);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Count: Integer;
property Items[Index: Integer]: TImageGridItem
read GetItem write SetItem; default;
function Add: TImageGridItem;
procedure Delete(const Index: Integer);
procedure Clear;
published
property CacheDir: String read FCacheDir write SetCacheDir;
property ColWidth: Integer read FColWidth write SetColWidth;
property RowHeight: Integer read FRowHeight write SetRowHeight;
property Sizing: TGridSizing read FSizing write SetSizing;
property ItemIndex: Integer read FItemIndex write SetItemIndex;
property Align;
property Anchors;
property BevelEdges;
property BevelInner;
property BevelKind;
property BevelOuter;
property BevelWidth;
property BiDiMode;
property BorderStyle;
property Color;
property ColCount;
property Constraints;
property Ctl3D;
property DefaultColWidth;
property DefaultRowHeight;
property DefaultDrawing;
property DoubleBuffered;
property DragCursor;
property DragKind;
property DragMode;
property DrawingStyle;
property Enabled;
property Font;
property GradientEndColor;
property GradientStartColor;
property GridLineWidth;
property Options;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ScrollBars;
property ShowHint;
property TabOrder;
property Touch;
property Visible;
property OnClick;
property OnColumnMoved;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnDrawCell;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGesture;
property OnGetEditMask;
property OnGetEditText;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseActivate;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnRowMoved;
property OnSelectCell;
property OnSetEditText;
property OnStartDock;
property OnStartDrag;
property OnTopLeftChanged;
end;
implementation
//Register procedure will come later...
{ TImageGrid }
function TImageGrid.Add: TImageGridItem;
begin
Result:= TImageGridItem.Create(Self);
FItems.AddObject('', Result);
end;
procedure TImageGrid.Clear;
begin
while Count > 0 do
Delete(0);
end;
function TImageGrid.Count: Integer;
begin
Result:= FItems.Count;
end;
constructor TImageGrid.Create(AOwner: TComponent);
begin
inherited;
Options:= [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,
goRangeSelect,goThumbTracking];
Parent:= TWinControl(AOwner);
FItems:= TStringList.Create;
FixedCols:= 0;
FixedRows:= 0;
RowCount:= 1;
ColCount:= 1;
FColWidth:= 100;
FRowHeight:= 100;
ColWidths[0]:= FColWidth;
RowHeights[0]:= FRowHeight;
FSizing:= gsManual;
FItemIndex:= -1;
OnSelectCell:= SelectCell;
Invalidate;
end;
procedure TImageGrid.Delete(const Index: Integer);
begin
if (Index >= 0) and (Index < FItems.Count) then begin
TImageGridItem(FItems.Objects[Index]).Free;
FItems.Delete(Index);
end else begin
raise Exception.Create('List index out of bounds ('+IntToStr(Index)+')');
end;
end;
destructor TImageGrid.Destroy;
begin
FItems.Free;
inherited;
end;
function TImageGrid.GetItem(Index: Integer): TImageGridItem;
begin
if (Index >= 0) and (Index < FItems.Count) then begin
Result:= TImageGridItem(FItems.Objects[Index]);
end else begin
Result:= nil;
raise Exception.Create('List index out of bounds ('+IntToStr(Index)+')');
end;
end;
procedure TImageGrid.Paint;
var
Bmp: TBitmap;
C: Integer;
RC: Integer;
CC: Integer;
X, Y: Integer;
I: TImageGridItem;
R: TRect;
procedure DrawImage(B: TBitmap; const R: TRect);
begin
Canvas.StretchDraw(R, B);
end;
begin
Canvas.Brush.Style:= bsSolid;
Canvas.Pen.Style:= psClear;
Canvas.Brush.Color:= clWhite;
Canvas.FillRect(Canvas.ClipRect);
Bmp:= TBitmap.Create;
try
if Count > 0 then begin
case FSizing of
gsManual: begin
//Draw like regular grid with variable sizes - expand rows as needed
inherited;
end;
gsAuto: begin
//Calculate image width based on col count
end;
gsFit: begin
//Calculate col count based on image width
CC:= Trunc(ClientWidth / FColWidth);
RC:= Trunc(Count / CC);
ColCount:= CC;
RowCount:= RC;
for X := 0 to ColCount - 1 do
ColWidths[X]:= FColWidth;
for X := 0 to RowCount - 1 do
RowHeights[X]:= FRowHeight;
Canvas.Brush.Style:= bsSolid;
Canvas.Pen.Style:= psSolid;
Canvas.Brush.Color:= clWhite;
Canvas.Pen.Width:= 1;
C:= 0; //C = Count of items to show
for X := 0 to ColCount - 1 do begin
for Y := 0 to RowCount - 1 do begin
I:= Self.Items[C];
if C = FItemIndex then begin
Canvas.Pen.Color:= clRed;
Canvas.Pen.Width:= 2;
end else begin
Canvas.Pen.Color:= clNavy;
Canvas.Pen.Width:= 1;
end;
R:= CellRect(X,Y);
Canvas.Rectangle(R);
InflateRect(R, -4, -4);
Canvas.StretchDraw(R, I.FBmp);
C:= C + 1;
end;
end;
end;
end;
end else begin
ColCount:= 1;
RowCount:= 1;
end;
finally
Bmp.Free;
end;
end;
procedure TImageGrid.SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
I: Integer;
C, R: Integer;
begin
//Determine item index based on col/row
C:= ACol;
R:= ARow;
//I = Calculated index based on row/col (starts from 0)
//ACol = Column index user clicked (starts from 0)
//ARow = Row index user clicked (starts from 0)
//ColCount = Number of columns
I:= (R * ColCount) + C; // <<----- FORMULA HERE
if I < Count - 1 then begin
FItemIndex:= I;
CanSelect:= True;
end else begin
FItemIndex:= -1;
CanSelect:= False;
end;
Invalidate;
end;
procedure TImageGrid.SetCacheDir(const Value: String);
begin
if Value <> FCacheDir then begin
FCacheDir := Value;
Invalidate;
end;
end;
procedure TImageGrid.SetColWidth(const Value: Integer);
begin
if Value <> FColWidth then begin
FColWidth := Value;
Invalidate;
end;
end;
procedure TImageGrid.SetItem(Index: Integer; const Value: TImageGridItem);
begin
if (Index >= 0) and (Index < FItems.Count) then begin
FItems.Objects[Index]:= Value;
Invalidate;
end else begin
raise Exception.Create('List index out of bounds ('+IntToStr(Index)+')');
end;
end;
procedure TImageGrid.SetItemIndex(const Value: Integer);
begin
if Value <> FItemIndex then begin
FItemIndex := Value;
Invalidate;
end;
end;
procedure TImageGrid.SetRowHeight(const Value: Integer);
begin
if Value <> FRowHeight then begin
FRowHeight := Value;
Invalidate;
end;
end;
procedure TImageGrid.SetSizing(const Value: TGridSizing);
begin
if Value <> FSizing then begin
FSizing := Value;
Invalidate;
end;
end;
{ TImageGridItem }
constructor TImageGridItem.Create(AOwner: TImageGrid);
begin
FOwner:= AOwner;
FBmp:= TBitmap.Create;
end;
destructor TImageGridItem.Destroy;
begin
FBmp.Free;
inherited;
end;
procedure TImageGridItem.Event;
begin
FOwner.Invalidate;
end;
procedure TImageGridItem.LoadFile;
//Determine file type and load accordingly
function GetImage(const Filename: String; B: TBitmap): Bool;
var
E: String;
IJ: TJpegImage;
IP: TPngObject;
begin
Result:= False;
if FileExists(Filename) then begin
E:= UpperCase(ExtractFileExt(Filename));
if E = '.BMP' then begin
B.LoadFromFile(Filename);
Result:= True;
end else
if (E = '.JPG') or (E = '.JPEG') then begin
IJ:= TJpegImage.Create;
try
IJ.LoadFromFile(Filename);
B.Assign(IJ);
Result:= True;
finally
IJ.Free;
end;
end else
if E = '.PNG' then begin
IP:= TPngObject.Create;
try
IP.LoadFromFile(Filename);
B.Assign(IP);
Result:= True;
finally
IP.Free;
end;
end else begin
raise Exception.Create('Invalid file extension ('+E+')');
end;
end;
end;
begin
GetImage(FFilename, FBmp);
end;
procedure TImageGridItem.SetFilename(const Value: TFilename);
begin
if Value <> FFilename then begin
FFilename := Value;
LoadFile;
Event;
end;
end;
end.
已解决
多亏了下面的回答,我已经解决了。我一开始认为公式是错误的,但在确定了更多代码范围后,我发现在另一个地方,它不正确地循环了行和列。下面是它应该如何工作...
for Y := 0 to RowCount - 1 do begin
for X := 0 to ColCount - 1 do begin
但是我之前有的是......
for X := 0 to ColCount - 1 do begin
for Y := 0 to RowCount - 1 do begin
最佳答案
以下应该可以解决问题
(R * ColCount) + C
对于您的示例,这将变为
(2 * 3) + 2 = 8
和...如果有3列,并且用户点击C2/R1,则需要解析索引5
(1 * 3) + 2 = 5
关于delphi - 根据网格中的列/行选择确定项目索引的数学,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8872662/
Based on Deep Learning (2017, MIT) book. 本文基于Deep Learning (2017, MIT),推导过程补全了所涉及的知识及书中推导过程中跳跃和省
因此,我需要一种方法来弄清楚如何获得5个数字,并且当您将它们中的任意两个相加时,将得出一个总和,您只能通过将这两个特定的数字相加而得到。 这是我正在谈论的示例,但有3个数字: 1个 3 5 1 + 3
就目前而言,这个问题不适合我们的问答形式。我们希望答案得到事实、引用或专业知识的支持,但这个问题可能会引起辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the he
如何将 a 和 b 之间的数字线性映射到 c 和 d 之间。 也就是说,我希望 2 到 6 之间的数字映射到 10 到 20 之间的数字...但我需要广义的情况。 我的脑子快炸了。 最佳答案 如果您的
嘿,我有一个方程式,我需要弄清楚它是基于图表的数学,其中图表上有两个点,需要获取其余值: 我正在构建一个 javascript 页面,它获取图表上的两个点,但需要吐出图表上的任何位置。 它用于根据了解
有谁知道如何用 Doxygen 得到实复场或射影平面的符号,i.o.w 符号,如 IR、IC、IP 等? 例如,我尝试了\f$\field{R}\f$,但无法识别。 非常感谢您的帮助,G. 最佳答案
我正在使用 Segment to Segment 最接近方法,该方法将输出两个长度段之间的最近距离。每个段对应一个球体对象的起点和终点。速度只是从一个点到另一个点。 即使没有真正的碰撞,最近的方法也可
我有一个 arduino 连接到 Stradella 系统钢琴 Accordion 。我在左手和弦的 12 个音符中的每一个上都有光学传感器。当我弹奏和弦时,它会触发三个传感器。如果我想让合成器演奏和
我正在开发一个具有一些简单功能的新包。现在我可以使用已经存在的“math-vectors”库中的函数;特别是“插值”和“反转”。如何在我的新包中使用这些?编写 y:=reverse(...) 显然是不
这个问题已经有答案了: 已关闭10 年前。 Possible Duplicate: Integer division in JavaScript 希望这是一个简单的问题,基本上我需要这样做: 分隔线
我有一张表格,上面有学校类(class)。此表单上可以有任意数量的类,每个类有 2 个字段。书本费和学费。 我有一个名为总计的第三个字段,当他们在其他字段中输入成本时,我想更新该字段。 这就是我的设置
今天早些时候我问了一个类似的问题,结果发现我只是数学很烂,因为我也无法解决这个问题。 我通过宽度/高度计算屏幕比例。我需要一个函数来将结果数字转换为新的比例。 例如 function convertN
我有一个起始数字,因此必须仅在开始循环时将该数字乘以一个因子,然后将结果乘以另一个因子的 X 倍,然后必须将循环乘以 Y 次,最后我需要总金额...我认为最好查看数字来了解我需要什么 例如,如果我从数
现在我用 JAVA 遇到了一些问题,但不记得如何获取坐标系之间的长度。 例如。A 点 (3,7)B点(7,59) 我想知道如何计算a点和b点之间的距离。非常感谢您的回答。 :-) 最佳答案 A = (
我有两种类型的文本输入,积极的和可疑的。在将输入到这两种类型的输入中的所有数字相加后,我需要显示多组这些输入的总数。例如:2 个阳性 + 2 个可疑 = 总计:4 然后,我需要从总数中找出积极与可疑的
我正在尝试将输入金额乘以 3.5%,任何人都可以给我任何想法如何做到这一点吗? $("#invest_amount").keyup(function() { $('#fee').va
有谁知道返回a的最大数的Math方法 给定的位数。 例如,使用1位数字的最大数字是9,2是99,3是999,4是9999......等等。 使用字符串很容易实现,但这并不完全 我在找什么。 pri
我是 Knockout 的新手,但仍对它一头雾水,我想知道如何使用两个 KO 变量进行简单的数学运算(加法和乘法)。 此刻我有: self.popInc1 = ko.observable('0.3')
我在谷歌地图应用程序中有以下内容,并希望显示转换为英尺的海拔高度,但如何向上/向下舍入到最接近的数字? (消除小数点后的数字)我尝试了 number.toFixed(x) 方法,但似乎什么也没做。 f
我最近开始使用 JavaScript 编写小型 Canvas 游戏,并试图全神贯注于 Vector 2d 数学。我了解 Vectors 的基础知识(比如它们代表 2d 空间中具有方向的点,您可以对它们
我是一名优秀的程序员,十分优秀!