Forum Replies Created
-
Posts
-
Code:Add('AND Num IN ');
Add('(SELECT Num FROM dbo.MyTable ');DecimalSeparator := ',';
Add('WHERE (Summa'+sComboBox26.Text+FloatToStr(sCalcEdit7.Value))+'))');
Проблему решил. Мож кому еще решение пригодится.
Написал код вот так и все заработало как надо.
Code:var
str : string;
begin
if sListBox1.Count < 1 then
Exit;
str := sListBox1.Items.Strings[index];
with sListBox1.Canvas do
begin
Brush.Style := bsClear;
TextOut(Rect.Left + 3, Rect.Top + 1, sListBox1.Items.Strings[index]);
end;
end;В одном из своих старых проектов делал вот так, и все нормально рисовалось.
Code:program my_app;
uses
Windows, Classes, IniFiles, SysUtils, Forms,
Main_Unit in 'Main_Unit.pas' {MainForm},
… in '….pas' {…: …},
………………..{$R *.res}
const
inifile = 'vc_service.ini';var
hPrevWin: HWND;
xbool: Boolean;
FIniFile:TIniFile;procedure normal_boot;
begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;Application.Title := 'My App';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(…, …);
Application.CreateForm(…, …);
SplashForm.Hide;
SplashForm.Free;Application.Run;
end;procedure one_copy;
begin
hPrevWin := FindWindow ('TMainForm', PChar(Application.Title));
if hPrevWin <> 0 then
begin
SetForegroundWindow(hPrevWin);
Application.Terminate;
end
else begin
normal_boot;
end;
end;begin
Application.Initialize;
Application.Title := 'My App';FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+inifile);
xbool := FIniFile.ReadBool('StartUp', 'one_copy', false);
FIniFile.Free;if xbool = false then
normal_boot
else
one_copy;end.
'Support' wrote:У меня сложности с воспроизведением проблемы №1, возможно это сделать в демке?
Смотрите здесь
'Support' wrote:Спасибо за пример. На что нужно смотреть? 🙂
Скорее всего проблема в недоступности ListView после закрытия диалога? Не могу сейчас посмотреть под Win7.
После вставки или изменения записи в бд глючит отрисовка ListView (может вообще не отрисовать содержимое или отрисовать его частично)
если после проявления глюка отключить и снова включить скины то все рисуется нормально :wacko:
К сожалению с выходом версии 7,25 баг №1 остался, а баг №2 решен только частично.
Так как при AllowExtBorders = true между “крестиком” (которым закрывается окно) и “границей окна” есть расстояние примерно в 1-2 пикселя, а при AllowExtBorders = false этого расстояния уже нет.
Геннадий Петров
скорее всего это происходит из-за того что вовремя расчетов процессор(процессоры) используется на все 100%.
Так как при использовании процессора одним процессом (простите за каламбур) на 100% остальным остается очень мало процессорного времени и как раз при таких условиях замедляется отрисовка окон “чужих процессов”.
Когда то наблюдал у себя такое на вин ХР при расчетах с загрузкой процессора на 100%.
Да и пожалуйста пофиксите еще вот это
Quote:Так что осталось разобраться с багом №1 (при AllowExtBorders = true не корректно отрисовывается нижняя граница окна)скринтшот в первом сообщении
'flysky' wrote:А вообще конечно за время использования компонентов замечаю как – всё медленнее и медленнее работают проги со скинами.К большому сожалению тоже должен констатировать этот факт.
Было бы очень даже не плохо если бы Support или кто другой выложил статью о том как можно максимально ускорить отрисовку своего приложения (или хотя бы список “что на что лучше не бросать” потому, что медленно рисуется)
версия 7,24 опять наблюдаю
Баг №2
при AllowExtBorders = false не корректно отрисовываются кнопки свернуть, развернуть и закрыть
Также в этом проекте можете увидеть баг с темы “Active:=False” а background ListView'а всеравно красится=) 🙄
Так что осталось разобраться с багом №1 (при AllowExtBorders = true не корректно отрисовывается нижняя граница окна)
не знаю помогло ли то что используется версия 7.23 или то что я немного изменял код процедуры поиска но все работает с одним Application.ProcessMessages
так что баг №3 тоже можно считать решенным
