- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的问题是我正在尝试开发的自定义控件,但我似乎无法弄清楚如何正确实现滚动条。我将在关键点上强调我正在努力使问题更容易理解。
TScrollingWinControl
。FImage
的已发布属性,它是一个 TPicture
类,这允许将图像加载到控件中。FImage
绘制到控件上。AutoScroll := False;
WM_SIZE
消息,在这里我确定了将 FImage
居中到控件中间的偏移量,并尝试重新计算滚动范围。FImage
绘制到控件上。到目前为止一切顺利,图像可以在设计或运行时加载并显示在控件的中心。现在我不明白如何正确设置滚动。
这是迄今为止的相关代码:
unit uImageViewer;
interface
uses
Winapi.Windows,
Winapi.Messages,
System.Classes,
Vcl.Controls,
Vcl.Forms,
Vcl.Graphics;
type
TMyImageViewer = class(TScrollingWinControl)
private
FCanvas: TCanvas;
FImage: TPicture;
FOffsetX: Integer; // center position in control for FImage
FOffsetY: Integer; // center position in control for FImage
procedure SetImage(const Value: TPicture);
private
procedure CalculateOffsets; //recalculates the center for FImage
procedure CalculateScrollRanges;
protected
procedure Loaded; override;
procedure PaintControl;
procedure PaintWindow(DC: HDC); override;
procedure WMEraseBkGnd(var Message: TMessage); message WM_ERASEBKGND;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure WMSize(var Message: TMessage); message WM_SIZE;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Canvas: TCanvas read FCanvas;
published
property Align;
property Color;
property Image: TPicture read FImage write SetImage;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Standard', [TMyImageViewer]);
end;
constructor TMyImageViewer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control:=Self;
FImage := TPicture.Create;
Self.AutoSize := False; //?
AutoScroll := False;
ControlStyle := ControlStyle + [csOpaque];
end;
destructor TMyImageViewer.Destroy;
begin
FCanvas.Free;
FImage.Free;
inherited Destroy;
end;
procedure TMyImageViewer.Loaded;
begin
inherited Loaded;
CalculateOffsets;
CalculateScrollRanges;
end;
procedure TMyImageViewer.PaintControl;
procedure DrawClientBackground; // paints the control color
begin
Canvas.Brush.Color := Color;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect(ClientRect);
end;
begin
// if not (csDesigning in ComponentState) then
// begin
DrawClientBackground;
// draw the FImage
if (FImage <> nil) and (FImage.Graphic <> nil) then
begin
Canvas.Draw(FOffsetX, FOffsetY, FImage.Graphic);
end;
// end;
end;
procedure TMyImageViewer.PaintWindow(DC: HDC);
begin
FCanvas.Handle := DC;
try
PaintControl;
finally
FCanvas.Handle := 0;
end;
end;
procedure TMyImageViewer.SetImage(const Value: TPicture);
begin
if Value <> FImage then
begin
FImage.Assign(Value);
CalculateOffsets;
CalculateScrollRanges;
Invalidate;
end;
end;
procedure TMyImageViewer.CalculateOffsets;
begin
// for centering FImage in the middle of the control
if FImage.Graphic <> nil then
begin
FOffsetX := (Width - FImage.Width) div 2;
FOffsetY := (Height - FImage.Height) div 2;
end;
end;
procedure TMyImageViewer.CalculateScrollRanges;
begin
HorzScrollBar.Range:= FOffsetX + FImage.Width + FOffsetX;
VertScrollBar.Range:= FOffsetY + FImage.Height + FOffsetY;
end;
procedure TMyImageViewer.WMEraseBkGnd(var Message: TMessage);
begin
Message.Result := 1;
end;
procedure TMyImageViewer.WMPaint(var Message: TWMPaint);
begin
PaintHandler(Message);
end;
procedure TMyImageViewer.WMSize(var Message: TMessage);
begin
inherited;
CalculateOffsets;
CalculateScrollRanges;
Invalidate;
end;
end.
我最初开始在 Lazarus 中编写此内容,但也想在 Delphi 中使用它,因此两个标签都已添加。
滚动条到底应该如何计算?请记住,没有启用子项或自动滚动,因此它必须是手动计算,我只是在控件的中心绘制图像,并且需要知道如何计算滚动条范围等。
我尝试了一些不同的事情,但没有成功,看起来我现在正在投入任何东西并希望得到最好的结果,所以我真的可以在这里得到一些指导。
编辑
因此,在尝试在 Delphi 中运行原始代码后,我现在意识到 Lazarus 有多么不同,必须更改很多东西才能在 Delphi 下运行,甚至现在滚动条正在消失。
最佳答案
如Garth already answered ,您应该将滚动条的范围设置为图片的大小。但这还不够。您必须意识到,您需要两种不同类型的图像放置行为:当滚动条可见时 (1),您可以将图像平移到不居中的位置,但当滚动条不可见时 (2),图像应自动居中。这需要在您的代码中进行类似的区分。
此外,您想要在 TScrollingWinControl
上绘画,这让您自己变得有点困难。要获取 Canvas ,最简单的方法是模仿 TCustomControl
的实现,我在下面所示的示例中就是这样做的,然后您的代码可能如下所示:
unit AwImageViewer;
interface
uses
Winapi.Windows, Winapi.Messages, System.Classes, Vcl.Controls, Vcl.Forms,
Vcl.Graphics;
type
TAwImageViewer = class(TScrollingWinControl)
private
FPicture: TPicture;
procedure PictureChanged(Sender: TObject);
procedure SetPicture(Value: TPicture);
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
protected
procedure PaintWindow(DC: HDC); override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Color;
property Picture: TPicture read FPicture write SetPicture;
end;
implementation
{ TAwImageViewer }
constructor TAwImageViewer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPicture := TPicture.Create;
FPicture.OnChange := PictureChanged;
end;
destructor TAwImageViewer.Destroy;
begin
FPicture.Free;
inherited Destroy;
end;
procedure TAwImageViewer.PaintWindow(DC: HDC);
var
Canvas: TCanvas;
R: TRect;
begin
if FPicture.Graphic = nil then
inherited PaintWindow(DC)
else
begin
Canvas := TCanvas.Create;
try
Canvas.Lock;
try
Canvas.Handle := DC;
try
if ClientWidth > FPicture.Width then
R.Left := (ClientWidth - FPicture.Width) div 2
else
R.Left := -HorzScrollBar.Position;
if ClientHeight > FPicture.Height then
R.Top := (ClientHeight - FPicture.Height) div 2
else
R.Top := -VertScrollBar.Position;
R.Width := FPicture.Width;
R.Height := FPicture.Height;
Canvas.Draw(R.Left, R.Top, FPicture.Graphic);
ExcludeClipRect(DC, R.Left, R.Top, R.Right, R.Bottom);
FillRect(DC, ClientRect, Brush.Handle);
finally
Canvas.Handle := 0;
end;
finally
Canvas.Unlock;
end;
finally
Canvas.Free;
end;
end;
end;
procedure TAwImageViewer.PictureChanged(Sender: TObject);
begin
HorzScrollBar.Range := FPicture.Width;
VertScrollBar.Range := FPicture.Height;
Invalidate;
end;
procedure TAwImageViewer.Resize;
begin
HorzScrollBar.Position := (FPicture.Width - ClientWidth) div 2;
VertScrollBar.Position := (FPicture.Height - ClientHeight) div 2;
if HorzScrollBar.Position * VertScrollBar.Position = 0 then
Invalidate;
inherited Resize;
end;
procedure TAwImageViewer.SetPicture(Value: TPicture);
begin
FPicture.Assign(Value);
end;
procedure TAwImageViewer.WMPaint(var Message: TWMPaint);
begin
ControlState := ControlState + [csCustomPaint];
inherited;
ControlState := ControlState - [csCustomPaint];
end;
end.
如果您在临时位图上准备绘画,则不需要 Canvas :
procedure TAwImageViewer.PaintWindow(DC: HDC);
var
Bmp: TBitmap;
R: TRect;
begin
if FPicture.Graphic = nil then
inherited PaintWindow(DC)
else
begin
Bmp := TBitmap.Create;
try
Bmp.Canvas.Brush.Assign(Brush);
Bmp.SetSize(ClientWidth, ClientHeight);
if ClientRect.Width > FPicture.Width then
R.Left := (ClientWidth - FPicture.Width) div 2
else
R.Left := -HorzScrollBar.Position;
if ClientHeight > FPicture.Height then
R.Top := (ClientHeight - FPicture.Height) div 2
else
R.Top := -VertScrollBar.Position;
R.Width := FPicture.Width;
R.Height := FPicture.Height;
Bmp.Canvas.Draw(R.Left, R.Top, FPicture.Graphic);
BitBlt(DC, 0, 0, ClientWidth, ClientHeight, Bmp.Canvas.Handle, 0, 0,
SRCCOPY);
finally
Bmp.Free;
end;
end;
end;
但是如果您在控件上放置一个 TImage
组件,那么这一切都会变得更加简单:
unit AwImageViewer2;
interface
uses
System.Classes, Vcl.Forms, Vcl.Graphics, Vcl.ExtCtrls;
type
TAwImageViewer = class(TScrollingWinControl)
private
FImage: TImage;
function GetPicture: TPicture;
procedure SetPicture(Value: TPicture);
protected
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
published
property Color;
property Picture: TPicture read GetPicture write SetPicture;
end;
implementation
{ TAwImageViewer }
constructor TAwImageViewer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
AutoScroll := True;
FImage := TImage.Create(Self);
FImage.AutoSize := True;
FImage.Parent := Self;
end;
function TAwImageViewer.GetPicture: TPicture;
begin
Result := FImage.Picture;
end;
procedure TAwImageViewer.Resize;
begin
if ClientWidth > FImage.Width then
FImage.Left := (ClientWidth - FImage.Width) div 2
else
HorzScrollBar.Position := (FImage.Width - ClientWidth) div 2;
if ClientHeight > FImage.Height then
FImage.Top := (ClientHeight - FImage.Height) div 2
else
VertScrollBar.Position := (FImage.Height - ClientHeight) div 2;
inherited Resize;
end;
procedure TAwImageViewer.SetPicture(Value: TPicture);
begin
FImage.Picture := Value;
end;
end.
关于delphi - 如何让滚动条在自定义控件中很好地发挥作用?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34981238/
下类时合上笔记本电脑。当我回到家并打开它时,它已重新启动。现在,当我打开 Titanium Developer 时,它会立即崩溃。 所以我现在也打不开。关于如何调试或找出问题所在的任何想法? 甚至尝试
我们想共享运行时项目二进制文件。所以每个团队成员都可以使用当前的工作版本。 在 SVN 中存储运行时二进制文件是否可以接受/很好? 最佳答案 不,不要将二进制文件存储在其源代码旁边(除非您有充分的理由
我在 PHP 中使用循环来显示 CMS 管理部分中的用户数据。每行(用户)都包含一些我想要连接到命令的图标(例如:编辑、删除等)。表的最后一行有空的输入字段,带有单个图标(命令),以允许添加新用户。这
如果这是一个新手问题,请原谅我,我昨天开始学习 Django,并且我尽量不要养成坏习惯,即我试图从一开始就以“django 方式”做事。 我有一个 View 接收二进制数据作为 http post 字
使用 swift 2.1 我正在寻找一种将非可选类型数组分配给可选类型数组的好方法,其中类型相同。这是我尝试过的一些方法: var foos: [Int?] = [] let bars: [Int]
James Gosling,加拿大计算机科学家,完成了 Java 的原始设计,并实现了 Java 最初版本的编译器和虚拟机,也是公认的 “Java 之父”。 Evrone 是一家企业软件开发公司,
我在两个项目上使用 Twitter Bootstrap,一个是静态 HTML 网站,另一个是 Rails 应用程序。当我在桌面浏览器上测试网站时,调整大小有效。但是当我在手机 [Nokia E72]
我可以使用全日历。但我有一个侧边栏,用户可以折叠它,然后内容框会变大,但是当用户这样做时,日历就不那么好了。 所以我正在考虑窗口调整大小功能,但这仅在浏览器窗口更改时才有效,那么当容器变大或变小时如何
我正在尝试使用 C# 和 LINQ 在数据库中查询每日活跃用户。我有一个运行良好的 SQL 查询。它在 u.UserId).Distinct().Count() } 测试后,当我必须选择 (
我目前正在开发部署目标为 7.1 的 iOS 应用程序。我的大部分测试都是在 iOS8 环境中执行的,没有任何问题。我连接了一个 iOS7 (5s) 测试设备,发现通过手机显示的 View 是 3.5
我有这样的代码: Floating left. Floating right. BlahBlah Container 允许我将页脚推到页面底部,但如果我想让左右栏跨越接触页脚的高度
从 PHP4 和 Cake 1.3 开始,我一直在使用 debug($data);在 CakePHP 中调试诸如模型输出之类的东西。 但是,自从升级到 PHP5.4 后,我注意到 debug($dat
我在Canvas上画我的游戏,一切都是上帝,但我把它改成了JPanel,但现在它不能正常工作,这是代码,你可以复制它们,你就会看到问题出在哪里(我有一个菜单,单击按钮后它应该创建新线程,我想在那里画画
我尝试用 scrapy 抓取一页。我用 FireXpath(一个 firefox 插件)找到了 xpath,它看起来不错。但是对于 Scrapy,我没有得到任何结果。 我的 python 程序如下所示
我想在页面加载时加载 fancybox。它工作正常,但我对它的高度有疑问。假设页面的高度为 3000px,而 fancybox 的高度为 1500px。如果你想看到页面的最低部分,都应该向下滚动。不幸
IE 大小调整问题!?代码非常简单:我有一个 div,我想要一个占 DIV 100% 的文本框。它必须显示 div 的红线(如果我使用 height:100%, width:100% 它会侵 ecli
我有一组看起来像这样的代码: if(self.property == A) { [self.infoManager getThingA:^(NSString *thing, NSError *
我认为 git clone 使用 STDERR。 我现在想将它重定向到 STDOUT 以使用此 hack . 我遇到了一些问题(另外,我使用很棒的 stderred 库自动将 STDERR 着色为红色
我的问题是我的表单正在提交(到节点/express api),如果我console.log req.body(@ api),结果是一个空对象。但是,如果我在客户端上 console.log ,则序列化
我对 addon-sdk 还很陌生,并且遇到了一个对我来说无法解释的问题。到目前为止,我一直在使用 jpm run 来测试一切 - 并且一切都很好。现在,我即将完成我想要完成的任务,所以我想在“普通”
我是一名优秀的程序员,十分优秀!