Panel1加载图片

最新推荐文章于 2024-07-09 12:13:19 发布
最新推荐文章于 2024-07-09 12:13:19 发布
阅读量4.4k 收藏
点赞数
文章标签： image button delete class components generator

.h文件

//---------------------------------------------------------------------------

#ifndef Unt_TextH
#define Unt_TextH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include <ExtDlgs.hpp>
#include <Jpeg.hpp>
//---------------------------------------------------------------------------
class TStarCraft : public TForm
{
__published:// IDE-managed Components
        TScrollBox *sb_Map;
        TButton *btn_Generator;
        TButton *btn_Export;
        TPopupMenu *pm_Select;
        TStatusBar *sb_State;
        TMenuItem *pm_Solder;
        TMenuItem *pm_Robot;
        TMenuItem *pm_Home;
        TMenuItem *Line;
        TMenuItem *rSolder;
        TMenuItem *rRobot;
        TMenuItem *rHome;
        TPanel *pl_Panel;
        TImage *img_Map;
        TImage *img_Solder;
        TImage *img_Robot;
        TImage *img_Home;
        TSavePictureDialog *spd_Export;
        void __fastcall CaseSelection(TObject *Sender);
        void __fastcall GenerateSolder(TObject *Sender);
        void __fastcall GenerateRobot(TObject *Sender);
        void __fastcall GenerateHome(TObject *Sender);
        void __fastcall RemoveSolder(TObject *Sender);
        void __fastcall RemoveRobot(TObject *Sender);
        void __fastcall RemoveHome(TObject *Sender);
        void __fastcall ExportPictures(TObject *Sender);

       
private:// User declarations
        bool HasSelected,isCon,irCon,ihCon;
        POINT point;

        void __fastcall CustomMD(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
        {
                if (Sender->InheritsFrom(__classid(TImage)))
                {
                        if (Button == mbLeft)
                        {
                                HasSelected = true;
                                point.x = X;
                                point.y = Y;
                                ((TImage*)Sender)->BringToFront();

                                sb_State->Panels->Items[0]->Text = IntToStr(((TImage*)Sender)->Left) + " , " + IntToStr(((TImage*)Sender)->Top);
                                sb_State->Panels->Items[1]->Text = IntToStr(((TImage*)Sender)->Width) + " × " + IntToStr(((TImage*)Sender)->Height);
                        }
                }
        }
        void __fastcall CustomMM(TObject *Sender, TShiftState Shift,
          int X, int Y)
        {
                if (Sender->InheritsFrom(__classid(TImage)))
                {
                        if (HasSelected)
                        {
                                if (point.x > X)        //Left move
                                        if (((TImage*)Sender)->Left - abs(point.x - X) >= img_Map->ClientRect.Left)
                                                ((TImage*)Sender)->Left = ((TImage*)Sender)->Left - abs(point.x - X);
                                        else
                                                ((TImage*)Sender)->Left = img_Map->ClientRect.Left;
                                if (point.x < X)        //Right move
                                        if (((TImage*)Sender)->Left + abs(X - point.x) + ((TImage*)Sender)->Width <= pl_Panel->ClientWidth)
                                                ((TImage*)Sender)->Left = ((TImage*)Sender)->Left + abs(X - point.x);
                                        else
                                                ((TImage*)Sender)->Left = pl_Panel->ClientWidth - ((TImage*)Sender)->Width;

                                if (point.y > Y)        //Up move
                                        if (((TImage*)Sender)->Top - abs(point.y - Y) >= img_Map->ClientRect.Top)
                                                ((TImage*)Sender)->Top = ((TImage*)Sender)->Top - abs(point.y - Y);
                                        else
                                                ((TImage*)Sender)->Top = img_Map->ClientRect.Top;
                                if (point.y < Y)        //Down move
                                        if (((TImage*)Sender)->Top + abs(Y - point.y) + ((TImage*)Sender)->Height <= pl_Panel->ClientHeight)
                                                ((TImage*)Sender)->Top = ((TImage*)Sender)->Top + abs(Y - point.y);
                                        else
                                                ((TImage*)Sender)->Top = pl_Panel->ClientHeight - ((TImage*)Sender)->Height;

                                sb_State->Panels->Items[0]->Text = IntToStr(((TImage*)Sender)->Left) + " , " + IntToStr(((TImage*)Sender)->Top);
                                sb_State->Panels->Items[1]->Text = IntToStr(((TImage*)Sender)->Width) + " × " + IntToStr(((TImage*)Sender)->Height);
                        }
                }
        }
        void __fastcall CustomMU(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
        {
                if (Sender->InheritsFrom(__classid(TImage)))
                {
                        if (Button == mbLeft)
                                HasSelected = false;

                        sb_State->Panels->Items[0]->Text = IntToStr(((TImage*)Sender)->Left) + " , " + IntToStr(((TImage*)Sender)->Top);
                        sb_State->Panels->Items[1]->Text = IntToStr(((TImage*)Sender)->Width) + " × " + IntToStr(((TImage*)Sender)->Height);
                }
        }
public:// User declarations
        TImage *is,*ir,*ih;
        __fastcall TStarCraft(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TStarCraft *StarCraft;
//---------------------------------------------------------------------------
#endif
.cpp文件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unt_Text.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TStarCraft *StarCraft;
//---------------------------------------------------------------------------
__fastcall TStarCraft::TStarCraft(TComponent* Owner)
        : TForm(Owner)
{
        DoubleBuffered = true;
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::CaseSelection(TObject *Sender)
{
        POINT curpos;
        if (GetCursorPos(&curpos))
                pm_Select->Popup(curpos.x,curpos.y);
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::GenerateSolder(TObject *Sender)
{
        if (!isCon)
        {
                is = new TImage(this);

                is->Parent = sb_Map;
                is = img_Solder;        //Get the address of existing TImage class
                is->BringToFront();     //Display the image over the background map
                is->Visible = true;

                is->OnMouseDown = CustomMD;
                is->OnMouseMove = CustomMM;
                is->OnMouseUp = CustomMU;

                isCon = true;
                pm_Solder->Enabled = !isCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::GenerateRobot(TObject *Sender)
{
        if (!irCon)
        {
                ir = new TImage(this);

                ir->Parent = sb_Map;
                ir = img_Robot;
                ir->BringToFront();
                ir->Visible = true;

                ir->OnMouseDown = CustomMD;
                ir->OnMouseMove = CustomMM;
                ir->OnMouseUp = CustomMU;

                irCon = true;
                pm_Robot->Enabled = !irCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::GenerateHome(TObject *Sender)
{
        if (!ihCon)
        {
                ih = new TImage(this);

                ih->Parent = sb_Map;
                ih = img_Home;
                ih->BringToFront();
                ih->Visible = true;

                ih->OnMouseDown = CustomMD;
                ih->OnMouseMove = CustomMM;
                ih->OnMouseUp = CustomMU;

                ihCon = true;
                pm_Home->Enabled = !ihCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::RemoveSolder(TObject *Sender)
{
        if (isCon)
        {
                is->Visible = false;
                is = NULL;      //Release the address of existing TImage class
                delete is;

                isCon = false;
                pm_Solder->Enabled = !isCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::RemoveRobot(TObject *Sender)
{
        if (irCon)
        {
                ir->Visible = false;
                ir = NULL;
                delete ir;

                irCon = false;
                pm_Robot->Enabled = !irCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::RemoveHome(TObject *Sender)
{
        if (ihCon)
        {
                ih->Visible = false;
                ih = NULL;
                delete ih;

                ihCon = false;
                pm_Home->Enabled = !ihCon;
        }
}
//---------------------------------------------------------------------------
void __fastcall TStarCraft::ExportPictures(TObject *Sender)
{
        //Create the TBitmap class and save the background
        Graphics::TBitmap *background_map = new Graphics::TBitmap;
        background_map->Width = img_Map->Width;
        background_map->Height = img_Map->Height;
        background_map->Canvas->CopyRect(img_Map->ClientRect,img_Map->Canvas,img_Map->ClientRect);

        //Redraw the elements above the background
        if (isCon)
                background_map->Canvas->Draw(is->Left,is->Top,img_Solder->Picture->Bitmap);
        if (irCon)
                background_map->Canvas->Draw(ir->Left,ir->Top,img_Robot->Picture->Bitmap);
        if (ihCon)
                background_map->Canvas->Draw(ih->Left,ih->Top,img_Home->Picture->Bitmap);

        //Export the picture file
        spd_Export->Title = "保存StarCraft地图";
        spd_Export->Filter = "Bitmap files (*.bmp)|*.bmp|JPEG files (*.jpg)|*.jpg";
        if (spd_Export->Execute())
        {
                if (spd_Export->FilterIndex == 1)
                        background_map->SaveToFile(spd_Export->FileName + ".bmp");
                if (spd_Export->FilterIndex == 2)
                {
                        TJPEGImage *convert = new TJPEGImage;
                        convert->Assign(background_map);
                        convert->SaveToFile(spd_Export->FileName + ".jpg");
                        delete convert;
                }
        }
        else
                return;

        delete background_map;
}
//---------------------------------------------------------------------------

(1)运行以后，FORM1最小化后,再用MOUSE点击,恢复为最小化前状态,此时,PANEL1上的背景图像会消失?
(2)在编辑状态，用鼠标把PANEL1尺寸扩大以后,此时FORM1上出现流动条,此时运行,点击BUTTON1后,保存图片则不只是PANEL1上的图片?
(3)当IMAGE1拖动到PANEL1边缘(例IMAGE1已经有一半看不到了),如何实现PANEL1尺寸会变大?
1、就这个问题，我觉得，当在组件表面进行重画的时候，会经常出现你说的这种情况。其实，解决这个问题的一种实用的方法就是在Panel上放置两个Image组件。一个用于做背景，另一个用于做前景，也就是你这个例子中的Image。之后，背景图片采用Image->Picture->Bitmap->LoadFromFile的方式，则背景就不会消失了。
2、我不明白你这样做是什么目的，当然，你可以设置Panel->Align为alClient。这样，Panel会自动填充满整个窗体，而不会出现超出边界的情况。
3、针对这种情况，可以通过判断Image的左、右、上、下边界和Panel的CliengRect的关系解决。稍后我会贴出这个解决方法的。

含有了图片保存功能的代码：

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

TControlCanvas *cc = new TControlCanvas;
Graphics::TBitmap *bmp = new Graphics::TBitmap;

bool IsOnIt,IsClicking;
TPoint p;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        DoubleBuffered = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        IsClicking = true;
        cc->Control = Panel1;
        bmp->LoadFromFile("c://windows//Clouds.bmp");
        cc->Brush->Bitmap = bmp;
        cc->FillRect(Panel1->ClientRect);
        //Display the Image's picture
        Image1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (Button == mbLeft)
        {
                IsOnIt = true;
                p.x = X;
                p.y = Y;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        if (IsOnIt)
        {
                if (p.x > X)
                        Image1->Left = Image1->Left - abs(p.x - X);
                if (p.x < X)
                        Image1->Left = Image1->Left + abs(X - p.x);
                if (p.y > Y)
                        Image1->Top = Image1->Top - abs(p.y - Y);
                if (p.y < Y)
                        Image1->Top = Image1->Top + abs(Y - p.y);
                if (IsClicking)
                        Button1Click(Sender);
        }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if (Button == mbLeft)
                IsOnIt = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        delete bmp;
        delete cc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Graphics::TBitmap *b = new Graphics::TBitmap;
        b->Width = Panel1->Width;
        b->Height = Panel1->Height;
        b->Canvas->CopyRect(TRect(Panel1->ClientRect.Left,Panel1->ClientRect.Top,Panel1->ClientWidth,Panel1->ClientHeight),cc,Panel1->ClientRect);
        b->SaveToFile("c://abcde.bmp");
        delete b;
}
//---------------------------------------------------------------------------

laowang2
关注
Windows.Forms Panel 动态加载用户控件 UserControl
aml53256的博客
05-20 883
创建好一个Windows Forms程序，在创建好的程序中Form1添加一个Panel控件 如图： 然后再程序中添加一个用户控件 添加好以后再目录看见 就是创建好了，然后在用户控件随便拉几个按钮（为了主函数加载的时候显示效果） 然后再主函数的 Form1_Load 先在命名空间加上 ：using UserControlTest.Controel.tab...
安卓图片加载缓存相关-android-image-slide图片加载和滑动特效.rar
07-29
最后，"android-image-slide-panel-master"很可能是一个图片滑动库的源代码仓库，可能使用了某种缓存机制，比如内存缓存和磁盘缓存，以提高图片加载速度并减少网络请求。这类库通常会包含一些关键类，如ImageView的...
.net Winform FlowLayoutPanel 动态添加图片（可拖拽、重绘）
01-10
.net Winform FlowLayoutPanel 动态添加图片（可拖拽、重绘）
C# 如何给Panel 添加背景图片
热门推荐
人既无名的专栏
05-03 1万+
添加panel的paint事件，然后在panel上面画出图片 例子：this.panelMain.Paint += new System.Windows.Forms.PaintEventHandler(this.panelMain_Paint); private void panelMain_Paint(object sender, PaintEventArgs e)   {   Gr
1Panel安装教程：使用Linux服务器安装1Panel面板全流程
最新发布
facaixxx2024的博客
07-09 3070
1Panel安装成功后，需要设置默认端口号，回车代表选择默认端口号，也可以自定义端口，阿里云服务器网选择了默认20410端口，回车即可。全部设置完后，会返回1Panel的外网地址、内网地址、面板用户、面板密码等信息，保存好，后续登录1Panel后台的时候会用到。先远程连接到云服务器ECS上，然后执行1Panel安装命令，安装成功后，设置默认端口号、安全入口、面板用户、面板密码。1Panel会随机生成面板用户名，可以自定义设置，也可以使用默认生成的用户名，建议自己设置，不然后续登录的时候就忘记了。
asp.net panel 动态加载控件
weixin_30516243的博客
10-08 105
Code前台:<asp:PanelID="pnlCondition"runat="server"Width="100%"></asp:Panel>后台:LiteralControllc=null;DropDownListddl=null;Labellbl=null;TextBoxtxt=null;//...
ext panel 中添加图片
Ellie
10-12 1401
{ xtype: ‘box’, //或者xtype: ‘component’,这时可以设置宽高（width，height） 选择box的时候是全部覆盖 autoEl: { tag: ‘img’, //指定为img标签 src: ‘photo.png’ //指定url路径 ，相对路径 } } 动态更新的时候： //动态更新只需要获取到刚才建立的box的dom的src photo.g...
Echarts 图表放到bootstrap的tab-panel中不加载
秋风伴落叶
02-09 1454
/* tab panel 不显示Echarts  图表问题   */ /* bootstrap hack: fix content width inside hidden tabs */ .tab-content > .tab-pane, .pill-content > .pill-pane {     display: block;     /*
C#中主窗体Panel中加载其他多个窗体Panel控件
07-06
Panel不仅可以包含文本、按钮、图片等基本控件，还可以嵌套其他Panel控件，形成层次结构，方便组织和管理界面元素。 二、加载多个窗体Panel控件的方法 1. 创建子窗体类 首先，我们需要为每个要加载到主窗体Panel中...
Android- 超炫image-slide-panel图片照片墙的加载和滑动特效.rar
07-30
这个压缩包文件“Android- 超炫image-slide-panel图片照片墙的加载和滑动特效.rar”显然是一个关于如何实现这种效果的资源集合。虽然无法逐一验证每个文件的可用性，但我们可以根据描述来探讨一下实现此类功能的关键...
unity panel加载图片
05-24
要在Unity面板中加载图片，您需要使用Image组件。以下是步骤： 1. 在Unity的Hierarchy视图中创建一个空GameObject。 2. 在Inspector视图中添加一个Image组件。 3. 在Image组件的“Source Image”字段中选择要加载...
具有Picture(图片属性)的PANEL控件源码(delphi)
05-05
具有Picture(图片属性)的PANEL控件源码(delphi) 。
C#中panel1控件详细使用方法
xiaogongzhu001的博客
06-08 7312
C#中panel1控件详细使用方法
.net winform panel 不刷新_你想要的WinForm界面开发教程在这里 - 如何使用自定义用户控件
weixin_39784460的博客
11-24 495
DevExpress Winforms Controls 内置140多个UI控件和库，完美构建流畅、美观且易于使用的应用程序。点击“了解更多”获取DevExpress WinForm v20.1完整版下载在很多时候，我们做一些非常规化的界面的时候，往往需要创建一些用户控件，在其中绘制好一些基础的界面块，作为后续重复使用的一个单元，用户控件同时也可以封装处理一些简单的逻辑。在开发Winform各种类...
JPanel加载图像的过程
happmaoo的专栏
04-09 316
&lt;iframe align="center" marginwidth="0" marginheight="0" src="http://www.zealware.com/csdnblog336280.html" frameborder="0" width="336" scrolling="no" height="280"&gt;
C# Panel半透明
weixin_42953003的博客
05-22 5351
提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档 文章目录前言Panel 设置 Transparent 属性之后会出现闪烁情况窗体加载防闪烁代码优化总结 前言 实现下图中panel控件半透明效果之前在别的项目用无边框窗体的Opacity属性实现过这种效果；现在想就一个窗体中实现，网上搜到用户控件的方法尝试了下，透明可以实现但是里面的button按钮无法实现透明；网上案例大部分提到利用颜色达到透明效果这种只是颜色透明；也搜到使用 Transparent 在碰到窗体有 PictureBo.
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值