Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Лицензия FastReport за багрепорты и багофиксы

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Открыть новую тему     Написать ответ в эту тему

My_Way



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Объявлена раздача лицензий за найденные баги и багофиксы по продукту от разработчиков
 
Постите здесь свои багрепорты и багофиксы по ФастРепорту,и получайте лицензии на ФастРепорт.
 
Расценки на версии FastReport 4:
 
FR Basic - 1 багрепорт
FR Standard - 3 багрепорта или  1 багофикс
FR Professional - 6 багрепортов или  2 багофикса
FR Enterprise - 9 багрепортов или 3 багофикса
FR Studio Single - 9 багрепортов или 3 багофикса
FR Server - 9 багрепортов или 3 багофикса
 
 
Полезная информация:

 
Найденные баги и багофиксы, использованные для получения лицензии младшего уровня учитываются при получении лицензии следующего уровня. Например,набрав один багрепорт, получаешь FR Basic, а набрав еще 2  - получаешь лицензию на FR Standard, и т.д.  
 
Один багофикс= 3 багрепорта.
Например,если вы нашли баг, и его пофиксили, то у вас в сумме 1 багрепорт+1 багофикс = 4 багрепорта.
 
За лицензиями при накоплении необходимого количества бонусов обращаться в ПМ к My_Way (В письме указывать Имя и емайл, на какой выслать регистрационную инфу)
 
Информация для новичков
Для вновь прибывших, внимательно читать вот ЭТО, чтобы не повторять уже исправленные баги

А еще и это ЭТУ ИНФУ  
 
P.S. Некоторые баги согласно My_Way являются фичами (Правда не знаю в документации это описано, так как баг считается фичей если он задокументирован, иначе это баг).
 
Результаты по подсчетам My Way:

Ник участника Багрепорты Багофиксы Итого: Лицензия Остатки      
gpi Четырнадцать Десять Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
GloThin Двадцать четыре Пять Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
DroN_S Одинадцать Семь Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
SerVal777 Двадцать семь Три Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Nicka_Grey Двадцать четыре Четыре Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
LadyOfWood Двадцать девять Три Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
QuickeneR Шестнадцать Четыре Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Garrett Двадцать семь Ноль Двадцать семь FR Ent+FR Studio+FR Server Больше не на что    
RUSer Двадцать восемь Ноль Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
mLex Двадцать пять Один Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
mrrex Тридцать один Ноль Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Jedinichka Двадцать пять Ноль Двадцать пять FR Ent+FR Studio Семь    
aralekin Девятнадцать Два Двадцать пять FR Ent+FR Studio Семь    
vadson6666 Двадцать пять Ноль Двадцать пять FR Ent+FR Studio Семь    
DmLam Двадцать Ноль Двадцать FR Ent+FR Studio Два    
jonikDk Десять Три Девятнадцать FR Ent+FR Studio Один    
Alex_Yagolnik Девятнадцать Ноль Девятнадцать FR Ent+FR Studio Один    
karioth Восемьнадцать Ноль Восемьнадцать FR Ent+FR Studio Ноль    
denger2k Пятнадцать Один Восемьнадцать FR Ent+FR Studio Ноль    
martyanov Одинадцать Два Семьнадцать FR Ent Восемь    
EmeJIbka Десять Два Шестнадцать FR Ent Семь    
motrik Шестнадцать Ноль Шестнадцать FR Ent Семь    
exteris Шестнадцать Ноль Шестнадцать FR Ent Семь    
JustAMaaan Шестнадцать Ноль Шестнадцать FR Ent Семь    
Delphis11 Шестнадцать Ноль Шестнадцать FR Ent Семь    
mity Пятнадцать Ноль Пятнадцать FR Ent Шесть    
benchik Пятнадцать Ноль Пятнадцать FR Ent Шесть    
Darken Пятнадцать Ноль Пятнадцать FR Ent Шесть    
tomegadeth Пятнадцать Ноль Пятнадцать FR Ent Шесть    
MageSlayerDen Пятнадцать Ноль Пятнадцать FR Ent Шесть    
stalker780 Восемь Один Одинадцать FR Ent Три    
Vic26 Восемь Один Одинадцать FR Ent Два    
Wise Десять Ноль Десять FR Ent Один    
ultima Девять Ноль Девять FR Ent Ноль    
jzk Восемь Ноль Восемь FR Pro Восемь    
wbsg Восемь Ноль Восемь FR Pro Восемь    
royt Восемь Ноль Восемь FR Pro Восемь    
vshersh Восемь Ноль Восемь FR Pro Восемь    
vidic777 Восемь Ноль Восемь FR Pro Восемь    
Erazer Восемь Ноль Восемь FR Pro Восемь            


 
 
Примечание от My Way:
1. Передавать только остатки другим участникам нельзя...
2. Если хотите поделиться своими изысканиями с кем-нибудь из участников, до опубликования в ветке можно передать свои результаты через ПМ...
3. Остатки после лицензии на FR Studio Single, можно использовать, для получения лицензии на FR Server (цена такая же. как на FR Enterprise и FR Studio Single = 9 багрепортов )
4. Багофиксы к багофиксам (багофиксаторы, по термину GloThin), пока засчитываются, как отдельные, но возможно, в будущем будут делиться между решившими указанную проблему...  
 
Также мы премируем за написание статей на тему FastReport, как FastReport 3, так и FastReport Studio, стати начиная от технических, и заканчивая очень прикладными, например, первые
шаги в матричных отчетах, или анализатор логов в FastReport Studio, все
авторские права сохраняются, плюс мы содействуем в размещении этих статей
в изданиях. Есть что публиковать - пишите в ПМ

Всего записей: 80 | Зарегистр. 16-09-2004 | Отправлено: 14:16 23-08-2005 | Исправлено: My_Way, 16:15 30-03-2007
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GloThin
Ок.  Тогда остаются пункты 1-4.

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 00:59 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Garrett

Цитата:
4.  
у меня в редакторе скрипта команда "выделить всё (Ctrl-A)" не работает, а в отчете - работает  

если бы ты был чуть по внимательнее, то заметил бы, что в скрипте функции SelectAll нет...
будь немного по внимательнее...

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 01:16 28-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DroN_S
См. FastReport Studio User Manual (RU).pdf, стр.104 - Список клавиш, которые можно использовать в редакторе скрипта - ... Ctrl+A  Выделить весь текст ...

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 01:40 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Замечен вот такой маленький нюанс:
1) открываем дизайнер
2) нажимаем на Параметра страницы
3) в поле "Ширина" видим значение 21,01, а в поле "Высота значение 29,71
4) нажимаем ОК
5) открываем снова Параметры страницы
6) в поле "Ширина" видим значение 21а в поле "Высота значение 29,70...
но мы то ничего не меняли....
 
и ещё, в дизайнере на кнопке "Параметры страницы" в сплывающей подсказке написано Page Settings, нажимаем, открывается окно с заголовком Page Options...
Конечно всё это мелочи и не влияет на работу программы, но исправить надо..
 
Добавлено:
Garrett
пардон, и правда написано..

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 02:49 28-09-2005 | Исправлено: DroN_S, 02:55 28-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S

Цитата:
Замечен вот такой маленький нюанс:

Что-то у меня этого нюанса нет, ни в самом Фастрепорте, ни в Студио...

Цитата:
и ещё, в дизайнере на кнопке "Параметры страницы" в сплывающей подсказке написано Page Settings, нажимаем, открывается окно с заголовком Page Options...  

Как я понял, речь идет о Студио, но это уже опечатки с переводом на другие языки.
P.S. Такая же ситуация  с большинством языков для локализации дизайнера в СТудио.

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 03:56 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GloThin
Нет, это не Studio это FastReport 3.18.2
 

Цитата:
Замечен вот такой маленький нюанс:

он проявляется если если параметры страницы выбраны первоначально(один раз), потом всё становится нормально....
брось на форму компонент, открой дизайнер, открой параметры страницы и смотри...

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 05:36 28-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну и ну!
Попробовал в Delphi выделить текст и нажать Ctrl-I. Интересно, а Borland лицензии за баги даёт? Насколько я понял, в Delphi по Ctrl-I сдвигается весь текст справа от курсора вправо.
А вот если в пункте 1 бага от Garrett выделить только два символа с конца, сдвигается вся строка.  
Что касается Ctrl-A, то в коде frxSynMemo.pas поддерживается выделение всего текста скрипта, но оно блокируется горячей клавишей элемента меню SelectAllMI формы frxDesignerForm.
Чтобы заставить работать Ctrl-A нужно в frxSynMemo.pas и frxDesgn.pas внести изменения:
в frxSynMemo.pas procedure KeyDown(var Key: Word; Shift: TShiftState); override;
переносим из секции Protected в Public

Код:
 
procedure TfrxDesignerForm.UpdateControls;
..
  SelectAllCmd.Enabled := True;                             //fix
..
procedure TfrxDesignerForm.SelectAllCmdExecute(Sender: TObject);
var
  i: Integer;
  Parent: TfrxComponent;
  Key: Word;  //fix
begin
//fix begin
  if (FObjects.Count > 2) and (FPage <> nil) then  
    begin  
//fix end
      Parent := FPage;
      if FSelectedObjects.Count = 1 then
        if TfrxComponent(FSelectedObjects[0]) is TfrxBand then
          Parent := FSelectedObjects[0]
        else if TfrxComponent(FSelectedObjects[0]).Parent is TfrxBand then
          Parent := TfrxComponent(FSelectedObjects[0]).Parent;
 
      if Parent.Objects.Count <> 0 then
        FSelectedObjects.Clear;
      for i := 0 to Parent.Objects.Count - 1 do
        FSelectedObjects.Add(Parent.Objects[i]);
      OnSelectionChanged(Self);
//fix begin  
   end
  else
    begin
      key:=65;
      CodeWindow.KeyDown(key,[ssCtrl]);
    end;
//fix end
end;
 


Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 12:54 28-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Фиксы к Ctrl-I и Ctrl-U

Код:
 
//frxSynMemo.pas
procedure TfrxSyntaxMemo.ShiftSelected(ShiftRight: Boolean);
var
  i, ib, ie: Integer;
  s: String;
  Shift: Integer;
begin
  AddUndo;
  if FSelStart.X + FSelStart.Y * FMaxLength < FSelEnd.X + FSelEnd.Y * FMaxLength then
  begin
    ib := FSelStart.Y - 1;
    ie := FSelEnd.Y - 1;
    if (FSelEnd.X = 1) and (ie > 0) then  //fix
    Dec(ie);                                         //fix  Dec(ie) должно выполняться здесь при ie > 0
  end
  else
  begin
    ib := FSelEnd.Y - 1;
    ie := FSelStart.Y - 1;
  end;
 
 
  Shift := 2;
  if not ShiftRight then
    for i := ib to ie do
    begin
      s := FText[i];
      if (Trim(s) <> '') and (GetLineBegin(i) - 1 < Shift) then
        Shift := GetLineBegin(i) - 1;
    end;
 
  for i := ib to ie do
  begin
    s := FText[i];
    if ShiftRight then
      s := Pad(Shift) + s
    else if Trim(s) <> '' then
      Delete(s, 1, Shift);
    FText[i] := s;
  end;
  //fix begin
  if ib<>ie then
      if ShiftRight then
        begin
          Inc(FSelStart.X,Shift);
          Inc(FSelEnd.X,Shift);
        end
      else
        begin
          Dec(FSelStart.X,Shift);
          Dec(FSelEnd.X,Shift);
        end
  else
    FSelStart:=FSelEnd;  //для одной строки в выделении нет необходимости
  //fix end
  UpdateSyntax;
  DoChange;
end;
 
procedure TfrxSyntaxMemo.DoCtrlI;
begin
  //fix begin
  if FSelStart.X = 0 then
    begin
      FSelStart.X := 0;
      FSelStart.Y := FPos.Y;
      FSelEnd.X := Length(FText[FPos.Y-1]);
      FSelEnd.Y := FPos.Y;
    end;
  ShiftSelected(True);
  //fix end
end;
 
procedure TfrxSyntaxMemo.DoCtrlU;
begin
  //fix begin
  if FSelStart.X = 0 then
    begin
      FSelStart.X := 0;
      FSelStart.Y := FPos.Y;
      FSelEnd.X := Length(FText[FPos.Y-1]);
      FSelEnd.Y := FPos.Y;
    end;
  ShiftSelected(False);
  //fix end
end;
 

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 21:37 28-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gpi
Спасибо. Может мне еще бонусов прибавят и мой FR Standard перерастет нечто в большее, а то судя по таблице в шапке меня разжаловали до Basic .
Осталось дождаться появления Му_Way'я.

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 22:13 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Garrett

Цитата:
то судя по таблице в шапке меня разжаловали до Basic

резулбтаты в таблице

Цитата:
Garrett Три Ноль Три FR Standard Три    


Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 22:29 28-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Garrett

Цитата:
а то судя по таблице в шапке меня разжаловали до Basic  .

Откуда такой вывод?  
Там же у тебя стандарт.

Цитата:
Осталось дождаться появления Му_Way'я.

Появится, не переживай и посчитает.


----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 22:30 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Может мне еще бонусов прибавят

как только My_Way появится - всё будет

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 22:31 28-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DroN_S
GloThin
Про basic я ошибся.
Просто я уже давно зарегистрирован на Standard, т.е. предыдущим постом хотел сказать, что в моем случае можно начинать не с нуля.

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 22:35 28-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Garrett

Цитата:
Про basic я ошибся.  
Просто я уже давно зарегистрирован на Standard, т.е. предыдущим постом хотел сказать, что в моем случае можно начинать не с нуля.

Наверно, у разработчиков есть определенные проблемы с повышением уже существующей лицензии или они не хотят смешивать купленные лицензии и выданные в рамках данной акции. Так что ты не первый, кто начал с нуля.

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 22:53 28-09-2005 | Исправлено: GloThin, 22:54 28-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GloThin
Будем надеяться на лучшее и ждать Александра (я думаю, что это он здесь под ником My_Way).
В противном случае (насчет отсчета с нуля) нет логики. Зачем мне к примеру 2 стандарта?

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 23:45 28-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Garrett

Цитата:
В противном случае (насчет отсчета с нуля) нет логики. Зачем мне к примеру 2 стандарта?

Находи новые баги и делай к ним фиксы и будет тебе FREnt
Всё в твоих руках

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 23:48 28-09-2005 | Исправлено: DroN_S, 23:49 28-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня предложение к разработчикам.
Добавьте пожалуйста 2 настройки для редактора скрипта:
 
1-ая - при нажатии на TAB вставлять символ табуляции или пробелы
2-ая - если пробелы, то сколько (я, например, во всех редакторах-студиях выставляю 4 пробела)
 
 
Добавлено:
FR Studio demo и FR Standard под BCB
 
делаем отчет
делаем скрипт и диалог(стр.142 руководства)
 
#language C++Script
 
void CheckBox1OnClick(TfrxComponent Sender)
{
  Button1.Enabled = ! CheckBox1.Checked;
}
 
{
  ShowMessage("Hi!");
  Memo1.Color = clRed;
}
 
сохраняем отчет(чтоб потом не писать)
 
ставим курсор на строку "Button1.Enabled = ! CheckBox1.Checked;"
жмем F4 или F5
скрипт начинает работать, появляется диалог
щелкаем на чекбокс, попадаем в редактор скрипта (на точку останова)
снова давим f4 или f5 или f9, появляется диалог
Щелкаем на скрипт(в любое место) и всё!
 
Диалог не видно, переключиться на него нельзя, скрипт не останавливается (ни Ctrl-F2, ни красной кнопкой).
 
Остается только снять ФР Студию через таск менеджер, предварительно сохранив отчет(save работает вроде).
 
Здесь дело наверное в том, что после второго нажатия f4/5/9 и до появления диалога(продолжение работы скрипта) не скрывается код скрипта, из-за чего есть возможность на него щелкнуть и повесить студию.
 

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 23:53 28-09-2005 | Исправлено: Garrett, 02:51 29-09-2005
EmeJIbka



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
И ещё - в предпросмотре выбираем настройки страницы, пишем любой текст в EditBox`ы Height или Width, затем выбираем размер бумаги из ComboBox`а - получаем Exeption - "текст is not a valid floating point value".

 
Вот решение:
 

Код:
//frxPreviewPageSettings.pas  
//beginfix  
procedure EditNumber(Edit: TEdit);  
Var  
i: Integer;  
begin  
i := GetWindowLong(Edit.Handle, GWL_STYLE);  
SetWindowLong(Edit.Handle, GWL_STYLE, i or ES_NUMBER);  
end;  
//endfix  
procedure TfrxPageSettingsForm.FormShow(Sender: TObject);  
var  
//beginfix  
Counter:integer;  
//endfix  
i: Integer;  
Ini: TCustomIniFile;  
uStr: String;  
begin  
FUpdating := True;  
 
Caption := frxGet(400);  
WidthL.Caption := frxGet(401);  
HeightL.Caption := frxGet(402);  
SizeL.Caption := frxGet(403);  
OrientationL.Caption := frxGet(404);  
LeftL.Caption := frxGet(405);  
TopL.Caption := frxGet(406);  
RightL.Caption := frxGet(407);  
BottomL.Caption := frxGet(408);  
MarginsL.Caption := frxGet(409);  
PortraitRB.Caption := frxGet(410);  
LandscapeRB.Caption := frxGet(411);  
OKB.Caption := frxGet(1);  
CancelB.Caption := frxGet(2);  
OtherL.Caption := frxGet(412);  
ApplyToCurRB.Caption := frxGet(413);  
ApplyToAllRB.Caption := frxGet(414);  
 
//beginfix  
for Counter := 0 to ComponentCount - 1 do  
if (Components[Counter] is TEdit) then  
EditNumber(Components[Counter] as TEdit);  
//endfix  
Ini := Report.GetIniFile;  
FUnits := TfrxDesignerUnits(Ini.ReadInteger('Form.TfrxDesignerForm', 'Units', 0));  
Ini.Free;  
 
uStr := '';  
case FUnits of  
duCM, duPixels, duChars:  
uStr := frxResources.Get('uCm');  
duInches:  
uStr := frxResources.Get('uInch');  
end;  
 
UnitL1.Caption := uStr;  
UnitL2.Caption := uStr;  
UnitL3.Caption := uStr;  
UnitL4.Caption := uStr;  
UnitL5.Caption := uStr;  
UnitL6.Caption := uStr;  
 
SizeCB.Items := frxPrinters.Printer.Papers;  
i := frxPrinters.Printer.PaperIndex(Page.PaperSize);  
if i = -1 then  
i := frxPrinters.Printer.PaperIndex(256);  
SizeCB.ItemIndex := i;  
 
WidthE.Text := frxFloatToStr(mmToUnits(Page.PaperWidth));  
HeightE.Text := frxFloatToStr(mmToUnits(Page.PaperHeight));  
PortraitRB.Checked := Page.Orientation = poPortrait;  
LandscapeRB.Checked := Page.Orientation = poLandscape;  
 
MarginLeftE.Text := frxFloatToStr(mmToUnits(Page.LeftMargin));  
MarginRightE.Text := frxFloatToStr(mmToUnits(Page.RightMargin));  
MarginTopE.Text := frxFloatToStr(mmToUnits(Page.TopMargin));  
MarginBottomE.Text := frxFloatToStr(mmToUnits(Page.BottomMargin));  
 
PortraitRBClick(nil);  
FUpdating := False;  
end;
 

 
2) для Параметров страницы в дизайнере:  
 

Код:
 
//frxEditPage.pas  
//beginfix  
procedure EditNumber(Edit: TEdit);  
var  
i: Integer;  
begin  
i := GetWindowLong(Edit.Handle, GWL_STYLE);  
SetWindowLong(Edit.Handle, GWL_STYLE, i or ES_NUMBER);  
end;  
//endfix  
//...  
procedure TfrxPageEditorForm.FormCreate(Sender: TObject);  
var  
//beginfix  
Counter:Integer;  
//endfix  
uStr: String;  
begin  
Caption := frxGet(2700);  
OKB.Caption := frxGet(1);  
CancelB.Caption := frxGet(2);  
TabSheet1.Caption := frxGet(2701);  
Label1.Caption := frxGet(2702);  
Label2.Caption := frxGet(2703);  
Label11.Caption := frxGet(2704);  
Label12.Caption := frxGet(2705);  
Label3.Caption := frxGet(2706);  
Label4.Caption := frxGet(2707);  
Label5.Caption := frxGet(2708);  
Label6.Caption := frxGet(2709);  
Label13.Caption := frxGet(2710);  
Label14.Caption := frxGet(2711);  
Label9.Caption := frxGet(2712);  
Label10.Caption := frxGet(2713);  
PortraitRB.Caption := frxGet(2714);  
LandscapeRB.Caption := frxGet(2715);  
TabSheet3.Caption := frxGet(2716);  
Label7.Caption := frxGet(2717);  
Label8.Caption := frxGet(2718);  
Label15.Caption := frxGet(2719);  
Label16.Caption := frxGet(2720);  
Label17.Caption := frxGet(2721);  
Label18.Caption := frxGet(2722);  
PrintOnPrevCB.Caption := frxGet(2723);  
MirrorMarginsCB.Caption := frxGet(2724);  
LargeHeightCB.Caption := frxGet(2725);  
 
//beginfix  
for Counter := 0 to ComponentCount - 1 do  
if (Components[Counter] is TEdit) then  
EditNumber(Components[Counter] as TEdit);  
//endfix  
 
uStr := '';  
case TfrxDesignerForm(Owner).Units of  
duCM: uStr := frxResources.Get('uCm');  
duInches: uStr := frxResources.Get('uInch');  
duPixels: uStr := frxResources.Get('uPix');  
duChars: uStr := frxResources.Get('uChar');  
end;  
 
UnitL1.Caption := uStr;  
UnitL2.Caption := uStr;  
UnitL3.Caption := uStr;  
UnitL4.Caption := uStr;  
UnitL5.Caption := uStr;  
UnitL6.Caption := uStr;  
UnitL7.Caption := uStr;  
end;
 
Или на событие KeyPress Edit`ов:
if not (key in ['0'..'9', #8, DecimalSeparator]) then  
key := #0;
 

Всего записей: 167 | Зарегистр. 14-03-2005 | Отправлено: 15:15 29-09-2005 | Исправлено: EmeJIbka, 16:24 29-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S

Цитата:
он проявляется если если параметры страницы выбраны первоначально(один раз), потом всё становится нормально....  
брось на форму компонент, открой дизайнер, открой параметры страницы и смотри...  

Нет его у меня ни при создании, ни при открытии...
Может причина в использовании фикса для вертикальных размеров объектов, написанного мной и gpi в этой ветке...

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 19:19 29-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такой вот баг в 3.18.2:
1) В среде Delphi создаём новый проект
2) бросаем на форму frxReport и кнопку
3) дизайнер не открываем иначе не увидим самого интересного
4) по OnClick кнопки пишем frxReport1.ShowReport();
5) запускаем проект, нажимаем на кнопку и смотрим....
 
GloThin

Цитата:
Может причина в использовании фикса для вертикальных размеров объектов, написанного мной и gpi в этой ветке...

так и есть, в Run-Time этого косяка нет при вашем фиксе, а вот в дизайнере в IDE есть...

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 20:01 29-09-2005
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Лицензия FastReport за багрепорты и багофиксы


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru