You are not logged in. Please login or register.
My Visual Database → Posts by sibprogsistem
My photos are stored in folders by years and I would like a full preview of his photos to have a view of all the saved photos, a kind of viewer like the attached photo.
в MVD нет (DirectoryListBox, FileListBox )
пример с картинками из папки http://myvisualdatabase.com/forum/misc. … download=1
How to see all of my photos in one form.
give a clearer description
Приложите, пожалуйста, картинку - врага нужно знать в лицо )))
Ну, вот как это объяснить? Предположим, вы, как разработчик ОС, хотите, чтобы у кнопок появилось свойство "Прозрачность". Ну так сделайте его по умолчанию False, чтобы была совместимость с предыдущими версиями. Вредители какие-то....
по ходу это какой-то глюк, такая хрень не только с картинкой, видимо кнопка делает что-то типа Parent
помещаю на форму картинку на кортику с верху ставлю кнопку и кнопка становиться прозрачной..
вопрос:
такой эффект только в windows11 ?
Крикнул так крикнул....
Смотри, сейчас как набегут страждущие с неоткомментированным кодом и компонентами с именами по умолчанию )))
он за деньги предлагал, но при первом ознакомлении мне и с деньгами не захотелось ))) теперь сомневаюсь в своем решении
а вот и сама программа
Hello everyone!
Recently, the user MVD yghusn contacted me, he still could not cope with his project.
yghusn suggested that I set up his project, but when I saw him, I immediately refused, all because the project was very bad in all respects.
Last day my interest overcame me and I decided to try it anyway.
In general, I managed to create this program, the problem is that I had to skip some of the fields, since it is not clear why they are and with what to connect them, but the program still turned out
I want to explain to those who also think to contact me for help
- I do not speak English
for those who are just starting to program
- write the names of variables, tables and fields in full
- the name of the component should explain what kind of component it is and what it is for
- in the name of the variables, it is desirable to describe their purpose
- and generally write names in camel style (nameNameName) where the first word is written with a small letter and all subsequent ones with a capital
- never leave the components of your project unnamed (Button1, Button2), give them explanatory names (bSave) where b is the type of the component
- comment your code
IN GENERAL IT WAS A SCREAM OF THE SOUL))
Всем привет!
Недавно ко мне обратился пользователь MVD yghusn , он все ни как не мог справиться со своим проектом.
yghusn предложил мне настроить его проект, но когда я его увидел, то сразу отказался, все потому, что проект был очень плох во всех отношениях.
Прошлым днем мой интерес переборол меня и я все таки решил попробовать.
В общем мне удалось создать эту программу, проблема в том, что некоторые поля пришлось пропустить, так как не понятно зачем они и с чем их связывать, но программа все равно получилась
Хочу объяснить тем, кто так же думают обратиться ко мне за помощью
- я не говорю по-английски (только переписка)
для тех кто только начинает программировать
- пишите имена переменных, таблиц и полей полностью
- имя компонента должно пояснять, что это за компонент и для чего он нужен
- в имени переменных желательно описывать их назначения
- и вообще пишите имена в верблюжьем стиле (nameNameName) где первое слово пишется с маленькой буквы и все последующие с большой
- ни когда не оставляйте компоненты Вашего проекта безымянными (Button1,Button2), давайте им поясняющие имена (bSave) где b-означает тип компонента
- комментируйте свой код
В ОБЩЕМ ЭТО БЫЛ КРИК ДУШИ ))
В ОБЩЕМ
выберите запись, кликните (дублировать запись), внесите изменения и сохраните
можно сделать и через цикл, но думаю Вам это не нужно..
****.****.dbField - это имя поля к которому привязан Ваш компонент, можно написать просто имя...
В чем вопрос...есть таблица, в ней есть колонки, к примеру ( имя, фамилия, отчество, билет). Я хочу сделать кнопку, с помощью которой можно было дублировать ВЫДЕЛЕННУЮ строку и только колонки имя, фамилия , отчество......пытался сделать это так:
insert into table1 select name, soname, otchestvo from table1 ,но в таком случае у меня дублируются вообще записи в таблице, а нужно чтобы копировалась только выделенная. Подскажите как это можно сделать..
подробнее объясните, и добавьте Ваш проект
Is it possible to create a second script sheet in order to unload the default one and thus have a shorter script.
так же стандартный диалог выбора директории
пример диалога (openDialog) text
в примере показана загрузка текста из файла txt в компонент memo
пример диалога (openDialog) с мульти выборам
в примере выбранные файлы записываются сразу в базу данных
пример диалога (openDialog) с мульти выборам
в примере загружаются выбранные фотографии
пример стандартного диалога (openDialog) с описанием..
sibprogsistem wrote:добавьте свой проект
я мел ввиду тот проект в котором у Вас не работает..
добавьте свой проект
if openDialog.Execute then
begin
frmItems.DBImage11.Picture.LoadFromFile(openDialog.fileName);
frmItems.DBImage11.dbFileName := openDialog.fileName;
end;команда - ExtractFilePath(Application.ExeName) уже имеет '\' в конце записи
Вы пытаетесь добавить '\RatingImages'
в итоге получается такой адрес ***\\RatingImages
Tried the following but still couldn't get it working
procedure frmItems_btnOpemImg01_OnClick (Sender: TObject; var Cancel: boolean); var openDialog:TOpenDialog; begin openDialog := TOpenDialog.Create(Form1); openDialog.Options := ofHideReadOnly+ofAllowMultiSelect+ofEnableSizing; openDialog.DefaultExt := '.PNG'; openDialog.Filter := 'PNG | *.PNG'; if openDialog.Execute then begin openDialog.InitialDir := ExtractFilePath(Application.ExeName) + '\RatingImages'; end; openDialog.Free; end;Please use the above the correct if wrong. Maybe I couldn't explain what I'm trying to do
1. I click the button to load image
2. I want windows open dialog opens specified folder INSTEAD of default image load folder
procedure frmItems_btnOpemImg01_OnClick (Sender: TObject; var Cancel: boolean);
var
openDialog:TOpenDialog;
begin
openDialog := TOpenDialog.Create(Form1);
openDialog.Options := ofHideReadOnly+ofAllowMultiSelect+ofEnableSizing;
openDialog.DefaultExt := '.PNG';
openDialog.Filter := 'PNG | *.png';
openDialog.InitialDir := ExtractFilePath(Application.ExeName) + '\RatingImages';
if openDialog.Execute then
begin
// Form1.Image1.Picture.LoadFromFile(openDialog.fileName);
end;
openDialog.Free;
end;Hi Sibprogsistem,
Thank you very much for the reply.
The script you have shared doesn't take user to specified folder on windows open dialog.
When button is clicked; I want windows open dialog opens specified folder, then I choose an image there. Specific folder RatingImages is within the MVD app root folder.
openDialog.InitialDir := ExtractFilePath(Application.ExeName);procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
openDialog:TOpenDialog;
begin
openDialog := TOpenDialog.Create(Form1);
openDialog.Options := ofHideReadOnly+ofAllowMultiSelect+ofEnableSizing;
openDialog.Filter := 'PNG|*.png|JPG|*.jpg|BMP|*.bmp';
openDialog.DefaultExt := '.png';
if openDialog.Execute then
begin
Form1.Image1.Picture.LoadFromFile(openDialog.fileName);
end;
openDialog.Free;
end;no matter how hard you try, the code will still be confusing, because you need to comment a lot ..
Привет, ДЕРЕК !!
shmutus, попробуйте этот вариант
procedure Form1_OnShow (Sender: TObject; Action: string);
var
i:Integer;
begin
For i:=1 to 3 do begin
TdbPanel(Form1.FindComponent('Panel'+IntToStr(i))).left:=28;
End;
end;My Visual Database → Posts by sibprogsistem
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi