Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

тип HDC   Найти похожие ветки 

 
Оля   (2003-06-05 11:49) [0]

Дана программа
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
begin
Panel1.Height:=300;
dc := GetDC(Panel1.Handle);
Rectangle (dc, 10, 10, 110, 110);
( Handle, dc) Дана программа
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
begin
Panel1.Height:=300;
dc := GetDC(Panel1.Handle);
Rectangle (dc, 10, 10, 110, 110);
ReleaseDC (Handle, dc);

end;

end.
Почему после изменения размера при первом клики квадрат не выводится, и как сделать, чтоб он выводился?


 
Zz_   (2003-06-05 11:55) [1]

Panel1 пересоздается



Panel1.Height:=300;

Application.ProcessMessages;

dc := GetDC(Panel1.Handle);





 
Song   (2003-06-05 11:55) [2]

После изменения размера чего?



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
3-3730
Max_
2003-09-12 13:46
2003.10.02
DBNavigator+перезагрузка!


3-3717
Dream
2003-09-13 14:09
2003.10.02
Как подсчитать общую сумму в 1 колонке ?


14-4037
wl
2003-09-16 12:56
2003.10.02
Siemens A55 -> C55


3-3721
nik32
2003-09-13 06:46
2003.10.02
Замена DBNavigator


4-4160
Kaginava35
2003-07-29 10:29
2003.10.02
RegisterServiceProcess





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский