Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Gauge1, Размещение 
V
    Опции темы
xoslv
Дата 14.1.2007, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Как разместить элемент Gauge1 в четвёртую панель StatussBar?  smile 
Если можно код! smile 

Зарание спасибо!
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
VICTAR
Дата 14.1.2007, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Можно так:
Код

uses Commctrl;

function GetPanelRect(index: integer): TRect;
begin
  SendMessage(Form1.StatusBar1.Handle, SB_GETRECT, index,
    integer(@result));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Gauge1.Parent := StatusBar1;
 Gauge1.BoundsRect :=GetPanelRect(3);
end;
PM MAIL   Вверх
xoslv
Дата 14.1.2007, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Цитата(VICTAR @ 14.1.2007,  20:37)
Код

procedure TForm1.Button1Click(Sender: TObject);

А без этого никак? Если у меня в форме нет кнопок?
Можно так?
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
 Gauge1.Parent := StatusBar1;
 Gauge1.BoundsRect :=GetPanelRect(3);
end;


Это сообщение отредактировал(а) xoslv - 14.1.2007, 20:51
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
VICTAR
Дата 14.1.2007, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Как smile. Это я так, для примера. Можешь 
Код

procedure TForm1.FormShow(Sender: TObject);

это не имеет значения smile вставь туда, где тебе удобней
PM MAIL   Вверх
xoslv
Дата 14.1.2007, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Ругается на SB_GETRECT и на integer(@result))

Это сообщение отредактировал(а) xoslv - 14.1.2007, 20:56
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
VICTAR
Дата 14.1.2007, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
SB_GETRECT  - константа из Commctrl(не путать с ComCtrls), без объявления этого модуля работать не будет.
Вот эту часть напиши без изменений:
Код

uses Commctrl;

function GetPanelRect(index: integer): TRect;
begin
  SendMessage(Form1.StatusBar1.Handle, SB_GETRECT, index,
    integer(@result));
end;

Все должно работать.
PM MAIL   Вверх
xoslv
Дата 14.1.2007, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
с таки условием у меня gauge1, закрывает первые три ячейки.. А мне надо чтобы оно воткнулось в четвёртую...
У меня в первой ячейке текст.
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
VICTAR
Дата 14.1.2007, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Выкладывай код, сейчас все поправим
PM MAIL   Вверх
xoslv
Дата 14.1.2007, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, Gauges, ComCtrls, StdCtrls, Menus, ActiveX, Commctrl;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    Gauge1: TGauge;
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
  private
    { Private declarations }
     FOleInPlaceActiveObject: IOleInPlaceActiveObject;
     procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
     procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
  public
    { Public declarations }
end;

//  end;

var
  Form1: TForm1;
  Flags: OLECMDF;
  FOleInPlaceActiveObject: IOleInPlaceActiveObject;
  SaveMessageHandler: TMessageEvent;

implementation

{$R *.dfm}

function GetPanelRect(index: integer): TRect;
begin
  SendMessage(Form1.StatusBar1.Handle, SB_GETRECT, index,
    integer(@result));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
  Application.OnMessage := MsgHandler;
  WebBrowser1.Navigate('http://test.x-os.lv/panel/index.php', Flags,
  TargetFrameName, PostData, Headers);
  Gauge1.Parent := StatusBar1;
  Gauge1.BoundsRect :=GetPanelRect(3);
end;


procedure TForm1.WMMouseActivate(var Msg: TMessage);
begin
  try
    inherited;
    //ïðàâàÿ êíîïêà ìûøêè ?
    if Msg.LParamHi = 516 then
       Msg.Result:= MA_NOACTIVATEANDEAT;
    // Òóò  ìîæíî  âñòàâèòü  êîä  äëÿ ïîêàçàíèÿ ñâîåãî ìåíþ
  except
  end;
end;


//procenti zagruzki stranici
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
 var xProgress:integer;
begin
//  ProgressBar1.Max:=ProgressMax;
//  ProgressBar1.Position:=Progress;
  if ProgressMax = 0 then
  begin
    StatusBar1.Panels[0].Text := 'Redy for work';
    Gauge1.Progress:=0;
    Exit;
  end;
  try
  if (Progress <> -1) and (Progress <= ProgressMax) then
    begin
      StatusBar1.Panels[0].Text:=IntToStr((Progress * 100) div ProgressMax) + '% loaded... ';
      Gauge1.Progress:=(Progress * 100) div ProgressMax;
    end
  else
    begin
      StatusBar1.Panels[0].Text := '';
      Gauge1.Progress:=0;
    end;
  except
  on EDivByZero do Exit;
  end;
end;

// nachalo Masiva dlja knopki "ENTER" (GOOD, work)...
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
  if not Assigned(WebBrowser1) then
  begin
    Handled := False;
    Exit;
  end;

  Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = True);

  if (Handled) and (not WebBrowser1.Busy) then
  begin
    if FOleInPlaceActiveObject = nil then
    begin
      Dispatch := WebBrowser1.Application;
      if Dispatch <> nil then
      begin
        Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
        if iOIPAO <> nil then
          FOleInPlaceActiveObject := iOIPAO;
      end;
    end;

    if FOleInPlaceActiveObject <> nil then
      if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
        ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
        //nothing - do not pass on Backspace, Left or Right arrows
      else
        FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;
// konec Masiva dlja knopki "ENTER" (GOOD, work)...

initialization
  OleInitialize(nil);
finalization
  OleUninitialize;
end.

--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
VICTAR
Дата 14.1.2007, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Работает прекрасно... Посмотри прикрепленный архив. Там исходники + exe

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  Gauge.rar 190,70 Kb
PM MAIL   Вверх
xoslv
Дата 14.1.2007, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Спасибо, работает!
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0655 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.