用Delphi实现缩略图查看(8)

ImageFileList.GetCurFileName;
end;
ProgressBar1.Position:=i;
application.ProcessMessages;
end;
finally
listview1.Items.EndUpdate;
ProgressBar1.Visible:=false;
end;
screen.Cursor:= crDefault;
IsRefreshImageFinished:=true;

end;

7.过程DrawPanel的代码如下：

//在canvas上画一个Panel
procedure DrawPanel(canvas:TCanvas;Left,Top,Width,Height:integer;PanelType:integer);
var
Right,Bottom:integer;
LeftTopColor,RightBottomColor:TColor;
begin
//凸起的panel
if PanelType=RaisedPanel then
begin
LeftTopColor:=clwhite;
RightBottomColor:=clgray;
end
else //凹下去的panel
begin
LeftTopColor:=clgray;
RightBottomColor:=clwhite;
end;
Right:=Left width;
Bottom:=Top Height;

Canvas.Pen.Width:=1;
Canvas.Pen.Color:=LeftTopColor;

Canvas.MoveTo(Right,Top);
Canvas.lineTo(Left,Top);

Canvas.LineTo(Left,bottom);

Canvas.Pen.Color:=RightBottomColor;

Canvas.lineTo(Right,Bottom);
Canvas.lineTo(Right,Top);
end;
8.接下来我们在ListView1的OnSelectItem事件里添加代码：

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
//当ShellTreeView1目录改变时 会激发此事件，
if listview1.SelCount=0 then exit;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有